Hallo zusammen,
wieder einmal ein für mich unlösbares Problem...
Ich habe ein Tabellenblatt, dass zunächst die "Kopfdaten" fett markiert.
'Kopfzeilen Fett
Dim strString As String, rngCell As Range
strString = "Kogr"
Set rngCell = Range("A:AW").Find(strString, LookAt:=xlWhole, LookIn:=xlValues, MatchCase:=False)
If Not rngCell Is Nothing Then
Range("A1:" & rngCell.Address).EntireRow.Font.Bold = True
Else
MsgBox "Kogr bei der Auswertung mit ausgeben lassen und neu versuchen"
End If
Jetzt möchte ich, dass die letzte Zeile dieses Bereichs (also die in der "Kogr" steht) fixiert wird. Der Code sollte also folgendes beschreiben:
"Gehe in die Zeile in der "Kogr" steht. Gehe in dieser Zeile bis zur letzten Spalte und markiere die (leere) Zelle rechts daneben. Fixiere dann die Zeile."
Sollte eigentlich kein Problem sein, nur leider habe ich zu geringe Kenntnisse über die richtige Attributierung etc...
Wäre schön wenn jemand helfen kann.
Gruß
Pseudo