Clever-Excel-Forum

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

Hallo,

ungeprüft:

ersetze

Code:
 EntireRow(rng).Select

                Selection.Delete Shift:=xlUp

durch

Code:
rng.row.entirerow.delete

mfg

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

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

Safety-Tussi

Fennek

Kuwer

Safety-Tussi