komplette Zeile löschen; war: Steh grad aufm Schlauch -,-

[Safety-Tussi]

Help ^^

stehe grad irgendwie aufm schlauch und finde keine lösung. vermutlich ist der chronische schlafmangel schuld, den ich habe seit meine kinder auf der welt sind :D  Die kinder sind schuld .... oder ich hab einfach keine Ahnung ^^

folgendes.... ich suche über ein range objekt eine zelle und will die gefundene zelle einfach nur auswählen und die zeile löschen. mit .select klappt das aber nicht. wer weiß weiter?

Code:

Dim rng As Range

With Sheets("Bestand").Columns(2)
   Set rng = .Find(What:=Sheets("Stammdaten ändern").Cells(5, 3), LookIn:=xlValues, LookAt:=xlWhole,               SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
   If Not rng Is Nothing And rng.Offset(0, 45).Value = 0 Then
               EntireRow(rng).Select
               Selection.Delete Shift:=xlUp
   Else: MsgBox ("Es sind Daten vorhanden, die Stammdaten können daher im Bestand nicht gelöscht
                   werden!")
   End If
End With

[Fennek]

Hallo,

ungeprüft:

ersetze

Code:

 EntireRow(rng).Select
               Selection.Delete Shift:=xlUp

durch

Code:

rng.row.entirerow.delete

mfg

[Kuwer]

Hallo,

  Dim rng As Range

 

 With Sheets("Bestand").Columns(2)

   Set rng = .Find(What:=Sheets("Stammdaten ändern").Cells(5, 3), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

   If Not rng Is Nothing Then

     If rng.Offset(0, 45).Value = 0 Then

       rng.EntireRow.Delete

     Else

       MsgBox "Es sind Daten vorhanden, die Stammdaten können daher im Bestand nicht gelöscht werden!"

     End If

   End If

 End With

Gruß Uwe

[Safety-Tussi]

ja, klasse. Danke, so klappt das ! ;)