Spaltennummer ausgeben
Lorenz
Scheinbar schaff ich´s schon wieder nicht ohne euch;-))
mit untenstehenden (funktionierenden) Code wird per CommandButton in einer UF in einem Sheet mit Mehrfachmarkierungen die "Füllfarbe" gesetzt.
Jetzt möchte (muss) ich aber jeweils in der ersten Zelle der in der Markierung so nach dem Motto Column(erste Zelle von einzelnen Adressen aus arrBereich)
d.h.: ist A5, B17:C17, K33 markiert, so brauch ich in einer Schleife folgendes Ergebnis: "1, 2, 11"
Ich hoffe dies ist verständlich angegeben.
Hier der Code:
Private Sub cmdMehrfachselektion_Click()
Dim Bereich As String, arrBereich As String, i As Integer
For i = 1 To Selection.Areas.Count
Bereich = Bereich & Selection.Areas(i).Address(False, False) & ", "
Next i
arrBereich = Left$(Bereich, Len(Bereich) - 2)
Range(arrBereich).Interior.Pattern = xlUp
MsgBox........ hier sollte die jeweilige Spaltenzahl erscheinen"
End Sub
Gruss
Lorenz