23.01.2015, 08:19
hallo
ich habe hier begonnen, ein makro zu schreiben:
Sub loeschen2()
'
' Makro2 Makro
'
Dim a#
Dim b#
a# = 1
b# = 2
'Start
start:
Range("s" & a#).Select
If (ActiveCell.Value = "Ende") Then
MsgBox ("Ende")
Exit Sub
End If
Range("s" & a#).Select
Selection.copy
Range("t" & a#).Select
a = Range("t" & b#).Value
ActiveSheet.Paste
vergleich:
(AAA: gehört nicht zum makro)
Range("s" & a#).Select
a = Range("s" & a#).Value
b = Range("t" & a#).Value
If a = b Then
a# = a# + 1
b# = b# + 1
GoTo vergleich
Else
GoTo start
End If
Bei Überprüfung kommt in der Zeile AAA:
die Meldung
Laufzeitfehler 1004
Die Methode "Range" für das Objekt "_Global" ist fehlgeschlagen.
Was ist da falsch????
ich habe hier begonnen, ein makro zu schreiben:
Sub loeschen2()
'
' Makro2 Makro
'
Dim a#
Dim b#
a# = 1
b# = 2
'Start
start:
Range("s" & a#).Select
If (ActiveCell.Value = "Ende") Then
MsgBox ("Ende")
Exit Sub
End If
Range("s" & a#).Select
Selection.copy
Range("t" & a#).Select
a = Range("t" & b#).Value
ActiveSheet.Paste
vergleich:
(AAA: gehört nicht zum makro)
Range("s" & a#).Select
a = Range("s" & a#).Value
b = Range("t" & a#).Value
If a = b Then
a# = a# + 1
b# = b# + 1
GoTo vergleich
Else
GoTo start
End If
Bei Überprüfung kommt in der Zeile AAA:
die Meldung
Laufzeitfehler 1004
Die Methode "Range" für das Objekt "_Global" ist fehlgeschlagen.
Was ist da falsch????