ganz einfache VBA-Schleife

Bild

Betrifft: ganz einfache VBA-Schleife
von: Nadine
Geschrieben am: 18.02.2005 08:42:13
Einen schönen guten Morgen an alle..
...ich weiss nimmer was ich machen soll, irgendwas mache ich falsch mit einer eigentlich ganz einfachen Schleife in VBA oder vielmehr Abfrage:
Dim vergleich As String
Dim vergleich1 As String
vergleich = "T:\Controlling\Leitung\Zielvereinbarungen\Zielerreichungen 2004 & Zielvereinbarungen 2005\test.xls"
vergleich1 = "T:\Mitarbeiter\Zielerreichung\test.xls"
If ThisWorkbook.FullName <> vergleich And <> vergleich1 Then
Application.DisplayAlerts = False
Sheets("jahr").Delete
Sheets("vorjahr").Delete
Application.DisplayAlerts = True
ThisWorkbook.Close savechanges:=True
End If
Application.DisplayAlerts = True
Alleine mit nur "vergleich", sprich einem Pfadabgleich funktioniert es wunderbar, aber nun mit der zweiten nimmer :-(
Was mache ich denn falsch?
Vielen lieben Dank!
Gruss
Nadine

Bild

Betrifft: AW: ganz einfache VBA-Schleife
von: Reinhold
Geschrieben am: 18.02.2005 08:48:35
Hi Nadine,
anstatt
If ThisWorkbook.FullName <> vergleich And <> vergleich1 Then
so:
If ThisWorkbook.FullName <> vergleich And ThisWorkbook.FullName <> vergleich1 Then
Grüße Reinhold
Bild

Betrifft: eine einfache VBA-Schleife ist das nicht...
von: Luc
Geschrieben am: 18.02.2005 08:55:12
...sondern eine Verzweigung, Nadine. Ansonsten hast du die Korrektur von Reinhold.
Gruß Luc, Bln
Bild

Betrifft: AW: eine einfache VBA-Schleife ist das nicht...
von: Nadine
Geschrieben am: 18.02.2005 09:33:41
Vielen lieben Dank ihr zwei! Ich bin zwar der Meinung das ich das so auch vorher schon ausprobiert hätte und es dennoch nicht funktioniert hat, aber ich werde es grad nochmal probieren!
Also vielen lieben Dank und Euch ein schönes Wochenende! Ist echt total lieb, dass man hier immer gleich Hilfe bekommt! :-)
Bild

Betrifft: aber nur wie b.Reinhold Beding richtig! owT
von: Luc
Geschrieben am: 18.02.2005 10:09:55

 Bild

Beiträge aus den Excel-Beispielen zum Thema "ganz einfache VBA-Schleife"