Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
168to172
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
168to172
168to172
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zugegeben eine seltsame Frage!!

Zugegeben eine seltsame Frage!!
22.10.2002 09:39:56
Günter
Hallo Zusammen!
Ich habe eine außergewöhnliche Frage. Ein Programm mit einer
Userform. Es ist nicht möglich die Userform zu ersetzen.
Wie kann ich auf dieser Userform den Ok-klick automatisieren?
Also nicht mehr auf OK-Button klicken, sondern es soll Programm-gesteuert sein.
Danke für Antworten.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zugegeben eine seltsame Frage!!
22.10.2002 09:41:23
Hajo_Zi
Hallo Günther

es ist alles machbar, aber nicht bei dieser Beschreibung.

Gruß Hajo

Re: Zugegeben eine seltsame Frage!!
22.10.2002 13:14:24
Günter
Hallo Hajo!
Entschuldige die Beschreibung war wohl etwas dürftig.
Hier ein vereinfachtes Beispiel.
Dieser FilterboxWert sitzt auf einer Userform.
Der Button soll erhalten bleiben. Ich möchte aber nicht mit
der Maus daraufklicken, sondern es soll im Programm als
angeklickt weiterlaufen.
Nochmal Danke für eine Antwort.
Sub FilterboxWert_Click()
Dim rng As Range
Dim StrFilter As String
Application.ScreenUpdating = False
Sheets("Filterblatt").Visible = True
StrFilter = Filterbox.Value
ThisWorkbook.Sheets("Allg").Activate
Range("A1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=21, Criteria1:=StrFilter
Set rng = Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible)
Workbooks.Add
rng.Copy Range("A1")
ThisWorkbook.Activate
UserForm1.Hide
ThisWorkbook.Sheets("Allg").Activate
Selection.AutoFilter
ThisWorkbook.Sheets("1").Activate
Unload Me
Sheets("Filterblatt").Visible = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
ThisWorkbook.Sheets("1").Activate
Workbooks(Workbooks.Count).Sheets("Tabelle1").Activate
Columns("A:V").Select
Selection.Columns.AutoFit
Sheets("Tabelle1").Range("A1").Select

End Sub
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige