Schließen einer Userform Blattwechsel verhindern

Forumthread: Schließen einer Userform Blattwechsel verhindern

07.01.2006 17:50:32

Karl-Heinz

Hallo,
ich habe eine Userform mit ComboBox und Textbuttons angelegt. Die Dateneingaben in den Textboxen werden durch den ComboBox.Listindex in die selektierten Zellen im Tabellenblatt1 mit Commandbutton eingefügt.
Wenn ich aber die Userform von einem anderen Tabellenblatt (hier2) starte, die Eingaben mit dem Commandbutton veranlasse und die Userform mit Unload Me schließe, findet automatisch ein Wechsel zum Tabellenblatt1 statt. Wahrscheinlich, weil hier noch die Zellaktivierung vorliegt. Wie kann ich diesen Wechsel verhindern?
Viele Grüße
Karl-Heinz

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Schließen einer Userform Blattwechsel verhindern

07.01.2006 18:00:21

Helga

Hi,
poste mal den Code in deiner Userform.
mfg Helga

AW: Schließen einer Userform Blattwechsel verhindern

07.01.2006 18:06:47

Karl-Heinz

Hi Helga,
ich hoffe es ist einfach:


Private Sub UserForm_Initialize()
Dim frm As UserForm
Dim i As Integer
Dim iMax As Integer
Set frm = Filialreportdaten
Application.ScreenUpdating = False
With frm.ComboBoxOE
.Clear
iMax = Worksheets("Filialreport").UsedRange.Rows.Count
'iMax = ActiveSheet.UsedRange.Rows.Count
For i = 2 To iMax
.AddItem Worksheets("Filialreport").Cells(i, 1) & "   " & Worksheets("Filialreport").Cells(i, 2)
Next i
End With
End Sub


Private Sub CommandButton1_Click()
Dim frm As UserForm
Dim index As Long
Dim OE As String
Set frm = Filialreportdaten
index = frm.ComboBoxOE.ListIndex
OE = frm.ComboBoxOE.ListIndex + 1
Sheets("Filialreport").Activate
Columns("A:A").Select
Selection.Find(What:=OE, After:=ActiveCell, LookIn:=xlValues _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Worksheets("Filialreport").Cells(ComboBoxOE.ListIndex + 2, 3).Select
Selection = frm.TextBox2.Text
End Sub


Private Sub commandbutton2_click()
Unload Me
End Sub

Gruß
Karl-Heinz

AW: Schließen einer Userform Blattwechsel verhindern

07.01.2006 18:33:00

Helga

Hi,
aus diesem Code ist nichts ersichtlich, vielleicht mal ein Beispiel hochladen.
mfg Helga

AW: Schließen einer Userform Blattwechsel verhinde

07.01.2006 18:40:34

Ramses

Hallo


Private Sub CommandButton1_Click()
Dim frm As UserForm
Dim index As Long
Dim curSheet as Worksheet
Dim OE As String
'Gerade Aktive Tabelle speichern
curSheet = Worksheets(Activesheet.name)
Set frm = Filialreportdaten
index = frm.ComboBoxOE.ListIndex
OE = frm.ComboBoxOE.ListIndex + 1
'Bildschirmaktualisierung abschalten
Application.Screenupdating = False
Sheets("Filialreport").Activate
Columns("A:A").Select
Selection.Find(What:=OE, After:=ActiveCell, LookIn:=xlValues _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Worksheets("Filialreport").Cells(ComboBoxOE.ListIndex + 2, 3). = frm.TextBox2.Text
'Originaltabelle wieder aktivieren
cursheet.select
'Bildschirmaktualisierung wieder einschalten
Application.Screenupdating = True
End Sub

Gruss Rainer

AW: Schließen einer Userform Blattwechsel verhinde

07.01.2006 19:19:12

Karl-Heinz

Hallo Helga
Hallo Rainer,
zum besseren Verständnis ist es doch besser die Datei zu sehen.
https://www.herber.de/bbs/user/29818.xls
Rainer nach Deiner Codeänderung kam die Fehlermeldung:
Laufzeitfehler'91'.Objektvariable oder With-Blockvariable nicht festgelegt.Mit dem Hinweis auf die Codezeile cursheet = worksheets(Activesheet.name).
Ich glaube mit der Datei geht es einfacher.
Gruß
Karl-Heinz

AW: Schließen einer Userform Blattwechsel verhinde

07.01.2006 20:25:10

Ramses

Hallo
Sorry,.. es muss heissen
Set curSheet = Worksheets(Activesheet.name)
Gruss Rainer

AW: Schließen einer Userform Blattwechsel verhinde

07.01.2006 21:15:02

Karl-Heinz

Hallo Rainer,
Super!!! Es funktioniert. Ich werde es noch einmal in Ruhe nacharbeiten, um es besser für weitere Entwicklungen zu verstehen.
Ein schönes Wochenende und viele Grüße
Karl-Heinz

Beliebteste Forumthreads (12 Monate)

Schließen einer Userform Blattwechsel verhindern

Forumthread: Schließen einer Userform Blattwechsel verhindern

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread