Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schließen einer Userform Blattwechsel verhindern

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

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

Betreff
Datum
Anwender
Anzeige
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
Anzeige
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
Anzeige
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
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige