VBA-Code ergänzen
24.02.2006 19:42:06
Konni
ich möchte einen Code ergänzen.
Sub Optimale_Zeilenhöhe()
ActiveSheet.Unprotect Password:="Passwort"
Rows("11:211").Select
Selection.Rows.AutoFit
Range("a11:d211").Select
Selection.Locked = False
ActiveSheet.EnableAutoFilter = True ' Für AutoFilter
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, _
UserInterfaceOnly:=True, Password:="Passwort"
Range("D11").Select
End Sub
Vorstehender Code (ohne Sub) will ich in nachstehenden Code einfügen, krieg es aber nicht hin, da ich VBA nur mit Rekorder umsetzen kann:
If Cells(9, 25).Value > 0 Then
?....
?....
Sheets("Protokolltext").Range("B10:D10").Copy Destination:=Sheets("Protokolltext").Range("B11:D211")
?....
?....
End If
Die Funktion soll in der Tabelle "Protokolltext" ablaufen, in die ich aus einer anderen Tabelle verzweige und danach wieder in die Ursprungstabelle der gleichen Arbeitsmappe zurückkehre.
Bin für jede Unterstützung dankbar.
Gruß
Konni