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.Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen