ich stehe wieder mal am Berg und hoffe jemand hilft mir diesen zu erklimmen:
Ich habe eine Arbeitsmappe "Kassenjournal" mit 12 Tabellen (Januar - Dezember). Ich möchte via Userform die Daten der Einnahmen und Ausgaben eintragen. Das hab ich hingekriegt für den Januar.
Code:
Private Sub CommandButton1_Click()
'Variable deklarieren
Dim erste_freie_Zeile As Integer
'erste freie Zeile in Blatt "Januar" ermitteln
'und in Variable "erste_freie_Zeile" schreiben
erste_freie_Zeile = Sheets("Januar").Range("A65536").End(xlUp).Offset(1, 0).Row
'In Blatt "Januar"
'With Sheets("Januar")
'Spalte A, erste freie Zeile das Datum im Datumsformat übertragen
Sheets("Januar").Cells(erste_freie_Zeile, 1) = CDate(TextBox1.Text)
'Spalte B, erste freie Zeile den Text eintragen
Sheets("Januar").Cells(erste_freie_Zeile, 2) = TextBox2.Text
'Spalte C, erste freie Zeile die Beleg-Nummer eintragen
Sheets("Januar").Cells(erste_freie_Zeile, 3) = Format(TextBox7.Value, "0000")
'Spalte D, erste freie Zeile das ausgewählte Konto übertragen
Sheets("Januar").Cells(erste_freie_Zeile, 4) = Format(TextBox3.Value, "0000")
'Spalte E, erste freie Zeile die ausgewählte Kostenstelle übertragen
Sheets("Januar").Cells(erste_freie_Zeile, 5) = Format(TextBox4.Value, "0000")
'Spalte F, erste freie Zeile Einnahmen eingeben
Sheets("Januar").Cells(erste_freie_Zeile, 6) = Format(TextBox5.Value, "0.00")
'Spalte G, erste freie Zeile Ausgaben eingeben
Sheets("Januar").Cells(erste_freie_Zeile, 7) = Format(TextBox6.Value, "0.00")
'End With
End Sub
Der User soll nun via Combobox den Monat auswählen und damit die richtige Tabelle aktivieren. (1 Bsp.:User wählt März und dann soll die Tabelle März aktiviert werden)
(Die Einträge der Monate in der Combobox habe ich mittels Hilfstabelle geschafft).
Denke da dieser Code für Tabelle Januar gilt sollte dieser mit active Worksheet abgeändert werden sobald der User den Monat ausgewählt hat. Wie stelle ich den Code um damit er active.Worksheet nimmt statt "Januar"?
In der 2ten Combobox soll der User die Filiale auswählen (Die Filialen stehen ebenfalls in der Combobox die mittels Hilfstabelle eingetragen sind).
Die Auswahl soll dann in Zelle B1 von der Tabelle Januar eingetragen werden.
Sobald ein Wert in B1 vom Januar steht sollte diese Combobox inaktiv werden, (oder grau eingefärbt werden.)
Für Eure Hilfe jetzt schon ein dickes Dankeschön.
Lg.
Matthias