Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1092to1096
1092to1096
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nicht ausgeblendete Windows d aktiven DAtei zählen

Forumthread: Nicht ausgeblendete Windows d aktiven DAtei zählen

Nicht ausgeblendete Windows d aktiven DAtei zählen
Peter
Guten Abend
Nachfolgender Code soll nur ablaufen, wenn die DAtei nicht ausgeblendet ist. Das funktioniert so. Wenn ich allderdings eine Datei öffne, die mit zwei Fenstern gespeichert wurde, führt die bei"If Windows(ThisWorkbook.Name).Visible zu einer Fehlermeldung - wohl weil mehr als ein Fenster sichtbar ist.
Gibt es eine Möglichkeit, die sichtbaren Windows von ThisWorkbook zu zählen? Dann könnte ich aus dem Sub Aussteigen, wen die Anzahl kleiner als 1 ist. Bei 2 oder mehreren Fenstern würde dann wohl keine Fehlermeldung mehr erscheinen.
Gruss, Peter
Private Sub Workbook_open()
If Windows(ThisWorkbook.Name).Visible = False Then Exit Sub
Call ...
End Sub

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Windows einer Mappe
13.08.2009 21:33:15
Erich
Hi Peter,
so kommst du an alle Fenster der Mappe: 

Private Sub Workbook_open()
Dim wndM As Window
For Each wndM In ThisWorkbook.Windows
If wndM.Visible Then
'xxx
Exit Sub ' (evtl.)
Else
'xxx
End If
Next wndM
End Sub
Was das Makro im einen oder anderen Fall tun soll, weiß ich ja nicht.
Du kannst z. B. (mit Exit Sub) etwas in höchstens einem sichtbaren Fenster der Mappe erledigen lassen.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Windows einer Mappe
14.08.2009 06:25:35
Peter
Hallo Erich
Danke für den Code. Ich habe nun daraus ThisWorkbook.Windows genommen und .Count angehängt und in meinen Code integriert. Der aktuelle Code hat nichts mit den Fenstern zu tun, muss jedoch laufen, egal wieviele Fenster vorhanden sind, solange mindestens 1 sichtbar ist.
Danke und Gruss, Peter 
Private Sub Workbook_open()
If ThisWorkbook.Windows.Count

Anzeige
AW: Windows einer Mappe
14.08.2009 09:53:19
Erich
Hi Peter,
mit diesem Code hast du m. E. nicht viel Freude:
ThisWorkbook.Windows.Count kann nicht kleiner als 1 sein, also läuft dein "Call" immer.
Du willst ihn aber nur dann laufen lassen, wenn es mindestens 1 eingeblendetes Window der Mappe gibt.
Das würde ich so machen: 

Private Sub Workbook_open()
Dim wndM As Window
For Each wndM In ThisWorkbook.Windows
If wndM.Visible Then
'Call ...
Exit For
End If
Next wndM
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Windows einer Mappe
14.08.2009 10:36:49
Peter
Hallo Erich
du hast vollkommen recht - ich hatte einen Test zuwenig gemacht.
Mit deinem Code lauft es nun wie gewünscht.
Vielen Dank!
Gruss, Peter
;

Forumthreads zu verwandten Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Teile von Zahlen auslesen und einfügen
Zahlen

Hallo Leute,
ich habe ein Problem mit Zahlenformaten.
In meiner Tabelle steht der Text '4917234598' (natürlich viele solcher Zahlen untereinander.
Jetzt möchte ich, daß diese Zahl (später eine ganze Spalte) über Makro so aufbereitet wird, daß aus '4917234598' 017234598 wird.
08.08.2008 22:57:00
Thread-ID: 1000426
21 Beiträge
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Inputbox - eingegebene Zahl aus Variable
bernie

Hallo Helfer,
ich habe mit den Inputbox (en) ein Problem.
In möchte in eine Inpubox eine Zahl eingeben, welche dann in meinem Makro als Variable zur Verfügung stehen soll.
In Spalte A stehen neben dem Namen auch die Ruf-Nummern.
Die Rufnummern lasse ich mir in Spalte B ausg...
16.08.2008 17:44:00
Thread-ID: 1002347
3 Beiträge
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
Zahlen einer Tabelle in Userform einlesen
Josef

Guten Morgen!
Ich habe in einem Arbeitsblatt mehrere Tabellen.
In einer UserForm habe habe ich 460 TextBoxen, wobei die Zählung immer pro Reihe senkrecht erfolgt.
Spalte 1 = TextBox1-23, Spalte2 = TextBox24- TextBox46 usw.
Ich möchte nun z.B. die erste Tabelle in die Textboxen e...
20.08.2008 07:07:03
Thread-ID: 1003059
19 Beiträge
Erste Zahlen eine Tel.-Tabelle in Farbe
Bernie
Hallo,
in einer Telefontabelle, welche sich ständig ändert, möchte ich die ersten 4 Ziffern der Rufnummer per Makro rot einfärben.
Hat jemand eine gute Idee?
https://www.herber.de/bbs/user/54765.xls
21.08.2008 12:04:53
Thread-ID: 1003430
4 Beiträge
Umwandlung text nach zahlen bei Formulareingabe
Dieter

Hallo miteinander,
ich habe ein Problem mit der umwandlung von Text nach Zahlen. In meinem Formular habe ich Textfelder definiert, in dem eigentlich nur Zahlen eingetragen werden. Nun sollen diesen Werte in einer Zelle abspeichern und weitere Berechnung durchführen, leider werden diese Zahl...
26.08.2008 19:48:34
Thread-ID: 1004910
4 Beiträge
Zahlencode mit Punkte Formatieren
runny

Wer kann mir weiter helfen.
Ich habe einen 10-stelligen Zahlencode 0265006214 und diesen soll Excel autom. in das Format 0265.006.214 bringen.
Also nach der 4.Stelle und der 7.Stelle einen Punkt (SAP-Format). Zelle formatieren und ####.###.### habe ich schon ohne Erfolg geprüft.
Er...
28.08.2008 00:14:00
Thread-ID: 1005247
3 Beiträge
Anzeige
Anzahl Monatseinträge
Hartwig

Hallo Guten Morgen.
Ich suche eine Formel mit der ich aus einer Liste von Datumsangaben die Anzahl
der Einträge für die einzelnen Monate errechnen kann.
In Spalte A steht z.B.
01.01.2008
14.01.2008
17.01.2008
04.02.2008
26.02.2008
05.03.2008
Als Ergebnis...
29.08.2008 09:43:00
Thread-ID: 1005683
2 Beiträge
Anzahl mit mehreren Kriterien berechnen
TobiasM

Hallo,
ich habe aus einer Datentabelle Summen über folgende Formel berechnet:
=SUMMENPRODUKT((Daten!$E$2:$E$571=2005)*(Daten!$B$2:$B$571="Mittelstand")*(Daten!$F$2:$F$571=50) *(Daten!$G$2:$G$571))
Enspricht Berechnung Summe Umsatz (Spalte G) mit folgenden Kriterien:
Jahr: 2005...
29.08.2008 12:07:00
Thread-ID: 1005786
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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