VBA Prüfe Zellbezug und führe aus....
24.07.2021 20:01:43
Mike
Sub Hauptprozedur()
If Worksheet("XY"). IsNumeric(Cells(1, 1)) Then
Makro_1
Makro_2
End If
If Worksheet("XY"). IsNumeric(Cells(2, 1)) Then
Makro_1
Makro_3
End If
If Worksheet("XY"). IsNumeric(Cells(3, 1)) Then
Makro_1
Makro_4
End If
If Worksheet("XY"). IsNumeric(Cells(4, 1)) Then
Makro_1
Makro_5
End If
End Sub
Herauskommen soll die Anweisung etwa in diesem Wortlaut.
Wenn A1 In Blatt "XY" ein numerischer Wert, dann führe Makro 1und 2 aus. Prüfe die nächste Zeile A2. Ist diese numerisch dann führe Makro 1 und 3 aus. Wenn Zeile A3 ein numerischer Wert ist, dann führe Makro 1 und 4 aus usw. Danke für eure Hilfe.
LG Mike
