Zeilen ausblenden funktioniert nicht komplett
13.02.2017 09:59:15
Florian
Habe ein neues Problem.
Ich möchte über eine Userform 4 verschiedene Datensätze in 3 Tabellen eintragen.
Wenn in der Combobox "Auslagen" markiert wird, sollen die Daten in Tabelle "Kasse / Bereich E bzw F 21:23 (vorher erste leere in dem Bereich suchen).
Bei "Vorschuss" auch in Tabelle "Kasse", allerdings in den Bereich E bzw F 23:39.
Bei Proviant bzw. Ausrüstung in die jeweilige andere Tabelle, das funktioniert auch.
Nur die Datenübernahme in die Tabelle "Kasse" klappt nicht.
Es wäre schön, wenn jemand nen Tipp hätte.
Eine Beispieltabelle ist angehängt. https://www.herber.de/bbs/user/111425.xlsm
Hier der Code:
Private Sub Commandbutton1_click()
' variable deklarieren
Dim erste_freie_Zeile As Integer
If ComboBox1.Value = "Proviant" Then
'erste freie Zeile in Tabelle "Proviant" ermitteln und in Variable "erste freie Zeile" _
schreiben
erste_freie_Zeile = Sheets("Proviant").Range("B8:B48").End(xlUp).Offset(1, 0).Row
'Tabelle "Proviant" Spalte B erste freie Zeile den Empfänger im Textformat eintragen
Sheets("Proviant").Cells(erste_freie_Zeile, 2) = Format(Empfänger.Text)
'Spalte E erste freie Zeile das Datum im Datumsformat eintragen
Sheets("Proviant").Cells(erste_freie_Zeile, 5) = CDate(Datum.Text)
'Spalte F erste freie Zeile den Betrag im Währungsformat eintragen
Sheets("Proviant").Cells(erste_freie_Zeile, 6) = Format(Betrag.Text, "#,##0.00")
ElseIf ComboBox1.Value = "Ausrüstung" Then
'erste freie Zeile in Blatt "Ausrüstung" ermitteln und in Variable "erste freie Zeile" _
schreiben
erste_freie_Zeile = Sheets("Ausrüstung").Range("B8:B48").End(xlUp).Offset(1, 0).Row
'Spalte B erste freie Zeile den Empfänger im Textformat eintragen
Sheets("Ausrüstung").Cells(erste_freie_Zeile, 2) = Format(Empfänger.Text)
'Spalte E erste freie Zeile das Datum im Datumsformat eintragen
Sheets("Ausrüstung").Cells(erste_freie_Zeile, 5) = CDate(Datum.Text)
'Spalte F erste freie Zeile den Betrag im Währungsformat eintragen
Sheets("Ausrüstung").Cells(erste_freie_Zeile, 6) = Format(Betrag.Text, "#,##0.00")
ElseIf ComboBox1.Value = "Einbehalt" Then
'erste freie Zeile in Blatt "Kasse" Bereich E23:E39 ermitteln und in Variable "erste freie _
Zeile" schreiben
erste_freie_Zeile = Sheets("Kasse").Range("E23:E39").End(xlUp).Offset(1, 0).Row
'Spalte E erste freie Zeile den Empfänger im Textformat eintragen
Sheets("Kasse").Cells(erste_freie_Zeile, 5) = Format(Empfänger.Text)
'Spalte F erste freie Zeile den Betrag im Währungsformat eintragen
Sheets("Kasse").Cells(erste_freie_Zeile, 6) = Format(Betrag.Text, "#,##0.00")
ElseIf ComboBox1.Value = "Auslagen" Then
'erste freie Zeile in Blatt "Kasse" Bereich E21:E22 ermitteln und in Variable "erste freie _
Zeile" schreiben
erste_freie_Zeile = Sheets("Kasse").Range("E21:E22").End(xlUp).Offset(1, 0).Row
'Spalte E erste freie Zeile den Empfänger im Textformat eintragen
Sheets("Kasse").Cells(erste_freie_Zeile, 5) = Format(Empfänger.Text)
'Spalte F erste freie Zeile den Betrag im Währungsformat eintragen
Sheets("Kasse").Cells(erste_freie_Zeile, 6) = Format(Betrag.Text, "#,##0.00")
End If
'end with
Unload Me
End Sub
Anzeige