Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
852to856
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
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro unterbrechen und nach Enter

Makro unterbrechen und nach Enter
15.03.2007 13:59:06
lufrio1
Hallo nochmal,
wie füge ich folgenden Befehl in mein Makro ein?
Makro unterbrechen, an eine variable Stelle springen und nach Enter Makro weiterlaufen lassen.
hier das Makro
Dim vntName As String
Sheets("Kd-Nr.").Select
Range("B1").Select
vntName = InputBox("Name?")
If vntName = "" Then Exit Sub
ActiveSheet.PivotTables("PivotTable1").PivotFields("NAME").CurrentPage = _
vntName
Range("D6").Select
Selection.Copy
Range("D6").select sollte durch die Variable ersetzt werden.
vielen Dank schon einmal.
Lufrio

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro unterbrechen und nach Enter
15.03.2007 14:13:16
mumpel
Hallo!
Unterbrechen und dann mit Enter fortsetzen kannst Du ein Makro nicht. Du kannst die Zelle aber mit einer Inputbox abfragen:
Bereich = Application.InputBox("Bitte Zelle eingeben", Type:=8).Select
Gruss Rene
Nachtrag
15.03.2007 14:17:10
mumpel
Nachtrag: Oder noch besser ohne select
Bereich = Application.InputBox("Bitte zu kopierende Zelle eingeben", Type:=8).Copy
Gruss Rene
AW: Nachtrag
15.03.2007 14:49:00
lufrio1
vielen Dank, Rene, klappt ganz toll.
Bertram, ich kannte die "Vokabeln" Type:=8 nicht.
Schönes Wochenende
Lufrio
AW: Makro unterbrechen und nach Enter
15.03.2007 14:14:13
Bertram
Hallo Lufrio,
was hindert dich daran nochmals ne InputBox zu verwenden?
Gruß
Bertram
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige