CountA(Range) Problemchen...

Sub Anzahl() Dim myRange As Range Dim Zeile As Long Dim Spalte As Integer Zeile = Worksheets("Datenbank").Range("A65536").End(xlUp).Row Worksheets("Datenbank").Select For Spalte = 4 To 34 For i = 2 To Zeile Cells(i, 35) = Application.WorksheetFunction.CountA(Range("D" & Spalte & ":AH" & _ Spalte)) Next i Next Spalte Sheets("Datenbank").Select Columns("AI:AI").Copy Sheets("Unterschriftenblatt").Select Columns("D:D").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Worksheets("Unterschriftenblatt").Select End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

...irreführende Variablenbezeichnungen ausgedacht hast, Alex,
("...der Hund, der ein Pferd war..." oder so ähnlich) und überflüssige Selects verwendest, scheint das formal richtig zu sein... Aber schau'n wa mal...
Du erhöhst Spalte von 4 bis 34 und nach jeder dieser Erhöhungen i ebenfalls um 1 bis zur letzten benutzten Zeile. In jeder i-Zeile zählst du die Werte der "Spalte"-Zeile in den Spalten D:AH. Damit trägst du beim 1.Mal in Zelle AI2 die Anzahl von D4:AH4 ein. Beim 2.Mal in AI3 ebenfalls D4:AH4 usw bis das ganze Spiel von vorn beginnt und du zum Schluss in genau die gleichen Zellen die Werte von Zeile 34 einträgst... Oh, oh, oh! Da läuft ja wohl was ganz besonders schief... ;-) Ich glaube nämlich nicht, dass du das beabsichtigt hast! So, dann dreh mal alles schön um - vom Kopf wieder auf die Füße -, wähle ordentliche Indizes wie i und j oder r und z oder wie auch immer, nur nicht Spalte für Zeile, auch wenn das 'ne andere Zeile ist. Außerdem könnte hier auch nur eine Schleife mit nur einer Zählvariablen reichen, wenn Spalte immer um 2 > i ist... Aber vielleicht ist ja alles auch ganz anders gemeint...
Deshalb hat man früher immer das gemacht, was ich dir hier vorexerziert habe - das nennt man Trockentest! Es wäre keinem Programmierer eingefallen, teure Großrechnerzeit mit nicht trocken getesteten Fehlerprogrammen zu vergeuden... Aber der PC macht ja auch das möglich! Der Test findet dann notfalls im Internet statt... ;-)
Gruß Luc :-?
PS: Verschachtelte Zyklen (Schleifen) wdn immer von innen nach außen abgearbeitet!

Hallo Luc, Hallo Matthias,
ja ok, das mit den Variablen, war so eine Sache. Habe ich dann später schon korrigiert, aber was ich immer noch nicht geschafft habe, ist das Problem mit VBA zu lösen, ich will nämlich keine Formeln im Excelsheet stehen haben. Mittels der Formel =ANZAHL2(D2:AH2) kommt auch das richtige raus - nur soll das bei mir mittels vba geschehen und insoweit dynamisch sein, dass es beliebig viele Zeilen sein können, in denen er die Anzahl an Werten liefert.
Was ich benötige ist ein Code in vba, der mit den Bereich von D:AH dynamisch nach unten (zeilenweise) berechnet und das Ergebnis in die Spalte AI (in die selbe Zeile) einträgt. Ganz ohne Formel in die Zelle einzutragen (weil ich diese mittels clearcontent wieder lösche).
Wenn ihr mir also bitte kurz begreiflich machen könntet wie ich bei dem

Cells(i, 35) = Application.WorksheetFunction.CountA(Range("D" & Spalte & ":AH" & Spalte))

Bereich automatisch die Werte berechnen könnte, wäre mir schon sehr geholfen.
@Luc: warum soll ich Spalte mit Zeile verwechseln? Steh ich auf der Leitung? z.B. D4:AH4 = wohl ein Spaltenbereich oder nicht ?
Oder anders gefragt, wie gebe ich bei CountA eine Range mittels cells an ? ...CountA(Cells(i,4),cells(i,34)) nimmt mir nämlich nur die aktuelle Zeilennummer i und die beiden Spalte D und AH - nicht aber den Bereich dazwischen... wie schreibe ich das in vba, ich kann soweit ich das durchblickt habe nur Zellen angeben, nicht aber den Bereich dazwischen. Und leider kann ich bei CountA maximal 30 Argumente eingeben... benötigen tue ich aber 31...
Bin für eure Hilfe dankbar :) (sehe vermutlich den Wald vor lauter Bäumen nicht.... )
MfG
Alex S.

Sub Anzahl_A1_Schreibweise() Dim lngZeile As Long With ThisWorkbook.Worksheets("Datenbank") For lngZeile = 2 To .Range("A65536").End(xlUp).Row .Range("AI" & lngZeile).Value = _ Application.WorksheetFunction. _ CountA(.Range("D" & lngZeile & ":AH" & lngZeile)) Next lngZeile .Columns("AI:AI").Copy End With With ThisWorkbook.Worksheets("Unterschriftenblatt") .Columns("D:D").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False .Select End With End Sub

Sub Anzahl_Cells_Schreibweise() Dim lngZeile As Long With ThisWorkbook.Worksheets("Datenbank") For lngZeile = 2 To .Cells(Rows.Count, 1).End(xlUp).Row .Cells(lngZeile, 35).Value = _ Application.WorksheetFunction. _ CountA(.Range(Cells(lngZeile, 4), Cells(lngZeile, 34))) Next lngZeile .Columns(35).Copy End With With ThisWorkbook.Worksheets("Unterschriftenblatt") .Columns(4).PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False .Select End With End Sub

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread