ich habe ein kleines Program geschrieben und möchte nun, außer meinem Hauptblatt, alle anderen Blätter ausblenden.
Dadurch funktioniert mein Makro aber nicht mehr.
Nach Recherche bin ich darauf gestoßen, dass das "Select" in meinem VBA Code mir einen Strich durch die Rechnung macht.
Sub Zeitstrahl()
' Zeitstrahl Makro
Application.ScreenUpdating = False
Sheets("Blatt 1").Select
Cells.Select
Cells.EntireRow.AutoFit
Sheets("Blatt 2").Select
Cells.Select
Cells.EntireRow.AutoFit
Sheets("Blatt 3").Select
Cells.Select
Cells.EntireRow.AutoFit
Sheets("Blatt 4 ").Select
Cells.Select
Cells.EntireRow.AutoFit
Sheets("Blatt 5").Select
Cells.Select
Cells.EntireRow.AutoFit
Sheets("Tabelle2").Select
Range("A1").Select
ActiveSheet.ChartObjects("Diagramm 4").Activate
ActiveChart.PlotArea.Select
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Range("EKI75").Select
ActiveSheet.Pictures.Paste.Select
Selection.ShapeRange.IncrementRotation 90
Selection.Copy
Sheets("Blatt 1").Select
Range("B2").Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft -5.25
Selection.ShapeRange.IncrementTop -15.0000787402
Sheets("Blatt 2").Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft -5.25
Selection.ShapeRange.IncrementTop -15.0000787402
Sheets("Blatt 3").Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft -5.25
Selection.ShapeRange.IncrementTop -15.0000787402
Sheets("Blatt 4 ").Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft -5.25
Selection.ShapeRange.IncrementTop -15.0000787402
Sheets("Blatt 5").Select
ActiveSheet.Paste
Selection.ShapeRange.IncrementLeft -5.25
Selection.ShapeRange.IncrementTop -15.0000787402
Sheets("Tabelle2").Select
Selection.Delete
Sheets("Protokoll").Select
Range("A1").Select
Application.ScreenUpdating = True
End Sub
Jetzt habe ich versucht, dass Select durch Range und dergleichen zu ersetzen und jetzt funktioniert gar nichts mehr.Würde mich freuen, wenn mir einer helfen könnte.
Zur Sicherheit/Verständniss hänge ich die Datei noch mit an.
https://www.herber.de/bbs/user/107580.zip
Liebe Grüße
Alex