Hallo!
Mit folgendem Code wird ein in einer InpoutBox eingebener Wert in die Zelle G1 eingetragen.
Sub Texteinschub()
Dim Mldg, Titel, Wert1
Mldg = "Quartal eingeben"
Titel = Quartal
Wert1 = InputBox(Mldg, Titel)
Sheets("Tabelle1").Activate
Range("G1").Select
ActiveCell = Wert1
End Sub
Wie kann ich bitte erreichen dass mit dem gleichen Code(innerhalb dieses Codes) gleichzeitig der gleiche Wert in Tabelle2 Zelle E1 eingetragen wird?
Ich nehme mal mit dem With Befehl und nicht mit dem Range Befehl oder liege ich da falsch ?
Danke
Josef