Exceldatei soll minimiert, UF sichtbar bleiben.

Hallo zusammen,
ich möchte mein Problem folgendermaßen schildern:
ich habe eine Excel-Datei mit einer Userform. Immer wenn die Datei geöffnet wird, kommt die Userform hoch und minimiert Excel. Das ist soweit super, denn die Userform ist klein, übersichtlich und die eigentliche Datei wird auch nicht weiter gebraucht.
Jetzt ist es so, dass, wenn eine andere Excel-Datei aufgerufen wird, diese auch nur minimiert gestartet wird und man sie erst über die Taskleiste sichtbar machen muss. Auch das ist noch nicht so schlimm. Aber wenn die nachträglich geöffnete Excel-Datei geschlossen wird, ist die erste Exceldatei mit der Userform wieder in Normalgröße sichtbar und nicht, wie zu Beginn, minimiert.
Weiß jemand, was ich da machen kann?
Am besten wäre es, wenn die eigentliche Datei die ganze Zeit minimiert vor sich her laufen könnte und andere Exceldateien meine Datei nicht beeinflussen würden.
Ich sende eine Beispieldatei mit.
https://www.herber.de/bbs/user/45536.xls
Gruß
Erdogan
PS: Feedback ist selbstverständlich.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Ich möchte die Gelegenheit nutzen, um Dir noch auf Deine Frage vom anderen Posting zu antworten:
ja - mein Gedankengang hätte bedeutet, dass auf Doppelclick verzichtet werden müsste. Daher also nicht hilfreich für Dich.
Ansonsten ist es selbstverständlich möglich auch mit VB ein Programm zu erstellen, welches auf Excel-Dateien zugreift. Ich würde sogar behaupten, dass dies dann Deine Probleme löst. Nun habe ich derzeit leider keine VB-Installation hier, aber das funktioniert hier sogar prinzipiell zum Ausprobieren aus Excel-VBA
a) Du erstellst im VB-Code eine Excel-Applikation ..


Private Sub ExcelAufmachen
Dim Excel1 As Object
Dim Sh As Worksheet
Set Excel1 = CreateObject("Excel.Application")
Excel1.Visible = False            '

b) Du installierst einen ODBC-Treiber oder einen OLE-Provider für den Zugriff auf Excel
ADO-Ole ist cool .. ich habe irgendwo folgenden Beispiel-code geklaut:
(nicht vergessen, ADO in Verweise hinzuzunehmen)


Private Sub CommandButton2_Click()
Dim oAdoConnection As Object, oAdoRecordset As Object
Dim sAdoConnectString As String, sPfad As String
Dim sQuery As String
On Error GoTo Fehler
sPfad = "c:\myfiles\xxx.xls"
Set oAdoConnection = CreateObject("ADODB.CONNECTION")
sAdoConnectString = "DRIVER={Microsoft Excel Driver (*.xls)};ReadOnly=1;DBQ=" & sPfad
oAdoConnection.Open sAdoConnectString
Set oAdoRecordset = CreateObject("ADODB.RECORDSET")
'in xxx.xls muss ein Sheet "Tabelle" existieren, eine Spalte mit Artikel überschrieben sein und  _
eine mit Wert
sQuery = "Select Max ([Wert]) from [Tabelle$] where Artikel='Hammer'"
With oAdoRecordset
.Source = sQuery
.ActiveConnection = oAdoConnection
.Open
MsgBox .Fields(0).Value
End With
Aufraeumen:
On Error Resume Next ' Sehr Faul
oAdoRecordset.Close
oAdoConnection.Close
Set oAdoRecordset = Nothing
Set oAdoConnection = Nothing
On Error GoTo 0
End Sub

Beliebteste Forumthreads (12 Monate)

Exceldatei soll minimiert, UF sichtbar bleiben.

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Exceldatei soll minimiert, UF sichtbar bleiben.

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread