kann mir bitte jemand sagen, wie ich aus einer Range, zB: Q10:X10, jeweils die aktuelle Zeile und Spalte lesen kann?
Also im Prinzip: Row(10) , Column(17)
Row(10) , Column(24)
Danke
Michael
?Range("Q10").Row
?Range("X10").Column
MsgBox "Row(" & Target.Row & ") , " & "Column(" & Target.Column & ")"
Gruß Matthias
Sub Michael()
Dim r As Range
Dim Zeile1 As Long, Zeile2 As Long
Dim Spalte1 As Long, Spalte2 As Long
Set r = Range("Q10:X10")
Zeile1 = r.Row
Spalte1 = r.Column
Zeile2 = Zeile1 + r.Rows.Count - 1
Spalte2 = Spalte1 + r.Columns.Count - 1
MsgBox Zeile1 & ", " & Spalte1 & vbLf & Zeile2 & ", " & Spalte2
End Sub
Dim RnG As Range, Start$, Ende$
For Each RnG In Range("Q10:X10")
If Start = "" Then Start = RnG.Row & " , " & RnG.Column
Ende = RnG.Row & " , " & RnG.Column
Next
MsgBox Start & vbLf & Ende
Es ist eben nicht immer einfach sich reinzudenken wie der Fragende denkt.