leeres fenster

Forumthread: leeres fenster

leeres fenster

16.10.2007 19:20:34

klaro

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

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: leeres fenster

16.10.2007 19:23:59

Dan
AW: leeres fenster

16.10.2007 20:39:00

Beate
AW: leeres fenster

16.10.2007 21:14:00

klaro
Dateien im Verzeichnis zählen

16.10.2007 21:31:22

Beate
AW: Dateien im Verzeichnis zählen

17.10.2007 08:30:00

klaro

AW: leeres fenster

16.10.2007 19:23:59

Dan

Hi,
was für ein Fenster, Exceltabelle?
mfg Dan

AW: leeres fenster

16.10.2007 20:39:00

Beate

Hallo,
per Makro:
Sub Test()
MsgBox [IF(COUNTA(1:65536)=0,"Tabelle ist leer","Tabelle ist nicht leer")]
End Sub

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

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 As String
    Dim Dateimaske As String
    Dim Anzahl As Integer
    Verzeichnis = "C:\temp" 'Hier Verzeichnis ändern
    Dateimaske = "*.*"
    Anzahl = NumberofFilesInDirectory(Verzeichnis, Dateimaske)
    MsgBox Anzahl & " Dateien im Verzeichnis " & Verzeichnis
End Sub

Function NumberofFilesInDirectory(Directory, Maske) As Integer
    Dim I As Long
    With Application.FileSearch
        .NewSearch
        .LookIn = Directory
        .Filename = Maske
        NumberofFilesInDirectory = .Execute(SortBy:=msoSortByFileName, _
            SortOrder:=msoSortOrderAscending)
    End With
End Function

Gruß,
Beate

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

Beliebteste Forumthreads (12 Monate)

Forumthread: leeres fenster

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread