Office: Eintrag in nächste leere Zeile / Range funktioniert nicht

Florian F. · 11. Februar 2017

Hallo zusammen,

aufmerksamen Augen wird nicht entgangen sein, dass ich die Frage heute morgen schon woanders gestellt habe aber dort geht einiges unter und meine Fragestellung war unglücklich. Also hier die Beschreibung:

Über eine Userform sollen 3 Einträge in 3 versch. Tabellen eingetragen werden, abhängig davon, was in der Combobox ausgewählt wird.

Vorschuss + Auslagen in "Kasse"
Proviant in "Proviant
Ausrüstung in "Ausrüstung.

Nun sind meine Probleme,
a) dass ich "Vorschuss und Auslagen" nicht in den entsprechenden Range bekomme (Auslagen in Zeilen 21+22, Vorschuss in 23-39, jeweils in die nächste freie Zeile) und
b) dass bei den Tabellen "Proviant" und "Vorschuss" zwar die erste freie Zeile im gewählten Range gewählt wird, diese aber mit dem nächsten Eintrag wieder überschrieben wird. Eine Beispieldatei hänge ich an.

Ich hoffe, jemand hat einen Tipp!

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
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß,
Florian

:)

Crazy Tom · 13. Februar 2017

Hallo

ich habe es so getestet
ohne Fehlerbehandlung ob richtige Eintragungen in den TextBoxen sind

Code:

Private Sub Commandbutton1_click()
Dim lngZiel As Long
Dim wksBlatt As Worksheet

Select Case ComboBox1.ListIndex
Case 0
Set wksBlatt = Sheets("Kasse")
With wksBlatt
lngZiel = .Cells(.Rows.Count, 5).End(xlUp).Row + 1
If lngZiel
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Florian F. · 13. Februar 2017

Hallo Tom!

Grandios! Läuft, auch mit meiner Tabelle und anderen Bezeichnungen.
Ich hab da nun nen ganzen Tag dran rumgefummelt *entsetzt

Da mit den verbundenen Zellen liegt daran, dass die Tabelle im Original einige Einträge mehr hat. Hatte aber testweise, weil mein Code immer Mist fabriziert hat, alle Zellenverbunde gelöst,hat aber auch nicht geholfen.

Jetzt muss ich Deinen Code nur noch verstehen lernen.

Nächstes Projekt: Auf jeder Seite einen Commandbutton, um von unten die Zeilen wieder zu löschen, aber dafür muss ich Deinen Code wie gesagt erstmal verstehen. Oder hast Du da ne spontane Idee? *zwinker*

Du hast mir den Abend gerettet, danke!

Gruß,
Florian

Crazy Tom · 13. Februar 2017

Hallo

meinst du so?

hier mal als Beispiel für Blatt "Proviant"

Code:

Sub proviant_loeschen()
Range("B8:F49").ClearContents
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

MfG Tom

Florian F. · 13. Februar 2017

Hallo Tom,

nee, eine Clearcontent-Funktion habe ich schon im Rahmen eines Codes, der einen neuen Monat generiert.
Ich wollte die ganze Tabelle nun schützen und dann brauche eine Funktion (Commandbutton auf jeder Seite), die quasi entgegengesetzt die Zeilen wieder löscht, wenn man sich z.B. bei der Combibox beim Eintrag versehen hat.

Gruß,
Florian

Florian F. · 13. Februar 2017

Habs schon:

Code:

Sub letzten_loeschen_()
Dim lRow As Long
On Error Resume Next 'Falls Bereich leer ist
Sheets("Tabelle1").Select
'es soll Bereich B8:G48 durchsucht werden
lRow = Range("B8:G48").Find("*", searchdirection:=xlPrevious).Row
'Hier "B" und "G" entsprechend der zu durchsuchenden Spalten ändern!
Range("B" & lRow, "G" & lRow).ClearContents
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Eintrag in nächste leere Zeile / Range funktioniert nicht

Eintrag in nächste leere Zeile / Range funktioniert nicht

Eintrag in nächste leere Zeile / Range funktioniert nicht

Eintrag in nächste leere Zeile / Range funktioniert nicht

Eintrag in nächste leere Zeile / Range funktioniert nicht - Similar Threads - Eintrag leere Zeile

Falscher / übrig gebliebener Add-in Oulook Eintrag

Bedingte Formatierung, Leere Zelle ab best. Zeit einfärben und bei Eintrag Farbe weg.

VBA gefüllte Spalten/Zellen bis zur nächsten leeren Zählen

Bei leerem Eintrag Wert aus Zelle darüber kopieren

Wenn Zellen leer dann "Formel eintragen"

Aktualisierungsabfrage Änderung: leere Felder erstezen ducrh "Kein Eintrag"?

Dynamische Dropdownliste ->Leere Einträge ausblenden