Summen-Schleife VB
03.03.2007 22:39:00
Klaus
die ganzen Zahlen aus der iAnzahl geschrieben und nun möchte ich diese ganze Spalte Summiert haben
aber über dieses Makro in VB.
Kann einer helfen ?
GO Dim lZeileE As Long Dim lZeileD As Long Dim iSpalte As Integer Dim iAnzahl As Integer Dim Summe As Integer lZeileD = 3 With Worksheets("Tabelle2") With .Range("D3:AZ250") .ClearContents .Font.Name = "Arial" End With For lZeileE = 3 To .Range("B65536").End(xlUp).Row If IsNumeric(.Range("B" & lZeileE).Value) Then Sub DSpalte Else iAnzahl = iAnzahl + 1 End If Next lZeileE End With Exit Sub DSpalte: If iAnzahl = 0 Then Return With Worksheets("Tabelle2") .Range("D" & lZeileD).Value = iAnzahl ---------------------------------------------------------hier soll die Summe in ("E",3) stehen End With iAnzahl = 0 lZeileD = lZeileD + 1 Return End Sub
Danke !! Klaus