Hallo Leute!
Wer kann helfen
also wie kann man ermittlen ob ein geöffnetes fenster
auf den bildschirm leer ist oder text enthält?
Kann man eine anfrage schreiben und ergebnis
wahr bekommen?
Grüße
klaro
Hallo,
per Makro: Sub Test() MsgBox [IF(COUNTA(1:65536)=0,"Tabelle ist leer","Tabelle ist nicht leer")] EndSub
Oder zur Auswertung in einer Zelle der Tabelle, wobei diese Zelle ja eine Zelle belegt und somit WAHR ausgegeben wird, wenn 1 rauskommt:
A
1
WAHR
Formeln der Tabelle
Zelle
Formel
A1
=WENN(ANZAHL2(1:65536)=1;WAHR;FALSCH)
Gruß,
Beate
Anzeige
AW: leeres fenster
16.10.2007 21:14:00
klaro
Hallo Beate!
Danke sehr ich habe jedoch vergessen sagen
das es kein excel fenster sondern fenster
von explorer sein sollte,o waja,ob sowas
überhaupt möglich ist?
grüße
klaro
Dateien im Verzeichnis zählen
16.10.2007 21:31:22
Beate
Hallo,
Füge diesen Code in ein Modul deiner Datei ein. Durch Aufruf des Makros DateiAnzahl() wird dir die Anzahl der Dateien im Verzeichnis c:\temp angegeben. Den Pfad musst du im Code ändern, auf das Verzeichnis, welches du auswerten willst: ' ********************************************************************** ' Modul: Modul1 Typ: Allgemeines Modul ' **********************************************************************
Sub DateiAnzahl() Dim Verzeichnis AsString Dim Dateimaske AsString Dim Anzahl AsInteger Verzeichnis = "C:\temp"'Hier Verzeichnis ändern Dateimaske = "*.*" Anzahl = NumberofFilesInDirectory(Verzeichnis, Dateimaske) MsgBox Anzahl & " Dateien im Verzeichnis " & Verzeichnis EndSub
Function NumberofFilesInDirectory(Directory, Maske) AsInteger Dim I AsLong With Application.FileSearch .NewSearch .LookIn = Directory .Filename = Maske NumberofFilesInDirectory = .Execute(SortBy:=msoSortByFileName, _ SortOrder:=msoSortOrderAscending) EndWith EndFunction
Gruß,
Beate
Anzeige
AW: Dateien im Verzeichnis zählen
17.10.2007 08:30:00
klaro
Hallo Beate!
ich bin sprachlos
danke sehr
und ein guten tag
grüße
klaro