Sub ErsteAuslesen()
MsgBox Range("Bereich").Cells(1, 1)
End Sub
Sub LetzteZelle()
ActiveSheet.UsedRange. _
Cells(ActiveSheet.UsedRange.Cells.Count).Select
End Sub
Sub erste_und_letzte()
Dim Addr As String, firstAddr As String, lastAddr As String
Addr = Selection.Address(0, 0)
If InStr(1, Addr, ",") > 0 Then
MsgBox "Mehrfachmarkierung. Keine Angabe möglich.", , "Hinweis..."
Exit Sub
End If
If Selection.Cells.Count = 1 Then
firstAddr = Selection.Address(0, 0)
lastAddr = Selection.Address(0, 0)
Else
firstAddr = Left(Addr, InStr(1, Addr, ":") - 1)
lastAddr = Mid(Addr, InStr(1, Addr, ":") + 1)
End If
MsgBox "Erste Zelle: " & firstAddr & Chr(10) _
& "Letzte Zelle: " & lastAddr, , "Gebe bekannt..."
End Sub
Sub Erste_und_Letzte_Auslesen()
Dim C As Range
Set C = Selection
If InStr(1, C.Address, ",") > 0 Then
MsgBox "Mehrfachmarkierung. Angaben nicht möglich.", , "Hinweis"
End If
MsgBox "Erste Zelle: " & C.Cells(1, 1).Address(0, 0) & Chr(10) & _
"Letzte Zelle: " & Cells(C.Row + C.Rows.Count - 1, C.Column + C.Columns.Count - 1).Address(0, 0)
End Sub
Sub Erste_und_Letzte_Auslesen()
Dim C As Range
Set C = Selection
If InStr(1, C.Address, ",") > 0 Then
MsgBox "Mehrfachmarkierung. Angaben nicht möglich.", , "Hinweis"
End If
MsgBox "Erste Zelle: " & ActiveCell.Address(0, 0) & Chr(10) & _
"Letzte Zelle: " & C(C.Count).Address(0, 0)
End Sub
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