Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
924to928
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
924to928
924to928
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilenformatierung per Makro übertragen

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
Anzeige
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

Anzeige
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

Anzeige
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige