Excel soll Spalten zählen
14.04.2006 23:29:31
Udo
mit folgendem vba code kann ich von 60 Spalten , 30 zufällig auswählen.
Sub dreissig()
Dim L As Long
Dim Z As Integer
Dim bereich As Range
If [b1] > 1 Then
Z = 1
Set bereich = Columns(1)
For L = 2 To 60 'bis B256. Anpassen
If Z = 30 Then Exit For
If Cells(L, 2) > 20 Then
Set bereich = Union(bereich, Columns(L)) 'cells(L,2)=BL,also B2
Z = Z + 1
End If
Next
End If
bereich.Select
Set bereich = Nothing
End Sub
Manchmal sind es aber auch weniger, für mich nicht so schlimm, weil ich dann die fehlenden mit der Hand auwähle, bin schon froh, daß das Makro das macht.
( wenn in a1=1 steht, funktioniert das Makro nicht ? )
Wie muss denn der vba code aussehen, wenn ich die Anzahl der ausgewählten Spalten einfach nur zählen möchte ?
Vielen Dank für Hilfe im voraus.
Udo
Anzeige