Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
1572to1576
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
VBA - Userform mit variable deklarieren
02.08.2017 22:27:48
Christian
Guten Abend,
Ich habe folgendes Problem. Und ich durchsuche schon seit Stunden das Internet nach einer Lösung.
Also folgendes
Ich habe eine Userform, nennt sich Seite1.
Wenn ich diese aktiviere dann wird ein Befehl ausgeführt, der lautet
Füllen.Daten "Rechnung", 20
In dem Sub Daten im Modul Füllen steht dann:
sub daten(w as string, r as integer)
for i = 1 to 33
Seite1.Controls("CBArtikel" & i).Value = Worksheets("" & w).Range("B" & i + r).Value
next i

Die Ausführung klappt auch soweit.
Leider gibt es nicht nur die Userform Seite1 sondern auch Seite2, Seite3, Seite4.
Im Prinzip passiert beim Userform-Aufruf auf jeder Seite das Selbe, nur müsste z.B. bei Seite2 im Sub Daten stehen
Seite2.Controls("CBArtikel" & i).value .....
Jetzt meine Frage:
Kann ich die Userform als Variable deklarieren, so dass ich dann je nach dem welche seite ich öffne die richtige Userform ausgewählt wird.
Ich hoffe ihr versteht mein Problem und es kann mir jemand helfen.
Danke schon mal und noch einen schönen Abend.
Christian

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA - Userform mit variable deklarieren
03.08.2017 00:05:45
Mullit
Hallo,
klar geht:
Sub Daten(ByRef probjUserForm As Object, w As String, r As Integer)
Dim i As Long
For i = 1 To 33
probjUserForm.Controls("CBArtikel" & i).Value = Worksheets("" & w).Range("B" & i + r). _
Value
Next i
End Sub

Aufruf bspw. im Activate-Event:
Option Explicit
Private Sub UserForm_Activate()
Füllen.Daten Me, "Rechnung", 20
End Sub

Gruß, Mullit
Anzeige

334 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige