Nach VBA-Ausführung ist die textbox1 verschwunden
22.05.2013 15:03:30
Thomas
ich habe in Tabelle1 eine Textbox1 angelegt. Der Inhalt dieser Textbox1 wird nach klick auf Commandbutton1 auf weiteren Tabellenblättern verarbeitet.
Nach der Verarbeitung aktiviere ich wieder Tabelle1 >> Sheets("Tabelle1").Select Es funktioniert alles einwandfrei, nur ist nach Ausführung des Codes die textbox nicht mehr sichtbar. D.h. erst wenn ich irgendeine Zelle auswähle poppt diese wieder auf.
"textbox1.activate" oder "....visible = true" hilft auch nichts
Er schreibt ja iin die Textbox, aber man sieht diese nicht !!!
Kann wer helfen ? Danke schön !
Sub Makro3()
' zuerst alle alten Einträge löschen
Sheets("Aushang").Select
Range("A6:A247").Select
Selection.ClearContents
Range("c6:c247").Select
Selection.ClearContents
Range("e6:f247").Select
Selection.ClearContents
' Teilnehmernamen aus "Tabelle1" markieren und kopieren
Sheets("Tabelle1").Select
Range("c9:c" & Cells(Rows.Count, 2).End(xlUp).Row).Select
Selection.Copy
' In Blatt "Aushang" in Spalte A übernehmen
Sheets("Aushang").Select
Range("A6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
' Teilnehmercodes aus "Tabelle1" markieren und kopieren
Sheets("Tabelle1").Select
Range("b9:b" & Cells(Rows.Count, 2).End(xlUp).Row).Select
Selection.Copy
' In Blatt "Aushang" in Spalte C übernehmen
Sheets("Aushang").Select
Range("c6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
' Spalte B+C markieren und kopieren
Range("b6:c" & Cells(Rows.Count, 1).End(xlUp).Row).Select
Selection.Copy
' Auswahl in E+F einfügen
Range("e6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
' Spalte E+F aufsteigend sortieren nach Spalte E
Selection.Sort Key1:=Range("e6"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
' Spalten G-K markieren und drucken
Range("G1:K" & Cells(Rows.Count, 1).End(xlUp).Row).Select
'Selection.PrintOut Copies:=1
' Blatt "Tabelle 1" Textbox1 auswählen
Sheets("Tabelle1").Select
textbox1.Activate
End Su