Sub tt()
Dim lngCol As Long
If Selection.Count = 1 Then lngCol = Selection.Column
End Sub
Sub tt()
Dim strCol As String
If Selection.Count = 1 Then
strCol = Replace(Cells(1, Selection.Column).Address(0, 0), "1", "")
End If
End Sub
Sub mehrfach_Markierung()
' sollte Spalten (+3) und Zeilen (+2) markieren
Dim aktuelle_Col As Double
Dim aktuelle_Row As Double
If Selection.Count = 1 Then
aktuelle_Col = Selection.Column
aktuelle_Row = Selection.Row
aktuelle_Col = aktuelle_Col + 3
aktuelle_Row = aktuelle_Row + 2
' da steckt der Hund drinn!
Range("1:aktuelle_Col,1:aktuelle_Row").Select
Else
MsgBox ("mehr als 1 Zelle markiert")
End If
End Sub
Sub mehrfach_Markierung()
' sollte Spalten (+3) und Zeilen (+2) markieren
Dim aktuelle_Col As Double
Dim aktuelle_Row As Double
If Selection.Count = 1 Then
aktuelle_Col = Selection.Column
aktuelle_Row = Selection.Row
aktuelle_Col = aktuelle_Col + 3
aktuelle_Row = aktuelle_Row + 2
' da steckt der Hund drinn!
Range("1:aktuelle_Col,1:aktuelle_Row").Select
Else
MsgBox ("mehr als 1 Zelle markiert")
End If
End Sub
Sub mehrfach_Markierung()
' sollte Spalten (+3) und Zeilen (+2) markieren
If Selection.Count = 1 Then
Selection.Resize(3, 4).Select
Else
MsgBox ("mehr als 1 Zelle markiert")
End If
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