VBA User Form

Hallo zusammen,
wir haben eine USERForm. da klicken wir in drei Bereiche was an und anschliesend kommt die Liste:

Private Sub cmd_Transport_Click()
Select Case LstTran.Value
Case " -  täglicher plan KW 01"
Workbooks.Open "L:\Logistik\Perso\LKW\planung 2021\KW1.xlsb"
Case " -  täglicher plan KW 02"
Workbooks.Open "G:\Logistik\Perso\LKW\planung 2021\KW2.xlsb"
'Workbooks.Open ""
Case Else
MsgBox " keine Liste ausgewählt", vbOKOnly, "Fehler"
End Select
Unload Me
End Sub

Private Sub cmd_Lager_Click()
Select Case LstLager.Value
Case " -  Lagerplätze"
Workbooks.Open "G:\Logistik\Perso\WE\Anzahl \Anzahl.xlsb"
Case " -  Lagerplätze nebenlager"
Workbooks.Open "G:\Logistik\Perso\WE\Anzahlla \Anzahl2.xlsb"
Case Else
MsgBox " keine Liste ausgewählt", vbOKOnly, "Fehler"
End Select
Unload Me
End Sub

Private Sub cmd_Button_Archiv_Click()
Select Case LstArchiv.Value
Case " -  Artikel"
Workbooks.Open "G:\Logistik\Perso\WE\Archiv\Umstellung.xlsb"
Case " -  kapazität"
Workbooks.Open "G:\Logistik\Perso\WE\Archiv\kapazitätxlsb"
Case Else
MsgBox " keine Liste ausgewählt", vbOKOnly, "Fehler"
End Select
Unload Me
End Sub

Private Sub UserForm_Initialize()
LstArchiv.AddItem " -  Artikel "
LstArchiv.AddItem " -  kapazität "
LstTran.AddItem " -  täglicher plan KW 01"
LstTran.AddItem " -  täglicher plan KW 02"
LstLager.AddItem "  -  Lagerplätze "
LstLager.AddItem "  -  Lagerplätze nebenlager 
End Sub

Jetzt möchte ich nicht, dass jeder bei der Userform herummacht weil viele Fehler passieren. Meine Idee.
Kann man zum Beispiel Sagen Spalte A1 ist die Überschrift ( z.B. Archiv )
A2 dann der Name ( Intialize ) und B2 der Pfad ( manuelle eingabe )
Dann in C1 die Überschrift ( z.B. Auswertungen )
C2 dann der Name und D2 der Pfad ( manuelle eingabe )
usw... somit ist keiner mehr in der Userform drin.
Wäre sowas möglich ?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Wäre sowas möglich ?

02.03.2021 14:07:03

Rudi

AW: Wäre sowas möglich ?

03.03.2021 06:01:16

Dieter

AW: VBA User Form

02.03.2021 23:05:23

ralf_b

AW: VBA User Form

03.03.2021 05:59:10

Dieter

AW: VBA User Form

03.03.2021 06:09:23

Dieter

AW: VBA User Form

03.03.2021 10:18:10

ralf_b

AW: VBA User Form

03.03.2021 11:36:57

Dieter

AW: VBA User Form

03.03.2021 15:38:21

Mullit

AW: VBA User Form

03.03.2021 18:12:38

Dieter

AW: VBA User Form

03.03.2021 21:27:26

ralf_b

AW: VBA User Form

04.03.2021 06:06:16

Dieter

AW: VBA User Form

04.03.2021 11:59:21

Dieter

AW: VBA User Form Datei

04.03.2021 18:54:08

Dieter

AW: VBA User Form Datei

05.03.2021 02:44:28

ralf_b

User Form Datei Nachfrage

05.03.2021 09:15:21

Dieter

AW: User Form Datei Nachfrage

05.03.2021 11:00:26

ralf_b

Rückmeldung

05.03.2021 11:32:01

Dieter

Private Sub cmd_Button_Archiv_Click() dim rfund as Range with Worksheets("Verweise").Range("A1:A" & Cells(rows.count ,"A").end(xlup).row) set rfund = .find(LstArchiv.Value, lookin:=xlValues, lookat=XlWhole) end with if not rfund is nothing then Workbooks.Open rfund.offset(,1) else MsgBox " keine Liste ausgewählt", vbOKOnly, "Fehler" End if Unload Me End Sub

Private Sub cmd_Button_Archiv_Click() dim rfund as Range dim ws as worksheet if LstArchiv.Value = "" then exit sub set ws = Worksheets("Verweise") with ws.Range("A1:A" & ws.Cells(rows.count ,"A").end(xlup).row) if .count

Private Sub cmd_Button_Archiv_Click() Dim rfund As Range Dim ws As Worksheet If LstArchiv.Value = "" Then Exit Sub Set ws = Worksheets("Verweise") With ws.Range("A1:A" & ws.Cells(Rows.Count, "A").End(xlUp).Row) If .Count set rfund = .find(what:=LstArchiv.Value, lookin:=xlValues, lookat=XlWhole) End With If Not rfund Is Nothing Then Workbooks.Open rfund.Offset(, 1).Value Else MsgBox " keine Liste ausgewählt", vbOKOnly, "Fehler" End If Unload Me End Sub

Private Sub UserForm_Initialize() Dim rng As Range, sName As String, i As Long, cnt As Long i = 1 For cnt = 0 To Me.Controls.Count - 1 If Me.Controls(cnt).Name Like "Lst*" Then sName = Right(Me.Controls(cnt).Name, Len(Me.Controls(cnt).Name) - 3) With Me.Controls("Lst" & sName) .ColumnCount = 2 .ColumnWidths = "150;0" Set rng = Tabelle2.UsedRange.Cells(1, i) 'Spalte wähle Debug.Print rng.Address Set rng = rng.Offset(1).Resize(rng.End(xlDown).Row - 1, 2) 'bereich vergrößern .List = rng.Value 'liste zuweisen Me.Controls("Label_" & sName).Caption = rng.Cells(1, 1).Offset(-1).Value 'Text in Beschriftungsfeld schreiben i = i + 2 End With End If Next End Sub

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA User Form

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread