Zelle nacheinander mit Werten befüllen
14.08.2007 15:09:00
Micha
Durch eine Userform kann ich in Tabelle1 die Zelle ("K5") mit einer Zahl zwischen 10 und 1000 befüllen (in 10er Schritten).
Durch Klick auf eine Form startet ein Makro und erledigt, abhängig von dem Wert in ("K5") verschiedene Sachen in den Tabellen2-7!
für jede Zahl in ("K5") wird etwas anderes erledigt! Das funktioniert soweit auch wunderbar!
Nun mein Problem!
Wie schaffe ich es, dass er mir nacheinander alle Werte von 10 bis 1000 in ("K5") einträgt, und danach MakroX startet ?
Also:
Sub Alle_Werte
If Worksheets("Tabelle1").Range("K5").Value = 10 Then
Application.Run "MeineArbeitsmappe.xlsm!MakroX"
End If
If Worksheets("Tabelle1").Range("K5").Value = 20 Then
Application.Run "MeineArbeitsmappe.xlsm!MakroX"
End If
If Worksheets("Tabelle1").Range("K5").Value = 30 Then
Application.Run "MeineArbeitsmappe.xlsm!MakroX"
End If
' usw. ...
If Worksheets("Tabelle1").Range("K5").Value = 1000 Then
Application.Run "MeineArbeitsmappe.xlsm!MakroX"
End If
End Sub
Das muss doch irgendwie einfacher zu lösen sein...
Vielleicht hat jemand eine Idee!
Bin für jede Hilfe dankbar!
Gruss, Micha
Anzeige