Clever-Excel-Forum

Hi Leute,

ich benötige Hilfe bei folgendem Code:




Der Code funktioniert, solange in !Urlaubswuensche A2 etwas steht. Ich bekomme es allerdings nicht hin, da vorher eine Abfrage zu starten :(. Kann mir da wer bei helfen?
Im Prinzip soll er den Part des Löschens von Urlaubwünschen nur ausführen, wenn in !Urlaubswuensche A2 etwas steht.

Danke im voraus :)

Hi,

alle Dim-Anweisungen sollten am Anfang des Codes stehen!

1. Zeile:

Hi Boskobiati,

das mit den dim-Anweisungen verstehe ich, da war ich vielleicht ein wenig unsauber, danke!

Dein Tipp erfüllt leider nicht alle meine Kriterien. Wenn A2 leer ist, soll er trotzdem noch den Mitarbeiter löschen. Nur nicht die Urlaubswünsche, da er dort in einen Laufzeitfehler läuft :(

Gruß

Hi,

da ich nicht weiß, wie das Ganze aussieht:

Vielen Dank für deine Mühe, aber das ist auch nicht das, was ich brauche.

Ich versuche es noch ein Mal genauer zu erklären:

Mittels Userform "erstelle" ich Mitarbeiter. Die landen in !Mitarbeiter A:A.
Mittels weiterer Userform können dann Urlaubswuensche für die jeweiligen Mitarbeiter erstellt werden. Diese landen in !Urlaubswuensche A:A


Wenn ich nun einen Mitarbeiter entfernen möchte, soll er die gesamte Zeile in !Mitarbeiter A:A löschen, bei dem er den Namen findet.
Ebenso soll er mit dem zweiten Teil des Codes alle Urlaubswuensche in !Urlaubswuensche löschen. Dies funktioniert jedoch nur, wenn überhaupt ein Urlaubswunsch vorhanden ist. Sofern gar keiner eingetragen, bzw. zu der Person (ich lasse ja vorher filtern) kein Urlaubswunsch eingetragen ist, haut er mir einen Fehler raus.

Ich stelle mir das in etwa so vor (siehe Kommentar im letzten Drittel mit capslock):

Kann es sein, dass er hir


Hängen bleibt?

Ich meine das gehört so

Zitat:

Code:

ThisWorkbook.Sheets("Mitarbeiter").Rows(finden.Row).Delete Shift:=xlUp

das Problem besteht ja in den Urlaubswünschen und dort darin, dass ein Bereich gelöscht werden soll, welcher nicht existiert. Man könnte auch hier mit .Find() prüfen ob denn ein Eintrag existiert und nur filtern/löschen wenn ein Eintrag gefunden wird. Bestimmt gibt es aber auch eine Möglichkeit, den Inhalt des Autofilters zu prüfen.

den Bereich kann man auch abfragen und löschen mit:

Hi Frogger,

deine Löschvariante klingt auch sehr gut, allerdings hat sie nicht das Problem an sich gelöst. Kannst du so abschätzen, welche Performance besser sein dürfte?
Wofür steht das shift:=xlup?
Habe es dazugeschrieben, soweit ändert sich aber nichts am Ergebnis :)

Habe den halben Tag weitergebastelt und nun folgende Formel zusammengeschustert.... bislang funktioniert sie super, oder sieht jemand, ob etwas fehlt?





P.S.: Die Bedingung von A2 muss gefüllt sein habe ich nun noch angepasst. Nur A2 gefüllt reichte nicht aus. Es soll auch zu dem Mitarbeiter natürlich ein Wunsch vorhanden sein :)
P.S.S.: Zu früh gefreut ... irgendwo hängt er wieder :(. Die Delete-Methode des Rangeobjekts konnte nicht ausgeführt werden.

Hallo,

Sub Wunschloeschen3()

  Dim finden As Range

  Dim finden2 As Range

  Dim Frage As Integer

  Dim last As Long

  last = ThisWorkbook.Sheets("Urlaubswuensche").Cells(Rows.Count, 1).End(xlUp).Row

  Set finden = ThisWorkbook.Sheets("Mitarbeiter").Range("A2:A50").Find(what:="Name", lookat:=xlWhole)

  Set finden2 = ThisWorkbook.Sheets("Urlaubswuensche").Range("A1:A" & last).Find(what:="Name", lookat:=xlWhole)

  Frage = MsgBox("Der folgende Mitarbeiter und alle seine Urlaubswünsche werden unwiderruflich gelöscht: " + Chr(13) + Chr(13), vbOKCancel + vbExclamation, "Mitarbeiter löschen?")

  If Frage = vbOK Then

    If Not finden Is Nothing Then

      finden.EntireRow.Delete shift:=xlUp

      If Not finden2 Is Nothing And last > 1 Then

        With finden2.Parent

          .Range("A1").AutoFilter field:=1, Criteria1:="Name"

          .Range("A2:A" & last).SpecialCells(xlVisible).EntireRow.Delete shift:=xlUp

          .Range("A1").AutoFilter

        End With

        Unload Me

      End If

    End If

  End If

End Sub

Gruß Uwe