Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen

Inputbox Verknüpfung

Betrifft: Inputbox Verknüpfung von: Kurt P
Geschrieben am: 18.08.2008 15:50:09

Hallo,
folgende Inputbox zeigt die 10 in der Eingabezelle Richtig an:
Suchtext = InputBox("Name des neuen Blattes", "Eingabe", "10_")

Ich möchte anstelle der eine Verknüpfung zu einer Sheet:
"ActiveSheet("Zahlen").Range("C4").Value"

leider klappt es nicht,
Warum?

gr Kurt P

  

Betrifft: nur ActiveSheet.Range("C4").Value oT von: Matthias L
Geschrieben am: 18.08.2008 16:10:36




  

Betrifft: Danke, Matthias -) von: Kurt P
Geschrieben am: 18.08.2008 16:24:36




  

Betrifft: AW: geschlossen von: zu
Geschrieben am: 18.08.2008 16:25:56




  

Betrifft: Habe irgendwie was Falsch... von: Kurt P
Geschrieben am: 18.08.2008 16:41:42

Hallo Matthias,
leider klappt es nicht mit meiner Formel zusammen:
Range("E3").FormulaLocal = "=SUMMENPRODUKT((MONAT(L6:L64487)=" _
& InputBox("Monatseingabe") & ")*(L6:L64487<>""""))"
Wenn ich eine Zahl in der Inputbox eingebe klappt alles, leider kann ich nicht
die Verbindung zur Sheet herstellen um die entsprechende Zahl einzugeben:
Format(Sheets("Zahlen").Range("C4").Value, "M"))

Bitte nochmal schauen, danke im voraus,
gruß Kurt P


  

Betrifft: So jetzt habe ich die Lösung in der Recherche -) von: Kurt P
Geschrieben am: 18.08.2008 18:19:27

Hallo Matthias,
habe mal in der Recherche gesucht und etwas zusammengestellt:
Dim sPrompt As String, sDefault As String
sPrompt = "Monatseingabe"
sDefault = Format(Format(Sheets("Bericht").Range("C4").Value, "M"))

Range("E3").FormulaLocal = "=SUMMENPRODUKT((MONAT(L6:L64487)=" _
& InputBox(prompt:=sPrompt, Default:=sDefault) & ")*(L6:L64487<>""""))"

so klappt es,
Dankr trotzdem,
mfg Kurt P


 

Beiträge aus den Excel-Beispielen zum Thema "Inputbox Verknüpfung"