Kill Makro nit Zellbezug

[Mephisto50]

Guten Mittag wünsche ich Euch...

Aus dem zweiten Tabellenblatt, Zelle G35 möchte ich ein Pfad auslesen. Dieser ändert sich ständig. Wenn die Datei beendet wird (löse ich über anderes Makro) soll mit diesem Makro die Übungsdatei gelöscht werden.

Sub VerzeichnisLoeschen()
Dim Datei As String
If Dir Then Sheets(2).Cells(7, 35) <> "" Then Kill Then Sheets(2).Cells(7, 35)
End Sub

So funktioniert er noch nicht :16:

[Kuwer]

Hallo,

sind ein bisschen viele Then´s drin.

Gruß Uwe

[Mephisto50]

Und jetzt zuwenig? Magst mal korrigieren? Seufz...

Sub VerzeichnisLoeschen()
Dim Datei As String
If Dir Sheets(2).Cells(7, 35) <> ""Kill Sheets(2).Cells(7, 35)
End Sub

Es bleibt immer rot...  

[Kuwer]

Hallo,

Sub VerzeichnisLoeschen()
  If Dir(Sheets(2).Cells(7, 35)) <> "" Then Kill Sheets(2).Cells(7, 35)
End Sub

Gruß Uwe

[MisterBurns]

Also eine Wenn-Dann-Sonst-Anweisung enthält - du errätst es vielleicht schon...
1. einen Wenn-Teil
2. einen Dann-Teil
3. einen optionalen Sonst-Teil

Soviel zur Theorie

Probier's mal selbst, indem du logisch vorgehst:

WENN Blatt(2).Zelle(7, 35) nicht leer DANN Lösche Datei

EDIT: Mist, Uwe ist ein Spielverderber.

[Mephisto50]

Jetzt... bringt er Laufzeitfehler 13 Typen unverträglich... mennno

Nochmal den Zellbezug überarbeitet.... Freuuuuu Läuuuuuft

VIIIIELEN DAAANK, ihr seit SUUUUPER :05:

[marose67]

Hallo Uwe ... Hallo @ all,
also bei mir kommt dann (Excel 2003) ein Fehler. Typen unverträglich ...

also dachte ich in Richtung Mister Burns ... ich muss wieder alles neu erlernen ...

Code:

Option Explicit

Sub VerzeichnisLoeschen()
   If Dir(Sheets(2).Cells(7, 35)) <> "" Then
       Kill Sheets(2).Cells(7, 35)
   Else
       MsgBox ("Zelle ist leer")
   End If
End Sub

Lg
Marcus

[Kuwer]

Hallo Zusammen,

Bernie brachte es schon: Grundsätzlich sollte erst einmal geprüft werden, dass die Zelle nicht leer ist. Also z.B. so:

Sub VerzeichnisLoeschen()
  Dim Datei As String
  Datei = Sheets(2).Cells(7, 35)
  If Datei <> "" Then
    If Dir(Datei) <> "" Then
      Kill Datei
    End If
  End If
End Sub

Gruß Uwe

[marose67]

Hallo Uwe,
danke Dir für deine Info. Natürlich sind hier Fehler noch nicht gut abgefangen, aber das war auch nicht gefragt. Ich speicher mir diesen Code erst einmal ab:

Code:

Sub VerzeichnisLoeschen1()
 Dim Datei As String
 Datei = Sheets(2).Cells(7, 35)
   If Datei <> "" Then
       Kill Datei
   End If
End Sub

Danke Dir vielmals. Ich hoffe ich bekomme mein Gehirn wieder auf den richtigen Weg.

Lg und einen schönen Tag ...
Marcus

[Kuwer]

Hallo Marcus,

bei meinem letzten Code werden alle Fehler abgefangen im Gegensatz zu dem, den Du Dir jetzt abgespeichert hast.

Gruß Uwe