Laufenden Makro stoppen, wieder starten

Forumthread: Laufenden Makro stoppen, wieder starten

09.06.2005 12:29:01

Gunter

Hallo Zusammen,
ich habe ein Makro erstellt, das nacheiander 54 Zellen in einem Formular anspringt.
Wenn ich nun in der 8 Zelle angekommen bin und merke, dass ich in Zelle 7 eine Falscheingabe gemacht habe, kann ich dann das Makro anhalten, zurück zu Zelle 7 gehen, den Eintrag editieren und anschließend das Makro wieder starten, das es mit der Eingabe in Zelle 8 weitergeht?
Gruß Gunter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Laufenden Makro stoppen, wieder starten

09.06.2005 13:38:27

Kurt

Hi,
da wäre dein bisheriger Code interessant.
mfg Kurt

AW: Laufenden Makro stoppen, wieder starten

09.06.2005 13:48:51

Gunter

Hallo Kurt,
hier der Code. Ich habe bisher noch nicht alle Felder erstellt, die Schreibweise ist sowieso die gleiche.


Sub Test()
Application.Goto Reference:="KD_Name"
Dim x As Variant
x = InputBox("Bitte Name eingeben", "Eingabe", "")
Range("KD_Name") = x
Application.Goto Reference:="KD_Strasse"
Dim x1 As Variant
x1 = InputBox("Bitte Strasse eingeben", "Eingabe", "")
Range("KD_Strasse") = x1
Application.Goto Reference:="KD_PLZ"
Dim x2 As Variant
x2 = InputBox("Bitte Postleitzahl eingeben", "Eingabe", "")
Range("KD_PLZ") = x2
Application.Goto Reference:="KD_Ort"
Dim x3 As Variant
x3 = InputBox("Bitte Ort eingeben", "Eingabe", "")
Range("KD_Ort") = x3
Application.Goto Reference:="KD_TelPrivat"
Dim x4 As Variant
x4 = InputBox("Bitte Privat Telefonnr. eingeben", "Eingabe", "")
Range("KD_TelPrivat") = x4
Application.Goto Reference:="KD_TelMobil"
Dim x5 As Variant
x5 = InputBox("Bitte Handy-Nr. eingeben", "Eingabe", "")
Range("KD_TelMobil") = x5
Application.Goto Reference:="KD_TelGeschäft"
Dim x6 As Variant
x6 = InputBox("Bitte Geschäfts Telefonnr. eingeben", "Eingabe", "")
Range("KD_TelGeschäft") = x6
Application.Goto Reference:="KD_Fax"
Dim x7 As Variant
x7 = InputBox("Bitte Telefax-Nr. eingeben", "Eingabe", "")
Range("KD_Fax") = x7
Application.Goto Reference:="KD_Mail"
Dim x8 As Variant
x8 = InputBox("Bitte Mailadresse eingeben", "Eingabe", "")
Range("KD_Mail") = x8
End Sub

AW: Laufenden Makro stoppen, wieder starten

09.06.2005 15:34:17

Uduuh

Hallo,
das ist nicht sinnvoll. Arbeite mit einer Userform.
Gruß aus'm Pott
Udo

Beliebteste Forumthreads (12 Monate)

Laufenden Makro stoppen, wieder starten

Forumthread: Laufenden Makro stoppen, wieder starten

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Laufenden Makro stoppen, wieder starten

Forumthread: Laufenden Makro stoppen, wieder starten

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread