Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
464to468
464to468
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

If Funktion...

Forumthread: If Funktion...

If Funktion...
06.08.2004 19:40:04
Walter
Hallo Fachleute,
in meinem Makro möchte ich abfragen, wenn die Datei da ist, dann i.o.
sonst weitermachen.

Sub N_Datenbank_Zeile_löschen()
Dim z
Dim Antwort
Sheets("Datenbank").Unprotect ("ww")                       'schutz aufheben
z = ActiveCell().Row
If ActiveSheet.Range(Cells(z, 1), Cells(z, 9)).Select Then
Antwort = MsgBox("Zeile wirklich Löschen ???", vbYesNo)
If Antwort = vbNo Then
Worksheets("Datenbank").Activate
Else:  Selection.Delete Shift:=xlUp
End If
End If
ActiveSheet.Range(Cells(z, 1), Cells(z, 1)).Select    'geht zur aktiven zelle
Sheets("Datenbank").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios _
:=True, Password:="ww"
'Hier soll rein:   1-nw-plk.xls da i.o., sonst Makro: N_NW_Aktualisieren
Application.Run "'1-nw-plk.xls'!N_NW_Aktualisieren"
Windows("1-NW-PLK-Datenbank.xls").Activate
End Sub

Gruß Walter
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: If Funktion...
06.08.2004 20:46:34
Ramses
Hallo
das kannst du sicher einbauen
Option Explicit

Sub test()
Dim wb As Workbook
For Each wb In Application.Workbooks
If UCase(wb.Name) = "1-NW-PLK.XLS" Then
Application.Run "'1-NW-PLK.XLS'!N_NW_Aktualisieren"
Else
Windows("1-NW-PLK-Datenbank.xls").Activate
End If
Next
End Sub


Gruss Rainer
Anzeige
Super, danke
06.08.2004 20:55:21
Walter
Hallo Rainer,
herzlichen Dank für deine schnelle Hilfe, funktioniert prima.
Gruß Walter
AW: If Funktion...
06.08.2004 20:55:27
Björn B.
Hallo Walter,
ich löse das Problem immer über einen Verweis auf das "Windows Script Host Object Model" und nutze dort das FileSystemObject
kleines Beispiel:

Sub test()
Dim fso As New FileSystemObject
If fso.FileExists("C:\Eigene Dateien\Mappe10.xls") Then
MsgBox "Vorhanden!"
Else
MsgBox "Nicht vorhanden!"
End If
End Sub

Gruß
Björn
Anzeige
Ich bin begeistert...
06.08.2004 20:59:48
Walter
Hallo Björn,
dein Idee funktioniert ebenfalls, herzlichen Dank.
Gruß Walter
Danke für die Rückmeldung - o. T.
07.08.2004 11:37:51
Björn B.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige