Zeilenformatierung per Makro übertragen

Forumthread: Zeilenformatierung per Makro übertragen

13.11.2007 11:02:00

Wilfried

Guten Tag und Hallo
Mein Problem:
Zeile 1 enthält die Überschrift
Ich möchte per VBA das Format der Zeile 2 bis zur letzten Zeile (die Werte in Spalte A enthält) übertragen.
Alle anderen bestehenden Formatierungen sollen gelöscht werden (außer bei der Überschrift).
Ich würde mich freuen, wenn mir jemand dabei helfen könnte.
Gruß
Wilfried

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeilenformatierung per Makro übertragen

13.11.2007 14:41:38

Gerd
AW: Zeilenformatierung per Makro übertragen

13.11.2007 15:36:00

Wilfried
bin fast am Ziel

13.11.2007 16:18:00

Wilfried
AW: bin fast am Ziel

13.11.2007 16:20:15

Wilfried
AW: bin fast am Ziel

13.11.2007 17:19:00

Gerd

AW: Zeilenformatierung per Makro übertragen

13.11.2007 14:41:38

Gerd

Hi,
mach es händisch und lass dabei den Rekorder aufzeichnen.
mfg Gerd

AW: Zeilenformatierung per Makro übertragen

13.11.2007 15:36:00

Wilfried

Hallo Gerd,
das habe ich bereits getan:


Sub Makro1()
Rows("2:2").Select
Selection.Copy
Rows("3:40").Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
End Sub

Ich würde mir aber doch eine VBA-Lösung wünschen (wird eingebettet)
Hier mein bisheriger Versuch:


Sub Format_kopieren()
Dim iRow As Integer, iRowL As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
Rows("2:2").Select
Selection.Copy
For iRow = iRowL To 1 Step -1
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
' hier wenn in Spalte N (BuchDatum) kein Wert dann löschen!
'If IsEmpty(Cells(iRow, 1)) Then
'Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
'False, Transpose:=False
'End If
Next iRow
End Sub

Ich tu mich allerdings sehr schwer damit.
Ich wollte dafür eine Schleife aufbauen.
Gruß
Wilfried

bin fast am Ziel

13.11.2007 16:18:00

Wilfried

Hallo
ich bin fast am Ziel. Hab nur noch ein kleines Problem:


Sub Makro1()
Dim z As Long
For z = 10000 To 255 Step -1
If Application.CountA(Range(Cells(z, 2), Cells(z, 56))) > 0 Then Exit For
Next
Rows("2:2").Select
Selection.Copy
'z = 3560
'Wie kann ich 3560 mit z ersetzten?
Rows("3:3560").Select
'Rows("3:3560").Select funktioniert nicht!
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("A2").Select
End Sub

Würde mich über eine kurze Hilfe freuen
Gruß
Wilfried

AW: bin fast am Ziel

13.11.2007 16:20:15

Wilfried

hatte vergessen, die Frage als noch offen darzustellen

AW: bin fast am Ziel

13.11.2007 17:19:00

Gerd

Hi,
Rows("3:" & z).Select
mfg Gerd

Beliebteste Forumthreads (12 Monate)

Zeilenformatierung per Makro übertragen

Forumthread: Zeilenformatierung per Makro übertragen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread