Makro unterbrechen und nach Enter
15.03.2007 13:59:06
lufrio1
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