Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
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

Syntax in VBA-Modul ist falsch

Syntax in VBA-Modul ist falsch
14.11.2007 07:29:13
Wilfried
Guten Morgen
Mein 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:z").Select funktioniert nicht!
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("A2").Select
End Sub


Kann mir jemand auf die Sprünge helfen?
Gruß
Wilfried

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Syntax in VBA-Modul ist falsch
14.11.2007 07:46:00
haw
Hallo Wilfried,
so z.B.:

Sub Makro1()
Dim i&, z As Long
For i = 10000 To 255 Step -1
If Application.CountA(Range(Cells(i, 2), Cells(i, 56))) > 0 Then Exit For
z = i
Next
Rows("2:2").Copy
Rows("3:" & z).PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range("A2").Select
End Sub


Gruß
Heinz

Danke Heinz - es funktioniert!! -
14.11.2007 07:59:00
Wilfried
o.T.
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige