Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
916to920
916to920
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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
Anzeige
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
1WAHR

Formeln der Tabelle
ZelleFormel
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 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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige