Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
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

Eingabeaufforderung

Eingabeaufforderung
15.03.2007 12:19:00
lufrio1
Hallo VBA-Profis,
habe folgendes Makro aufgezeichnet:
...
Sheets("Kd-Nr.").Select
Range("B1").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields("NAME").CurrentPage = _
"Müller"
Range("D6").Select
Selection.Copy
....
Um die Eingabe des Namens zu machen, würde ich gern das Makro unterbrechen, dann die Eingabe machen und mit ok bestätigen, damit er den richtigen Kundennamen dann dorthin kopiert, wo ich ihn haben möchte.
Kann mir jemand sagen, wie ich das einbaue?
Danke im Voraus.
Lufrio

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eingabeaufforderung
15.03.2007 12:35:00
Rudi
Hallo,
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
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
AW: Eingabeaufforderung
15.03.2007 12:41:41
lufrio1
danke, probier es gleich mal aus.
gruß
Lufrio
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige