Variablendef. und Variablen an Userform übergeben

Ben · 2014-06-20T22:41:06+00:00

Hallo liebes Forum, ich habe mein Problem von vor ein paar Tagen nun weiterprogrammiert und es sind nun neue Fragen aufgetaucht =/ Also ich habe eine Userform mit einem Textfeld (in der ich eine Kundennumer eingeben)... in der Excel Tabelle "kundendaten" soll nun nach der Kundennummer gesucht werden. Wie schaffe ich es das nun, dass die Zeile in der sich die Kundennummer befindet, als Variable gesetzt wird? Also wenn sich in der Zeile 5 die gesuchte Kundennummer befindet , die Variable D nun 5 wird. Nachdem die Variable definiert wurde soll diese nun in die Userform Kundendaten_bearbeiten übernommen werden. Kann ich es dann irgendwie für die ganze Userformn gelten lassen? Also das ich gleich in allen Textfelder und Commandbuttons mit der Variable weiterarbeiten kann? • Private Sub Weiter_Kundennummer_Click() Dim ws As Worksheet Set ws = Worksheets("Kundendaten") Dim D As Integer letztezeile = ws.Cells(Rows.Count, 1).End(xlUp).Row With ws.Range("A4:A" & letztezeile) Set C = .Find(Kundennummer_suchen.Text, LookIn:=xlValues, LookAt:=xlWhole) If Not C Is Nothing Then hier fehlt ein Befehl für Variable D = Zeilennummer _ Else: MsgBox "Konnte den Eintrag nicht finden" End If End With Unload Me Kundendaten_bearbeiten(D).Show Stimmt das mit dem "(D)"? End Sub Vielen Dank :) mit freundlichen Grüßen, Ben

Hallo Ben,
u.a. deswegen sollte man sich mit dem Umbenennen der Objecte etwas zurückhalten:
Mit einem Blick in den Objectkatalog stellt man fest:
Die Events des Userforms gehören nicht zur jeweils unterschiedlichen Klasse des erstellten Userforms('Userform1'), sondern (teilweise) zur Userform-Klasse(Class Userform), die wiederum eine Schnittstelle darstellt.
Die Name-Eigenschaft ist allerdings eine Eigenschaft der unterschiedlichen Klassen der verschiedenen erstellten Userform-Objecte(Class Userform1).
Die Problematik hat Nepumuk hier sehr gut beschrieben und er könnte Dir das mit Sicherheit noch deutlich besser erklären .
http://www.office-loesung.de/ftopic516038_0_0_asc.php
Das Umbenennen ist natürlich trotzdem möglich, aber die Event-Prozeduren enthalten immer
den Namen der Userform-Klasse und dürfen nicht verändert werden.
Somit solltest Du hiermit in der 2. Form Zugriff auf Deinen Übergabewert bekommen:

Option Explicit
Private lngVariable As Long
Private Sub UserForm_Initialize()
Dim ws As Worksheets '''"Kundendaten"
Set ws = Worksheets("Kundendaten")
If IsNumeric(Tag) Then
lngVariable = Tag
Else
MsgBox "Es wurde kein gültiger Wert übergeben.", vbExclamation
End If
TextBox1.Text = ws.Cells(lngVariable, 2).Value
TextBox2.Text = ws.Cells(lngVariable, 3).Value
End Sub

Wenn Du den Tag-Wert nicht weiter bearbeiten willst,
benötigst Du eigentlich auch keine Variable und kannst überall in der Form direkt
auf ihn zugreifen.
Du hattest übrigens lngVariable unterschiedlich geschrieben:
Kleines 'l' statt großes 'I' ....
Gruß, Mullit

Hallo Ben,
da muß nochmals nachkorrigiert werden, sonst läufst Du in zwei neue Fehler:
Das Objekt heißt natürlich Worksheet und die Textboxen müssen in die If-Anweisung;
zudem ist die Tag Eigenschaft im Initialize-Event noch nicht gesetzt:
Code in Userform1:

Option Explicit

Private Sub Weiter_Kundennummer_Click()
Dim D As Long
Dim ws As Worksheet
Dim C As Range
Dim letztezeile As Long

Set ws = Worksheets("Kundendaten")

letztezeile = ws.Cells(Rows.Count, 1).End(xlUp).Row
With ws.Range("A4:A" & letztezeile)
    Set C = .Find("rr", LookIn:=xlValues, LookAt:=xlWhole) '''Kundennummer_suchen.Text 
    If Not C Is Nothing Then

      D = C.Row '''hier fehlt ein Befehl  für Variable D = Zeilennummer 


    Else: MsgBox "Konnte den Eintrag nicht finden"

    End If
End With

Unload Me

With Kundendaten_bearbeiten
    If Not C Is Nothing Then _
      .Tag = D
    .Show     ''Stimmt das mit dem "(D)"? 
End With
End Sub



VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 12

Code in Userform2:

Option Explicit

Private lngVariable As Long

Private Sub UserForm_Activate()
Dim wksSheet As Worksheet '''"Kundendaten" 
Set wksSheet = Worksheets("Kundendaten")
If IsNumeric(Tag) Then
  lngVariable = Tag
  With wksSheet
      TextBox1.Text = .Cells(lngVariable, 2).Value
      TextBox2.Text = .Cells(lngVariable, 3).Value
  End With
End If
End Sub



VBA/HTML - CodeConverter für Office-Foren

AddIn für Excel/Word 2000-2010 - komplett in VBA geschrieben von Lukas Mosimann
Projektbetreuung durch mumpel


Code erstellt und getestet in Office 12

Hoffentlich klappt's jetzt...
Gruß, Mullit

Variablendef. und Variablen an Userform übergeben

Forumthread: Variablendef. und Variablen an Userform übergeben

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Variablen in UserForms übergeben und verwenden

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Variablendef. und Variablen an Userform übergeben

Forumthread: Variablendef. und Variablen an Userform übergeben

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Variablen in UserForms übergeben und verwenden

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread