Range.EntireRow
28.08.2019 10:37:56
Sophia
Neulich wurde mir schon super geholfen hier, deshalb nochmals eine Frage, bei der ich leider nicht weiter komme.
In meinem Makro wird zuerst eine Zeile ausgewählt, mit der dann verschiedene Dinge getan werden (Schreibschutz, Formatierung etc.) Bis jetzt wurde hierbei dann immer die ganze Zelle benötigt.
Jetzt habe ich jedoch einen Anwendungsfall, bei dem nur der Bereich von Spalte L bis T der jeweiligen ausgesuchten Zeile formatiert werden soll. Ich habe jetzt mal ein paar Dinge getestet, weiß aber nicht genau, wie ich das hinbekomme, da nichts funktioniert hat. Das Zeilen auswählen funktioniert super, aber dann wähle ich immer .EntireRow aus. Was kann ich denn stattdessen da einfügen oder ist die Lösung dann deutlich koplexer?
Vielen Dank schon mal!
Grüße!
Sub ()
Dim objRange As Range
Dim objRangeCollection As Collection
Set objRangeCollection = New Collection
Do
Call objRangeCollection.Add(Item:=Application.InputBox(Prompt:= _
"Zeile, für die Schreibschutz aktiviert und Formatierung geändert werden soll, _
markieren:", Title:="Auswahl", Type:=8))
If TypeOf objRangeCollection(objRangeCollection.Count) Is Range Then
Set objRange = objRangeCollection(objRangeCollection.Count)
Set objRangeCollection = Nothing
Exit Do
ElseIf ...
End If
Loop
With objRange.EntireRow
.Interior.ColorIndex = xlColorIndexNone
End With
Set objRange = Nothing
End Sub