|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
18.02.2008 12:10:00 |
Rudi |
|
|
|
18.02.2008 18:53:41 |
jh |
|
|
|
19.02.2008 11:02:10 |
Rudi |
|
|
 Aw:Aw:Aw:Nach Prüfung einer Zelle einen Zellbereic |
19.02.2008 11:33:11 |
jh |
|
|
Von:
jh |
Datum:
19.02.2008 11:33:11 |
Views:
1486 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Nach Prüfung einer Zelle einen Zellbereic |
Hallo,
Spaltenbreite und Zeilenhöhe werden leider nicht mitkopiert. Füge nach der
letzten Zeile meines Beispiel noch hinzu:
Worksheets("Jan 08").Select
For Each c In Selection.Columns
c.ColumnWidth = Worksheets("t1").Columns(c.Column).ColumnWidth
Next c
For Each r In Selection.Rows
r.RowHeight = Worksheets("t1").Rows(r.Row).RowHeight
Next r
Ich mache mir hier die Tatsache zunutze, dass nach dem Kopieren im Zielblatt
der kopierte Bereich ohnehin markiert ist. So erspare ich mir, erst noch die
Zeilen- und Spaltenadressen dieses Bereiches zu bestimmen, um sie dann vom
Quellbereich zu übertragen. Die Variablen r und c musst du als Range dimensionieren.
Gruß
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
18.02.2008 12:10:00 |
Rudi |
|
|
|
18.02.2008 18:53:41 |
jh |
|
|
|
19.02.2008 11:02:10 |
Rudi |
|
|
Aw:Aw:Aw:Nach Prüfung einer Zelle einen Zellbereic |
19.02.2008 11:33:11 |
jh |
|
|