Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
24.04.2024 09:24:20
Textketten erstellen mit unterschiedlichen Anzahl an Feldern
24.04.2024 09:04:14
Erfahrung Umstieg in Sharpoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1344to1348
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1344to1348
1344to1348
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zählenwenn nur in aktivem Sheet

Zählenwenn nur in aktivem Sheet
26.01.2014 17:19:05
Albert
Hallo zusammen,
ich verwende diesen Codeschnipsel, um in einem Sheet nach drei Bedingungen zu zählen.
Sub test()
.Label102.Caption = Application.WorksheetFunction.CountIfs( _
Sheets("Regelschichtplan").Range(Columns(rngDatum.Column), Columns(rngDatum. _
Column)), Left(.ComboBox2.Value, 1), _
Sheets("Regelschichtplan").Range("C:C"), .Label100.Caption, _
Sheets("Regelschichtplan").Range("B:B"), .TextBox5.Value)
End Sub
Mein Problem ist, dass die Formel nur funktioniert, wenn ich das aktive Sheet offen hab, in dem auch gezählt werden soll.
Sobald ich aber die Userform von einem anderen Sheet aus anzeigen lasse, läuft ein Fehler auf.
Was mach ich falsch...?
Danke schon mal für eure Hilfe
Gruß
A.

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zählenwenn nur in aktivem Sheet
26.01.2014 17:23:19
Matze
Hallo Albert,
dann weise der Sub auch an das du immer im "aktuellen" Sheet was berechnen willst
with activeSheet
'Dein vorhaben
end with
Matze

AW: Zählenwenn nur in aktivem Sheet
26.01.2014 17:27:06
Matze 
Sub test()
'wenn du nun im Blatt Regelschichtplan bist
With ActiveSheet
.Label102.Caption = Application.WorksheetFunction.CountIfs(.Range(Columns(rngDatum.Column),  _
Columns(rngDatum.Column)), Left(.ComboBox2.Value, 1), .Range("C:C"), .Label100.Caption, .Range("B:B"), .TextBox5.Value)
End Sub

AW: Zählenwenn nur in aktivem Sheet
26.01.2014 17:50:30
Albert
Servus Matze,
genau das möchte ich vermeiden, dass das Sheet Regelschichtplan offen ist...
Aber wie mach ich das?
Gruß
A.

Anzeige
AW: Zählenwenn nur in aktivem Sheet
26.01.2014 17:55:23
Matze 

Sub test()
With Sheets("Regelschichtplan")'nur mit diesem Blatt
.Label102.Caption = Application.WorksheetFunction.CountIfs(.Range(Columns(rngDatum.Column), _
_
Columns(rngDatum.Column)), Left(.ComboBox2.Value, 1), .Range("C:C"), .Label100.Caption, .Range( _
"B:B"), .TextBox5.Value)
End Sub

AW: Zählenwenn nur in aktivem Sheet
26.01.2014 18:47:26
Albert
Selbiges Problem...
sobald ich den Code laufen lasse und ein anderes Sheet aktiv ist, funktioniert es nicht mehr
Shit...
A.

AW: Zählenwenn nur in aktivem Sheet
26.01.2014 19:01:38
Matze
hallo Albert,
ich bin leider aufen Sprung, was bekommste denn für ne Fehlermeldung?
Kannst du die Datei nicht einstellen?
Matze

Anzeige
AW: Zählenwenn nur in aktivem Sheet
26.01.2014 19:03:55
Albert
Laufzeitfehler 1004 - Anwendungs- oder objektdefinierter Fehler
Und ich denke mit 100%iger Bestimmtheit, dass es am nicht aktiven Sheet Regelschichtplan liegt...
Danke derweil
A.

AW: Zählenwenn nur in aktivem Sheet
26.01.2014 23:32:40
Matze
benutz mal wenn du es aus einer UserForm aufrufst mit Private Sub
Soll das per Button gestartet werden? Oder mit einem UserForm_Ereignis?
Darfst du die Datei nicht einstellen, ersetze Namen durch ein paar Musterbeispiele,.
Ansonsten aus einem Modul aufrufen mit Sub test() wie gehabt.
Matze

AW: Zählenwenn nur in aktivem Sheet
27.01.2014 01:14:43
Erich
Hi Albert,
der Fehler ist seeehr beliebt... Such mal hier in der Recherche nach 'richtig referenzieren' - da findest du z. B.
https://www.herber.de/forum/archiv/1148to1152/1150616_Zeilen_einblenden.html#1150640
https://www.herber.de/forum/archiv/1212to1216/1214845_Letzte_Zeile_in_Spalte_A_bis_V.html#1214876
https://www.herber.de/forum/archiv/1252to1256/1254910_Bereich_kopieren_klappt_nicht.html#1254940
https://www.herber.de/forum/archiv/1308to1312/1310725_UserForm_ComboBox_aus_andere_sheet1.html#1310730
https://www.herber.de/forum/archiv/1324to1328/1326200_Laufzeitfehler_beim_Markieren_von_Zellen_in_VBA.html
Frage 1: Wo steht dein Code? Das ist bei solchen Fragen wesentlich:
(Ich vermute deinen Code im Codemodul einer UserForm.)
Hier kürze ich mal "Regelschichtplan" ab mit "Rsp" - ist übersichtlicher.
Du schreibst
Sheets("Rsp").Range(Columns(rngDatum.Column), Columns(rngDatum.Column))
Wo ist dieser Bereich?
Mit Sheets("Rsp").Range(...) möchtest du bewirken, dass er im Blatt Rsp liegt. Klar.
Aber wo ist die Spalte Columns(rngDatum.Column), wenn Rsp gerade mal nicht aktiv ist?
Klar - im gerade aktiven Blatt!
Da steht also - ausführlicher geschrieben - das hier, wenn "akt" das aktive Blatt ist:
Sheets("Rsp").Range(Sheets("akt").Columns(rngDatum.Column), Sheets("akt").Columns(rngDatum.Column))
Da wundert mich nicht, dass VBA einen Fehler liefert. :-)
Wenn du eine With-Klammer einsetzt und sie richtig nutzt, vermeidet man diesen Fehler leicht.
With Sheets("Rsp")
   .Range(.Columns(rngDatum.Column), .Columns(rngDatum.Column))
End With
Da stehen 3 "With-Punkte" - 1 vor Range, 2 vor den Columns.
Alles klar?
Zu deinem Post von 26.01.2014 21:24:52:
Frage 2: Warum startest du da einen neuen Thread für und bleibst nicht in diesem?
Frage 3: Was in diesem Post ist "Schichtwunscheingabe"?
Ist das der Name der UserForm, in der der Code steht?
Dann ist die Nennung dieses Namens im Code völlig überflüssig und man kann statt
Schichtwunscheingabe.Label100.Caption
einfacher
Me.Label100.Caption
oder
Label100.Caption
schreiben.
Rückmeldung wäre nett! - Grüße aus Kamp-Lintfort von Erich
Anzeige

308 Forumthreads zu ähnlichen Themen

Formel für nur Zahlen addieren?
Tom

Hi,
ich schreib mir gerade ein kleines Kostenformular. Dazu schreib ich in Zeile 5 das Datum und in Zeile 6 den Betrag.
5: 6.7.2008
6: 300€
Gibt es jetzt eine Möglichkeit mit VBA oder lieber ohne, nur die Eurobeträge zu addieren ohne die Datums Zahlen? Also das € Zeichen kann re...
11.08.2008 16:29:04
Thread-ID: 1000906
5 Beiträge
Anzeige
Wenn in Zelle folgende Zeichen, dann
mehmet

Hallo Forum,
in Spalte G4:G92 sind folge Codes:
in G4= TAF LSZH 090600Z 090716 VRB03KT 0200 FG VV001 BECMG 0709 CAVOK=
in G5= TAF DTTA 090600Z 090716 VRB03KT 0700 FG BKN013 BECMG 1012 07010KT 8000 SCT026=
in G6= TAF EPKT 090500Z 090615 24002KT 0500 FG NSC BECMG 0608 26005KT 9999...
09.09.2008 09:39:00
Thread-ID: 1008320
6 Beiträge
SUMMEWENN; Zahl finden
Cordula

Hallo Excel-Forum,
stehe gerade völlig auf dem Schlauch. Folgendes:
Spalte A
Artikel
210
e-6
s-9
310 1
Spalte B
Preis
10€
20€
30€
40€
Nun möchte ich nur den Preis summieren, deren Artikelnummer die erste Stelle eine Zahl i...
12.09.2008 12:02:00
Thread-ID: 1009320
6 Beiträge
Anzeige
Zahl einer Zelle in den Wenn-Text
die_nathan

Schönen Nachmittag,
Ist es möglich innerhalb eines Textes die Zahl einer Zelle einzufügen:
falsches Beispiel:
=wenn(A1="Ja!";"Die Gebühr von"A2"Euro ist noch zu zahlen!;"Die Gebühr wurde bereitsbezahlt."
Liebe Grüße
11.12.2008 15:35:07
Thread-ID: 1032078
6 Beiträge
Wenn keine CheckBox aktiviert dann MasgBox
Heinz

Guten abend, Leute im Forum
Ich würde gerne in UF, wenn die CheckBoxen 8,16,32, nicht aktiviert sind, das dann eine
MsgBox "Keine Linie ausgewählt" erscheint.
Könnte mir dazu bitte jemand weiterhelfen.
Danke & Gruß
Heinz
18.01.2009 20:59:21
Thread-ID: 1041266
3 Beiträge
summenprodukt mit 2 wenn's geht nicht?
Silvi


Moin zusammen,
muß eine ziemlich komplexe Abfrage machen und habe mir untenstehende ellenlange Formel ausgedacht, die leider nicht funktionert... :o( Hat von Euch jemand eine Idee, wie man das eleganter lösen könnte (ohne Makro?). Vielleicht ist nur eine Klammer falsch? Ich komm nicht...
23.01.2009 10:30:18
Thread-ID: 1042851
8 Beiträge
Wenn Links keine Zahl - MsgBox
Heinz

Leute ich habe bitte noch ein Problem
Mit unteren Code werden Werte (Zahlen) verschoben.
Nun möchte ich bitte wenn in " Range("F65") = Left(wks.Range("C5").Value, 5) " keine 5 Zahlen stehen, das dann eine MsgBox erscheint "Linie 311 keine gültige SAP Nummer".
Ist das mit diesen unte...
02.02.2009 20:00:18
Thread-ID: 1046400
3 Beiträge
Wenn Zahl Dann Datum + 1
Dominik

Hallo zusammen,
folgendes Problem:
Ich habe 2 Spalten - SpalteA (Inhalt: Julianischer Kalender bzw. Zahlen von 100 bis 113)
SpalteB (Inhalt: soll mit einem Datum gefüllt werden)
Nun in Spalte A wechseln die Zahlen nicht von Zeile zu Zeile, sondern es kommt vor dass die Zahl 100...
06.02.2009 12:08:00
Thread-ID: 1047706
9 Beiträge
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
15
5
5
4
5
2
7
2
8
6
4
2
8
9
5
11
3
15
7
1
7
2
10
6