If Zelle Is Nothing Then ? End If
22.08.2006 22:03:18
Karsten
Hab eine Frage, wo ich kaum weiß, wie ich sie Stellen soll. Mein Makro fängt bei Makro1 Befehl 1 an. Dann geht es zu Makro 2 und bei ? soll entschieden werden, dass es bei Makro 1 Befehl 2 wieder weiter geht, wenn gewisse Kriterien erfüllt sind.
Siehe Beispiel:
Makro1
Befehl 1
Befehl 2
Befehl 3
Befehl 4
Makro2
With ActiveCell
Set Zelle = .Find("", LookIn:=xlValues)
If Zelle Is Nothing Then
?
An dieser Stelle soll entschieden werden, ob der Ablauf nach unten weiter geht oder bei Makro1 an der Stelle weiter macht, wo er nach Makro2 gegangen ist.
End If
End With
With ActiveCell
If Not Zelle Is Nothing Then
Application.Run "Zusammenfassen_6"
End If
End With
Besten Dank für Eure Hilfe
MfG Karsten