17.09.2018, 20:02
Hallo Liebes Excel forum,
ich bin wieder am verzweifeln...
Für meine Kalkulation Mappe habe ich eine kleine Datenbank angelegt in einen Extra Sheet " Personaldaten" befinden Sich 5 Spalten.
Per userform sollen Personalkosten & Umsatzdaten in Textboxen eingegeben werden und zeilen weise in dieser Tabelle gespeichert werden. In Einer List box wird dann das eingetragene Jahr/ Monat als Verweis hinterlegt.
Wenn ich dann in der Listbox die Zeile Markiere füllen sich die Textboxen auch wieder mit den Daten. Wie eine kleine Datenbank eben... Soweit klappt auch alles sehr gut...
1.Aber Zwei Dinge bekomme ich nicht hin ich möchte das in der Listbox nicht nur das Jahr.Welche in Spalte 1 gespeichert wird sondern auch der Monat der sich in spalte Zwei Speichert als Name in der Listbox Hinterlegt wird für die Übersicht und weiß nicht wie...
2. Als Zweites möchte ich das wenn ich eine Zeile in der Listbox Markiere,das ich sie auch per Kommando Button Löschen kann. Und dann die richtige zeile gelöscht wird von A bis E. ( Bis E weil sich da noch eine weitere Hilfs spalte befindet. wo die Formel nicht gelöscht werden darf)
'Löschen Schaltfläche Ereignisroutine
Private Sub CommandButton2_Click()
Dim LZeile As Long
If ListBox1.ListIndex = -1 Then Exit Sub
Do While Trim(CStr(Sheets("Personalkosten").Cells(LZeile, 1).Value)) <> ""
If ListBox1.Text = Trim(CStr(Sheets("Personalkosten").Cells(LZeile, 1).Value)) Then
Sheets("Personalkosten").Rows(CStr(LZeile & ":" & LZeile)).Delete Er Markiert mir immer diese Zeile bei dem versuch den gewählten Beitrag zu Löschen
Call UserForm_Initialize
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
Exit Do
End If
LZeile = LZeile + 1
Loop
End Sub
Im Anhang ist die Kalkulation Mappe / die Userform heißt Personal erfassung.
Vielleicht könnt Ihr mir ja wieder aus der Patsche Helfen, ich hoffe das es verständlich war und freue mich auf eure Kreativen Köpfe.
Viele Liebe Grüße
Toto
ich bin wieder am verzweifeln...
Für meine Kalkulation Mappe habe ich eine kleine Datenbank angelegt in einen Extra Sheet " Personaldaten" befinden Sich 5 Spalten.
Per userform sollen Personalkosten & Umsatzdaten in Textboxen eingegeben werden und zeilen weise in dieser Tabelle gespeichert werden. In Einer List box wird dann das eingetragene Jahr/ Monat als Verweis hinterlegt.
Wenn ich dann in der Listbox die Zeile Markiere füllen sich die Textboxen auch wieder mit den Daten. Wie eine kleine Datenbank eben... Soweit klappt auch alles sehr gut...
1.Aber Zwei Dinge bekomme ich nicht hin ich möchte das in der Listbox nicht nur das Jahr.Welche in Spalte 1 gespeichert wird sondern auch der Monat der sich in spalte Zwei Speichert als Name in der Listbox Hinterlegt wird für die Übersicht und weiß nicht wie...
2. Als Zweites möchte ich das wenn ich eine Zeile in der Listbox Markiere,das ich sie auch per Kommando Button Löschen kann. Und dann die richtige zeile gelöscht wird von A bis E. ( Bis E weil sich da noch eine weitere Hilfs spalte befindet. wo die Formel nicht gelöscht werden darf)
'Löschen Schaltfläche Ereignisroutine
Private Sub CommandButton2_Click()
Dim LZeile As Long
If ListBox1.ListIndex = -1 Then Exit Sub
Do While Trim(CStr(Sheets("Personalkosten").Cells(LZeile, 1).Value)) <> ""
If ListBox1.Text = Trim(CStr(Sheets("Personalkosten").Cells(LZeile, 1).Value)) Then
Sheets("Personalkosten").Rows(CStr(LZeile & ":" & LZeile)).Delete Er Markiert mir immer diese Zeile bei dem versuch den gewählten Beitrag zu Löschen
Call UserForm_Initialize
If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
Exit Do
End If
LZeile = LZeile + 1
Loop
End Sub
Im Anhang ist die Kalkulation Mappe / die Userform heißt Personal erfassung.
Vielleicht könnt Ihr mir ja wieder aus der Patsche Helfen, ich hoffe das es verständlich war und freue mich auf eure Kreativen Köpfe.
Viele Liebe Grüße
Toto