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:
Hallo,
sind ein bisschen viele Then´s drin.
Gruß Uwe
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...
Hallo,
Sub VerzeichnisLoeschen()
If Dir(Sheets(2).Cells(7, 35)) <> "" Then Kill Sheets(2).Cells(7, 35)
End Sub
Gruß Uwe
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.
Jetzt... bringt er Laufzeitfehler 13 Typen unverträglich... mennno
Nochmal den Zellbezug überarbeitet.... Freuuuuu Läuuuuuft
VIIIIELEN DAAANK, ihr seit SUUUUPER :05:
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
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
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
Hallo Marcus,
bei meinem letzten Code werden alle Fehler abgefangen im Gegensatz zu dem, den Du Dir jetzt abgespeichert hast.
Gruß Uwe