Anzeigefehler bei Tabellenwechsel
08.07.2020 12:54:32
Christian
ich habe ein Makro geschrieben bei dem ich unter anderem von einem Tabellenblatt in ein anderes wechsele. Allerdings erscheinen auf einmal im zweiten Tabellenblatt die Schaltflächen aus dem ersten Tabellenblatt (man kann Sie aber nicht aktivieren).
Wenn man dann über die Reiter zurück wechselt und den Wechsel nochmal mit den Reitern vollzieht, dann sieht das zweite Tabellenblatt so aus wie es aussehen soll.
Auch wenn ich das Makro per F8 Schritt für Schritt ablaufen lasse kommt es nicht zu dem anderen Fehlerbild.
Dies ist der Code:
Sub ImportVorbereiten()
' ImportVorbereiten Makro
Sheets("Eingabefeld").Visible = True
Sheets("Eingabefeld").Select
i = ActiveSheet.UsedRange.Rows.Count
Set rngBereich = Range(Rows(1), Rows(i))
rngBereich.Delete
ActiveSheet.Buttons.Add(330.75, 126, 347.25, 133.5).Select
Selection.OnAction = "Springen?bersicht"
Selection.Characters.Text = "Zur?ck zur ?bersicht"
With Selection.Characters(Start:=1, Length:=20).Font
.Name = "Calibri"
.FontStyle = "Standard"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With
Range("A1").Select
Range("A1").Value = "Daten in A1 eintragen"
End Sub
Viele nDank für die HilfeChristian