Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Erweiterung CountIf
zurück: Bitte kurz drüber schauen: copy, paste letzte Zeile weiter: Spaltenverschiebung funktioniert nicht Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
pweiss
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2014, 15:46
Rufname:

Erweiterung CountIf - Erweiterung CountIf

Nach oben
       Version: Office 2010

Hallo,

ich folgenden Code, der mir Anzahl der Namen zusammenaddiert:

Code:

 Set tbl1 = Workbooks("Sammlung MA-Berichte 2013.xlsx").Sheets("Jahresüberblick").Range("C4:C200000")
     
        For u = 4 To 19
    Anz1 = Application.WorksheetFunction.CountIf(tbl1, Worksheets("DB_employee").Range("B" & u))
    If ThisWorkbook.Sheets("DB_employee").Cells(u, 3) = "" Then
      ThisWorkbook.Sheets("DB_employee").Cells(u, 3) = "0"
    End If
    ThisWorkbook.Sheets("DB_employee").Cells(u, 3) = ThisWorkbook.Sheets("DB_employee").Cells(u, 3) + Anz1
    Next u


Allerdings müsste ich da jetzt noch mehrere Bedingungen eingebaut haben.
Wenn im Worksheet ("Overview") in der Spalte B2 = "Text" drin steht,
soll er in tbl1 neben den Namen noch nach Text suchen und die entsprechend Zählen.
Oder es steht in B2 "Text1" drin, dann soll er in tbl1 neben den Namen noch nach Text1 suchen und die entsprechend Zählen.
Oder es steht in B2 "Text2" drin, dann soll er in tbl1 neben den Namen noch nach Text2 suchen und die entsprechend Zählen.

Wie kann ich den Code entsprechend erweitern?
Danke

gruß
Steffl
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2014, 16:02
Rufname:

AW: Erweiterung CountIf - AW: Erweiterung CountIf

Nach oben
       Version: Office 2010

Hallo,

Code:
Sub x()

    Dim lngTextCounter
    Set tbl1 = Workbooks("Sammlung MA-Berichte 2013.xlsx").Sheets("Jahresüberblick").Range("C4:C200000")
   
    Select Case Worksheets("Overview").Range("B2").Value
        Case "Text", "Text1", "Text2"
            lngTextCounter = Application.WorksheetFunction.CountIf(tbl1, Worksheets("Overview").Range("B2"))
        Case Else
    End Select
    For u = 4 To 19
   
        Worksheets("Overview").Range
        anz1 = Application.WorksheetFunction.CountIf(tbl1, Worksheets("DB_employee").Range("B" & u)) + lngTextCounter
        If ThisWorkbook.Sheets("DB_employee").Cells(u, 3) = "" Then
            ThisWorkbook.Sheets("DB_employee").Cells(u, 3) = "0"
        End If
        ThisWorkbook.Sheets("DB_employee").Cells(u, 3) = ThisWorkbook.Sheets("DB_employee").Cells(u, 3) + anz1
    Next u
End Sub

_________________
Rückmeldung wäre nett.

Gruß Stefan
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Hilfe bei Erweiterung einer Formel gesucht 7 amagosa 101 16. Nov 2013, 10:48
amagosa Hilfe bei Erweiterung einer Formel gesucht
Keine neuen Beiträge Excel Formeln: Erweiterung zur INDEX-Abfrage 3 T2WAII 80 08. Jun 2013, 03:10
T2WAII Erweiterung zur INDEX-Abfrage
Keine neuen Beiträge Excel Formeln: [WENN]-Erweiterung 4 chewing 77 01. März 2013, 13:42
Gast [WENN]-Erweiterung
Keine neuen Beiträge Excel Formeln: Autom. Erweiterung Diagrammbereich 4 Nicolas-aus-Wien 287 20. Feb 2013, 10:37
Nicolas-aus-Wien Autom. Erweiterung Diagrammbereich
Keine neuen Beiträge Excel Formeln: Erweiterung Formel, wenn mehrer Bedingungen zutreffen 1 Hilflos2012 92 05. Sep 2012, 15:40
Zero Erweiterung Formel, wenn mehrer Bedingungen zutreffen
Keine neuen Beiträge Excel Formeln: Formel Erweiterung um ISTZAHL 5 Newcommer 1204 20. Dez 2010, 10:53
Gast Formel Erweiterung um ISTZAHL
Keine neuen Beiträge Excel Formate: zaehlenwenn / countif mit Platzhalter 4 Sebastian A 1486 07. Jun 2010, 02:25
Sebastian A zaehlenwenn / countif mit Platzhalter
Keine neuen Beiträge Excel Formeln: Dropdown + Erweiterung für Info 1 CJIgel 580 03. Feb 2010, 23:22
Mr. Proxy Dropdown + Erweiterung für Info
Keine neuen Beiträge Excel Formeln: Formel erweiterung 4 mikarov 191 29. Jan 2010, 10:18
mikarov Formel erweiterung
Keine neuen Beiträge Excel Formeln: Countif ersatz? 1 mikarov 491 08. Jan 2010, 17:27
Janni 07 Countif ersatz?
Keine neuen Beiträge Excel Formeln: Formel für Erweiterung eines Textfelds?? 4 Coco-Janina 176 17. Aug 2009, 14:47
Gast Formel für Erweiterung eines Textfelds??
Keine neuen Beiträge Excel Formeln: Erweiterung des Zellbezugs mittels kopieren 4 mkZWO 277 08. Jun 2009, 13:44
licht Erweiterung des Zellbezugs mittels kopieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage