Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1616to1620
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
Inhaltsverzeichnis

Hilfe bei CountIfs VBA Formelstring

Hilfe bei CountIfs VBA Formelstring
16.04.2018 16:23:00
Nilo
Hi zusammen,
vor kurzem hatte ich super Hilfe bei euch bekommen und hänge jetzt fest
mit einer CountIfs Formel die sich dynamisch erweitern soll.
Anbei noch ein Beispiel:
https://www.herber.de/bbs/user/121072.xlsm
Wenn es für beides eine Lösung ohne Formel gibt gerne auch ohne Formel!
@Onur, hat ein bisschen gedauert ;o)
Vielen Dank für Eure Hilfe!
Gruß
Nilo

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hilfe bei CountIfs VBA Formelstring
16.04.2018 16:47:35
ChrisL
Hi Nilo
Täglich ruft das Murmeltier...
Sub TEST()
Dim i As Integer, s1 As String, s2 As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If Range("F3") = "" Or WorksheetFunction.CountBlank(Range("C6:C13")) = 8 Or _
WorksheetFunction.CountBlank(Range("D6:D13")) = 8 Then Exit Sub
For i = 6 To 13
If Not Cells(i, 3) = "" And Not Cells(i, 4) = "" Then
s1 = s1 & ",INDIRECT(""'""&$F$3&""'""&$C$" & i & "),$D$" & i
s2 = s2 & "INDIRECT(""'""&$F$3&""'""&$C$" & i & "),$D$" & i & ","
End If
Next i
With Range("F15:F27")
.Formula = "=IFERROR(SUMIFS(INDIRECT(""'""&$F$3&""'""&$C$3)" & s1 & _
",INDIRECT(""'""&$F$3&""'""&$C$14),B15),""n.a."")"
.Value2 = .Value2
End With
With Range("D15:D27")
.Formula = "=IFERROR(COUNTIFS(" & s2 & _
"INDIRECT(""'""&$F$3&""'""&$C$14),B15),""n.a."")"
.Value2 = .Value2
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
cu
Chris
Anzeige
AW: Hilfe bei CountIfs VBA Formelstring
16.04.2018 17:45:31
ChrisL
Braucht nur eine String-Variable...
Sub TEST()
Dim i As Integer, s As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If Range("F3") = "" Or WorksheetFunction.CountBlank(Range("C6:C13")) = 8 Or _
WorksheetFunction.CountBlank(Range("D6:D13")) = 8 Then Exit Sub
For i = 6 To 13
If Not Cells(i, 3) = "" And Not Cells(i, 4) = "" Then
s = s & "INDIRECT(""'""&$F$3&""'""&$C$" & i & "),$D$" & i & ","
End If
Next i
With Range("F15:F27")
.Formula = "=IFERROR(SUMIFS(INDIRECT(""'""&$F$3&""'""&$C$3)," & s & _
"INDIRECT(""'""&$F$3&""'""&$C$14),B15),""n.a."")"
.Value2 = .Value2
End With
With Range("D15:D27")
.Formula = "=IFERROR(COUNTIFS(" & s & _
"INDIRECT(""'""&$F$3&""'""&$C$14),B15),""n.a."")"
.Value2 = .Value2
End With
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Anzeige
Juhuu Danke!
17.04.2018 16:21:14
Nilo
Hi Chris,
super vielen Dank! Läuft :)
Beste Grüße
Nilo

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige