Zeile in Excel löschen?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Christian
... in eine Variable
Wie füllst Du denn die Combobox, mit AddItem?
Einfach wie Hajo es vorschlägt (Zitat: Lösche Zeile Listindex+1)
würde ich das nicht tun.
Du schreibst ja das Du die Box erst ab Zeile(3) füllst.
Wenn Du Hajos Vorschlag benutzen würdest, und Du wählst
z.B. den ersten Eintrag in der Combobox aus. würdest Du die Zeile(l) löschen.
Das Du das so willst wage ich zu bezweifeln.
Vorschlag:
Zum Suche des entsprechenden Eintrages aus der Combobox in der/den Tabelle(n)
benutze einfach Find.
Mit entsprechender Fehlerbehandlung kannst Du Dir so die Zeile ausgeben lassen
in der Dein Suchstring(Combobox1.Value) steht. So lässt sich Diese dann auch gezielt löschen.
Gruß Matthias

With Sheets("MyPortal") For Each rngC In .Range("B3:B1000") If rngC = "" Then Exit For UserForm_BestGuide.ComboBox_Löschen.AddItem rngC Next End With With Sheets("OneERP") For Each rngC In .Range("B3:B1000") If rngC = "" Then Exit For UserForm_BestGuide.ComboBox_Löschen.AddItem rngC Next End With

Private Sub ComboBox_Löschen_Change() ' Suchen in Tabelle 1 Dim RaFound1 As Range With Worksheets("MyPortal") With .Range("B:B") 'Spalte B durchsuchen Set RaFound1 = .Find(ComboBox_Löschen, .Cells(1, 1), xlFormulas, xlWhole, , xlNext) End With ' Suchen in Tabelle 2 With Worksheets("OneERP") With .Range("B:B") 'Spalte B durchsuchen Set RaFound1 = .Find(ComboBox_Löschen, .Cells(1, 1), xlFormulas, xlWhole, , xlNext) End With End Sub

Hallo
Was hat denn

Worksheets("Tabelle1).Range("B:I").Delete

mit diesem Code zu tun?

Private Sub ComboBox_Löschen_Change()
' Suchen in Tabelle 1
Dim RaFound1 As Range
With Worksheets("MyPortal")
With .Range("B:B") 'Spalte B durchsuchen
Set RaFound1 = .Find(ComboBox_Löschen, .Cells(1, 1), xlFormulas, xlWhole, , xlNext)
End With
' Suchen in Tabelle 2
With Worksheets("OneERP")
With .Range("B:B") 'Spalte B durchsuchen
Set RaFound1 = .Find(ComboBox_Löschen, .Cells(1, 1), xlFormulas, xlWhole, , xlNext)
End With
End Sub

Und dann zähl mal wie oft Du
With
und
End With
im Code hast
Das sollte immer gleich sein.
Außerdem liest Du nirgendwo die Zeile ein in der Dein Wert aus der Combobox steht.
Hier mal ein Bsp-Datei zum besseren Verständnis:
https://www.herber.de/bbs/user/87446.xlsm
So nun heißt es aber lernen, denn viel mehr kann ich nicht für Dich tun.
Userbild

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeile in Excel löschen?

9 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)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread