ein Kollege, der nicht mehr da ist, hat einen ziemlich großen Code geschrieben, der anfängt mit:
Sub Übertragen()
a = Inputbox("Bitte E=Einkauf - V=Verkauf eingeben")
b = Inputbox("Bitte KW eingeben")
und dann folgt der weitere Code.
Ablauf ist, der AW gibt einen Datensatz ein im "Tabellenblatt1", dann öffnet sich Input "a" nach Eingabe von E oder V öffnet sich Inbut "b" und nach Eingabe einer KW werden die Daten automatisch in das entsprechende Register "Einkauf" oder "Verkauf" geschrieben.
Nun soll Excel aber, wenn der AW ein "V" eingibt SOFORT das Register "Verkauf" öffnen, ohne Eingabe der KW. Gilt also nur für V, nicht für E.
Durch die Recherche habe ich ein bißchen ausprobiert, kriege es aber nicht hin:
Sub Übertragen()
DIM a As Variant kommt von mir
a = Inputbox("Bitte E=Einkauf - V=Verkauf")
if a = "V" Then kommt von mir
Sheets("Verkauf").Select kommt von mir
End iIf kommt von mir
b = Inputbox("Bitte KW eingeben")
Für jede Hilfe bin ich dankbar!
Michael