VBA Excel 3 Bedingungen in IF + Zählen

Public Sub zählen () Dim wksBlatt as Worksheet Dim varArr As Variant Dim lngAnzahl as Long Dim lngZahl as Long Set wksBlatt = Tabelle1 varArr = wksBlatt.Range("C:D", "M:M") For lngZahl = 1 to 800 If varArr(lngZahl;1) = "Name" And varArr(lngZahl;2) = "Zustand" And varArr(lngZahl;1)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Änderung im Allgemeinen, Thomas!
Mich wundert, dass dein Code angeblich läuft, denn ; als Trenner in VBA mit der Bedeutung gab's letztmalig zu Xl95 (VB5). Dieser ganze Teil ist deshalb suspekt…
varArr = wksBlatt.Range("C:D", "M:M")
For lngZahl = 1 to 800
If varArr(lngZahl;1) = "Name" And varArr(lngZahl;2) = "Zustand" And varArr(lngZahl;1) < 0 Then
lngAnzahl = lngAnzahl +1
End If
Außerdem könntest du ruhig (wie üblich) deutlicher strukturieren (Einrückungen von CodeBlöcken mit {TAB})!
Ein > kann ich nirgends entdecken und die 1.Zeile oben erscheint mir ebenfalls merkwürdig → eigentlich schreibt man einen solchen Range doch "C:D,M:M" oder als Union…
Es ist so nicht wirklich klar, was du beabsichtigst, es sei denn, du willst gleichzeitig (zeilenweise) die Werte der 1. 2 Spalten auf das Auftreten dieser Begriffe und die 3. auf <0 prüfen. Das könnte man auch noch etwas bzw ganz anders gestalten.
Gruß Luc :-?

Sub Zählen2Bedingg() Const adBer$ = "C1:D800,M1:M800", Bed1$ = "Name", Bed2$ = "Zustand" Dim anzNN(1) As Long, arvBer(3), ZNr As Variant, Bereich As Range Set Bereich = Tabelle1.Range(adBer) With WorksheetFunction arvBer(0) = Evaluate("row(1:" & Bereich.Rows.Count & ")") arvBer(1) = .Transpose(Bereich.Areas(1).Columns(1).Value2) arvBer(2) = .Transpose(Bereich.Areas(1).Columns(2).Value2) arvBer(3) = .Transpose(Bereich.Areas(2).Columns(1).Value2) End With For Each ZNr In arvBer(0) If arvBer(1)(ZNr) = Bed1 And arvBer(2)(ZNr) = Bed2 Then anzNN(1 + CInt(arvBer(3)(ZNr) 0) End If Next ZNr Tabelle1.Cells(4, 4) = "0=" & anzNN(1) Set Bereich = Nothing End Sub

Tach, Thomas;
es wäre ratsam, auch die Adresse der Zählerausgabe als Konstante anzulegen, zB adErg$ = "D4" und die dann in der betreffenden PgmZeile zu verwenden → Tabelle1.Range(adErg) = "<0=" & anzNN(0) & …
Genauso sinnvoll wäre es, ggf entweder den internen Namen des Blattes (hier benutzter xlVBA-Standard Tabelle1 ) auf größere Aussagekraft u/o Individualität hin zu ändern (der Standard wäre in allen Mappen derselbe und dem Internnamen kann kein Mappenname zugeordnet wdn!) oder ähnlich wie du es vorhattest (in der von dir gewählten Art war es allerdings überflüssig) eine Variable wksBlatt zu deklarieren, den (externen) Blattnamen als Konstante vorzugeben (txBlN$ = "Tab1", oder wie es bei dir heißt) und den dann bei der Referenzierung zu verwenden → Set wksBlatt = ActiveWorkbook.Sheets(txBlN). Der Internname Tabelle1 wäre dann im vorliegenden Pgm nur durch wksBlatt zu ersetzen.
Wenn dann auch noch der Vglswert der Zählbedingung als Konstante eingetragen wird (VglW As Double = 0; was für den speziellen Zweck wahrscheinlich nicht erforderlich sein wird, aber die Zählerei flexibler gestalten würde) u/o gar die Art des Vgls (→ erforderte einen etwas anderen VglsAufbau), ggf auch noch die Übertragung der relevanten Bereiche in Datenfelder flexibel gestaltet würde, wäre das Pgm beinahe universell. Wenn dann statt der PgmKonstanten auch noch benannte MappenKonstanten (Namen!) benutzt würden, könnte das auch von einem VBA-Unkundigen nach Bedarf angepasst wdn.
Gruß Luc :-?

Public Sub zählen () Dim wksBlatt as Worksheet Dim varArrC As Variant, varArrD as Variant, varArrM as Variant Dim lngAnzahl as Long Dim lngZahl as Long Set wksBlatt = Tabelle1 varArrC = wksBlatt.Range("C1:C800").Value varArrD = wksBlatt.Range("D1:D800").Value varArrM = wksBlatt.Range("M1:M800").Value For lngZahl = 1 to 800 If varArrC(lngZahl, 1) = "Name" And varArrD(lngZahl, 1) = "Zustand" And varArrM(lngZahl, _ 1)

Public Sub zählen () Dim wksBlatt as Worksheet Dim varArrC As Variant, varArrD as Variant, varArrM as Variant Dim lngAnzahl as Long Dim lngZahl as Long Set wksBlatt = Tabelle1 varArrC = wksBlatt.Range("C1:C800").Value varArrD = wksBlatt.Range("D1:D800").Value varArrM = wksBlatt.Range("M1:M800").Value For lngZahl = 1 to 800 If varArrC(lngZahl, 1) = "Name" Then If varArrD(lngZahl, 1) = "Zustand" Then if varArrM(lngZahl, 1)

Option Explicit Sub Zaehle2() Dim arCD, arrM, aCDM(1 To 800) As String, zz As Long With Worksheets("Tabelle1") arCD = .Range("C1:D800").Value arrM = .Range("M1:M800").Value For zz = 1 To 800 aCDM(zz) = arCD(zz, 1) & "#" & arCD(zz, 2) & "#" & -(arrM(zz, 1)

Sub Zaehle3() Dim arCD, arrM, zz As Long, ee As Long With Worksheets("Tabelle1") arCD = .Range("C1:D800").Value arrM = .Range("M1:M800").Value For zz = 1 To 800 ee = ee - (arCD(zz, 1) = "Name") * (arCD(zz, 2) = "Zustand") * (arrM(zz, 1)

Beliebteste Forumthreads (12 Monate)

VBA Excel 3 Bedingungen in IF + Zählen

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Excel 3 Bedingungen in IF + Zählen

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

321 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread