Office: Per Userform Tabellenblätter anwählen und filter setzen ausgabe in eine Listbox

Weissbart · 24. August 2012

Viel Spaß beim Feiern^^

habe da für nach dem WE noch eine Frage

Ich habe jetzt einige IF dazugefügt das geht bis zur 3 if anweisung so wie es soll.nur ab der 4 ten IF anweisung macht Excel nichts mehr.

gibts da eine Beschränkung an If anweisungen in folge wovon ich mal wieder nix weis??

die If anweisungen ändern sich halt nur bei den gesuchten Text "A" und "AB" und so weiter..

naja ich probier nochmal was.

hier der code Code:

Dim start As Long
Dim Bereich As Range
Dim suche As Date
Dim letzte As Long
Dim spalte As Long
Dim zelle As Range
Dim zahl As Long
Dim zahl1 As Long
Dim zahl2 As Long
Dim zahl3 As Long

If ComboBox1.Value "" And ComboBox2 "" Then
suche = DateValue(ComboBox2.Value)
With Worksheets(ComboBox1.Value)
letzte = .Cells(.Rows.count, 1).End(xlUp).Row
.Range("A1:Q" & letzte).AutoFilter Field:=1, Criteria1:=suche
For spalte = 2 To 17
Set Bereich = .Range(.Cells(2, spalte), .Cells(letzte, spalte))
Select Case spalte
' Case 2, 3, 4, 5, 6, 7, 8, 10, 11, 12, 13, 14, 15, 16
Case 4
Me.Controls("TextBox" & spalte - 1) = Application.WorksheetFunction.Subtotal(9, Bereich)
Case 9
For Each zelle In .Range("D2:D" & letzte).SpecialCells(xlVisible)

If zelle = "A" Then
zahl = zahl + 1
End If
If zelle = "B" Then
zahl1 = zahl1 + 1
End If
If zelle = "AU" Then
zahl2 = zahl2 + 1
End If
If zelle = "A" And zelle.Offset(, 5) = "AP1" Then
zahl3 = zahl3 + 1
End If
Next
TextBox1 = zahl
TextBox2 = zahl1
TextBox3 = zahl2
TextBox4 = zahl3
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die blauen IF´s funktionieren
Die rote nicht mehr
Gruß
Ron

hary · 24. August 2012

Moin
bin gerade nach Hause gekommen. Halbzeit Nachmittag gets weiter.
hab zwar 1,5 Atue aber ne if kann ich noch llesen. Sollte passen,
wass heist:

macht Excel nichts mehr.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Passt der offset??
ist das richtig so? Bei A und ap1(zahl 4) wird einer dazu, aber auch bei A (zahl1)
Geh mal im einzelschritt(F8-Taste) den code durch.
Und:

Das sind zwei Satzteile die mich zum gruebeln bringen. ;-)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ich hate recht ;-)))))) LOL
gutes naechtlche.
read you monday. Nachhbauen schaf ich nich.
hary

Weissbart · 25. August 2012

Bin den Code nochmal durchgelaufen

Das Problem ist nicht der If Code

sondern die Codezeile Code:

Me.Controls("TextBox" & spalte - 1) = Application.WorksheetFunction.Subtotal(9, Bereich)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

nehme ich an.

es funktionieren nur die ersten 4 Textboxen

die anderen steuert Excel nicht an.

wenn ich den If Code Mit "A" und "AP1" prüfung die textbox 1 zuweise ist das ergebnis korrekt wenn ich aber TExtbox 5 wähle passiert nix

Weissbart · 25. August 2012

hehe hab den Fehler gefunden ^^
meine blindheit mal wieder

habe der If anweisung die Falsche Textbox zugewiesen deshalb kam nix^^

sorry

Weissbart · 25. August 2012

Hab da noch ein Problem^^

möchte jetzt mit der Bedingung die Zeit in Case 17 zusammen rechnen

wo die If bedingung passt

so gehts aber nicht
Code:

Case 17
TextBox4 = WorksheetFunction.Text(Application.WorksheetFunction.Subtotal(9, Bereich), "[hh]:mm")
For Each zelle In .Range("D2:D" & letzte).SpecialCells(xlVisible)
If zelle = "A" And zelle.Offset(, 5) = "AP1" Then
TextBox23 = WorksheetFunction.Text(Application.WorksheetFunction.Subtotal(9, Bereich) & zelle, "[hh]:mm")
End If Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

hary · 26. August 2012

Hallo Ron
Versuch's so. Ungetestet.
Code:

Dim i As Double
Dim zelle As Range
For Each zelle In .Range("D2:D"& letzte).SpecialCells(xlVisible)
If zelle = "A" And zelle.Offset(, 5) = "AP1" Then
i = i + zelle.Offset(, 13)
End If
Next
TextBox23 = WorksheetFunction.Text(i, "[hh]:mm")
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mit: Application.WorksheetFunction.Subtotal summierst du alle gefilterten Werte.
mit: & zelle haengst du nur den Inhalt an.
gruss hary

Weissbart · 29. August 2012

Danke Dir Hary
und sorry das ich mich jetzt erst melde hatte Frei *wink.gif*

funzt wie immer prima !

Gruß
Ron

hary · 29. August 2012

Moin Ron
Wie immer gern geschehen, aaaber....
..eigentlich muesste ich mich bei Dir und auch anderen Fragestellern bzw. Antwortern bedanken. So lern ich in VBA das laufen, soll heissen: Codes lesen/verstehen/ungetestete Codezeilen schreiben(die auch funzen).
Bin noch weit vom Ziel entfernt, aber geht halt nur Step by Step.
Und vlt. irgendwann: Trärä, bin ich angekommen. ;-)))
gruss hary

Office: Per Userform Tabellenblätter anwählen und filter setzen ausgabe in eine Listbox

Per Userform Tabellenblätter anwählen und filter setzen ausgabe in eine Listbox

Per Userform Tabellenblätter anwählen und filter setzen ausgabe in eine Listbox

Per Userform Tabellenblätter anwählen und filter setzen ausgabe in eine Listbox

Per Userform Tabellenblätter anwählen und filter setzen ausgabe in eine Listbox

Per Userform Tabellenblätter anwählen und filter setzen ausgabe in eine Listbox - Similar Threads - Userform Tabellenblätter anwählen

VBA Code Tabellenblatt kopieren und UserForm

Daten aus UserForm in Tabellenblatt übertragen

Eingabe über Userform und mehrere Tabellenblätter

Userform mit Tabellenblatt öffnen

Tabellenblatt in UserForm anzeigen um einzelne Zeilen in ein weiteres Tabelleblatt zu

Diagramm aus Tabellenblatt in Userform als Bild anzeigen lassen

Excel 2010: VBA: Userform - Checkbox - nur ausgewählte Tabellenblätter drucken