Löschen mittels Combobox

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dim lZeile As Long, lZeile = 2 Do While Trim(CStr(Tabelle2.Cells(lZeile, 2).Value)) "" 'Name der Tabelle ändern If comboBox1.Text = Trim(CStr(Tabelle2.Cells(lZeile, 2).Value)) Then 'Name der _ Combobox/Tabelle ändern Tabelle2.Rows(CStr(lZeile & ":" & lZeile)).delete 'Name der Tabelle ändern End If End With Exit Do End If lZeile = lZeile + 1 Loop

Dim lZeile As Long lZeile = 2 Do While Trim(CStr(Tabelle1.Cells(lZeile, 2).Value)) "" 'Name der Tabelle ändern If ComboBox1.Text = Trim(CStr(Tabelle1.Cells(lZeile, 2).Value)) Then 'Name der _ Combobox/Tabelle ändern Tabelle1.Rows(CStr(lZeile & ":" & lZeile)).Delete 'Name der Tabelle ändern Exit Do End If lZeile = lZeile + 1 Loop

Private Sub UserForm_Initialize() Dim lZeile As Long With ThisWorkbook.Worksheets("Abwesenheiten") For lZeile = 6 To .Cells(.Rows.Count, 2).End(xlUp).Row ComboBox1.AddItem .Range("B" & lZeile).Value Next lZeile End With End Sub

Hi Helmut,
ja genau so ist es. Du musst also nach dem Löschen der Zeile nur das Initialize-Ereignis noch einml ausführen, um die ComboBox neu zu füllen:


If ComboBox1.ListIndex > -1 Then
Rows(ComboBox1.ListIndex + 6).Delete
ComboBox1.Clear
UserForm_Initialize
End If

Noch etwas Generelles: du verwendest das Change-Ereignis der ComboBox um die Daten zu löschen - was passiert, wenn du aus Versehen den falschen Namen ausgewählt hast? Die Zeile ist unwiderruflich weg. Deshalb hatte ich dir vorgeschlagen, stattdessen aus Sicherheitsgründen das Doppelklick-Ereignis zu verwenden, denn damit wählst du zuerst etwas aus, dann machst du den Doppelklick und ERST DANN wird die Zeile gelöscht - du kannst deine Auswahl also problemlos korrigieren.

Guten Morgen Karin
Also jetzt funktioniert diese Sache so weit bestens, auch nochmals recht herzlichen Dank für den Vorschlag mit dem Doppelklick-Ereignis, habe dieses auch zu Anwendung gebracht.
Ein kurzes Problem habe ich noch: mit der Eingabe eines Namens in eine Textbox und anschließenden betätigen eines Buttons wird der Name in das Tabellenblatt eingetragen. Nun ist es so, dass ich den Button oft bis zu dreimal anklicken muss bis er reagiert. Beim 1. anklicken sehe ich aber schon, dass er irgendwie gedrückt wird jedoch dürfte die Zeitverzögerung eventuell im Code liegen.

Private Sub CommandButton3_Click() ' Sortieren der Mitarbeiter incl. Abteilung
Range("B6:PJ1500").Select
ActiveWorkbook.Worksheets("Abwesenheiten").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Abwesenheiten").Sort.SortFields.Add Key:=Range("B6") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Abwesenheiten").Sort
.SetRange Range("B6:PJ1500")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Columns("D:D").Select 'Blendet Spalte "Abteilung" wieder aus'
Selection.EntireColumn.Hidden = True
ActiveSheet.Range("$B$5:$D$1000").AutoFilter Field:=3
If TextBox2.Value = "" Then MsgBox "Das Namensfeld darf nicht leer bleiben": Exit Sub
Range("A1").Select ' und geht zurück auf "A1"
UserForm2.TextBox1.Value = ""
UserForm2.TextBox2.Value = ""
MsgBox "Mitarbeiter erfolgreich angelegt"
End Sub

Hast du hier eventuell auch noch einmal einen Rat parat?
Besten Dank im Voraus, lg Helmut

Private Sub CommandButton3_Click() ' Sortieren der Mitarbeiter incl. Abteilung Application.ScreenUpdating = False With ActiveWorkbook.Worksheets("Abwesenheiten") .Range("B6:PJ1500").Sort Key1:=.Range("B6"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortTextAsNumbers .Columns("D:D").EntireColumn.Hidden = True 'Blendet Spalte "Abteilung" wieder aus' .Range("$B$5:$D$1000").AutoFilter Field:=3 If TextBox2.Value "" Then UserForm2.TextBox1.Value = "" UserForm2.TextBox2.Value = "" MsgBox "Mitarbeiter erfolgreich angelegt" Else MsgBox "Das Namensfeld darf nicht leer bleiben" End If End With Application.ScreenUpdating = True End Sub

Private Sub TextBox1_AfterUpdate() 'textbox für Mitarbeiter anlegen If TextBox1 " " Then Cells(Range("B1500").End(xlUp).Offset(1, 0).Row, 2) = TextBox1 Else MsgBox "Sie haben keinen Namen eingegeben.", vbInformation End If End Sub

Private Sub TextBox2_AfterUpdate() 'Textbox für Abteilung anlegen If TextBox2 " " Then Cells(Range("B1500").End(xlUp).Offset(0, 0).Row, 4) = TextBox2 Else MsgBox "Sie haben keine Abteilung eingegeben.", vbInformation End If End Sub

Private Sub CommandButton3_Click() ' Sortieren der Mitarbeiter incl. Abteilung With ActiveWorkbook.Sheets("Abwesenheiten") .Range("B6:PJ1500").Select .Sort.SortFields.Clear .Sort.SortFields.Add Key:=Range("B6"), SortOn:=xlSortOnValues, Order:=xlAscending, _ DataOption:=xlSortNormal With .Sort .SetRange Range("B6:PJ1500") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With .Columns("D:D").EntireColumn.Hidden = True 'Blendet Spalte "Abteilung" wieder aus' .Range("$B$5:$D$1000").AutoFilter Field:=3 End With If TextBox2.Value = "" Then MsgBox "Das Namensfeld darf nicht leer bleiben": Exit Sub Range("A1").Select ' und geht zurück auf "A1" UserForm2.TextBox1.Value = "" UserForm2.TextBox2.Value = "" MsgBox "Mitarbeiter erfolgreich angelegt" End Sub

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Löschen mittels Combobox

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread