Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
896to900
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
896to900
896to900
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Zelle nacheinander mit Werten befüllen
14.08.2007 15:09:00
Micha
Hallo
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle nacheinander mit Werten befüllen
14.08.2007 15:25:40
Chaos
Servus,
mal so als Ansatz:
Dim i As Long
For i = 10 To 1000 Step 10
Worksheets("Tabelle1").Range("K5").Value = i
Application.Run "MeineArbeitsmappe.xlsm!MakroX"
Next i
läuft in 10 er Schritten
Gruß
Chaos

AW: Zelle nacheinander mit Werten befüllen
14.08.2007 15:35:00
Micha
Servus Chaos!
Funktioniert wunderbar :)
Vielen Dank
Gruss, Micha

AW: gern geschehen
14.08.2007 15:56:00
Chaos
.
Anzeige

305 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige