bestimmten spaltenbereich auswählen
27.04.2002 16:30:40
Bernhard
(ActiveSheet.Range("C39:Y44").select)befinden sich Formeln. Nun soll die letzte Spalte (z.B. R39:R44) in der ein Wert größer Null ausgeben wird,makiert werden. Ich hab schon eine Weile mit select case rumprobiert, komm aber einfach nicht drauf. Hab dann als Tipp folgenden Vorschlag erhalten:
Dim bereich As Range
Dim col As Range
Set bereich = Range("C39:Y44")
For Each col In bereich.Columns
If Excel.WorksheetFunction.Sum(col) > 0 Then
col.EntireColumn.Select
End If
Next
klappt leider noch nicht - es werden immer vier bis sechs ganze Spalten markiert. Wer weiß Rat?
Gruß Bernhard