Hallo zusammen,
ich stehe gerade irgendwie auf dem Schlauch. Ich habe ein Programm, dass so erst einmal absolut hervorragend läuft (hier der Ausschnitt um den es geht):
Dim Sh1 As Worksheet
Set Sh1 = ActiveSheet
Cells.Select
Selection.ClearContents,
' format sheet
Sh1.Range("A1").EntireRow.Select
Selection.Font.Bold = True
Selection.Font.Underline = xlUnderlineStyleSingle
Cells.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Cells.EntireColumn.AutoFit
Range("A1").Cells.Select
Um das Programm zu verbessern und vielfältiger zu machen, beschreibe ich zwei Tabellenblätter gleichzeitig. Das funktioniert mit Sheets(i) sehr gut. Das eigentliche Programm läuft. Nur die Formatierung, wie sie oberhalb steht geht überhaupt nicht mehr. Ich bekomme nur noch Fehler. Ich habe es mit mehreren verschiedenen Versionen versucht. Hier die "ich mache einfach alles rein, damit es irgendwie funktioniert Version":
Dim Sh1 As Worksheet
Set Sh1 = ActiveSheet
Sheets(1).activate
Cells.Select
Selection.ClearContents,
' format sheet
Sh1.Range("A1").EntireRow.Select
Selection.Font.Bold = True
Selection.Font.Underline = xlUnderlineStyleSingle
Cells.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Cells.EntireColumn.AutoFit
Range("A1").Cells.Select
Dann das Gleiche mit Sheets(2) noch einmal. Da meldet er immer Fehler bei Range.
Und hier meine erste Version, bei der ich schon bei "Selection" scheitere, da dies wohl mit Sheets(i) nicht funktioniert. Genauso wenig Range.
Sheets(1).Cells.Select
Selection.ClearContents,
' format sheet
Sheets(1).Range("A1").EntireRow.Select
Selection.Font.Bold = True
Selection.Font.Underline = xlUnderlineStyleSingle
Sheets(1).Cells.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Sheets(1).Cells.EntireColumn.AutoFit
Sheets(1).Range("A1").Cells.Select
Alles was ich möchte ist einfach nur, dass es mit Sheets(i) irgendwie so funktioniert, wie es im ersten Beispiel geklappt hat bzw. dass ich beide Tabellenblätter so formatieren kann. Ich versuche schon seit zwei Tagen und springe immer wieder hin und her. Leider ohne Erfolg.
Wo liegt mein Fehler?
Über jede Hilfe würde ich mich sehr freuen.
Vielen Dank im Voraus.
Dirk