Ich wollte dass in einer Tabelle die Spalte A nach einer Auswahl einer combobox durchsucht wird und der gefundene eintrag gelöscht wird bzw die zeile.
Daraufhin bekam ich folgenden Code:
Dim liZeile As Integer
If cbxentf.Text = "...bitte auswählen..." Then Exit Sub
liZeile = 1
Do Until Sheets("Mitspieler").Range("A" & liZeile).Value = ""
If cbxentf.Text = Sheets("Mitspieler").Range("A" & liZeile).Value Then
Sheets("Mitspieler").Range("A" & liZeile).Delete Shift:=xlUp
liZeile = 1
Application.DisplayAlerts = False
Sheets(cbxentf.Text).Delete
Application.DisplayAlerts = True
Exit Do
End If
liZeile = liZeile + 1
Loop
Dieser ist ja auch leicht zu verstehen, nun muss ich allerdings nicht mehr in den Zeilen sondern in den Spalten suchen, d.h. wenn z.b.: in (es geht immer um Zeile 1) b1 der ausgewählte name steht soll die Spalte gelöscht werden. ich weiß aber nicht wie ich buchstaben hochzählen kann. kann mir Jemand helfen?
Gruß Markus