Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Eingabeaufforderung

Forumthread: 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
Anzeige

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
Anzeige
AW: Eingabeaufforderung
15.03.2007 12:41:41
lufrio1
danke, probier es gleich mal aus.
gruß
Lufrio
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige