Variablendef. und Variablen an Userform übergeben

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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(Kundennummer_suchen.Text, LookIn:=xlValues, LookAt:=xlWhole) 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 .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

Option Explicit Private Sub CommandButton1_Click() Dim lngVariable As Long lngVariable = Tag MsgBox lngVariable 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

Option Explicit Private lngVariable As Long Private Sub CommandButton1_Click() If IsNumeric(Tag) Then lngVariable = Tag MsgBox lngVariable Else MsgBox "Es wurde kein gültiger Wert übergeben.", vbExclamation End If End Sub

Hi danke für die vielen Antworten!
@Mullit meinst du mit Command Button den in der zweiten Userform?
Weil ich stehe jetzt vor dem Problem das wenn sich die zweite Userform öffnet das sich die Textbosen automatisch mit einem Wert aus der Excel "Kundendaten" Tabelle füllen sollen.
Habe mir das mal so gedacht: (kundendaten_bearbeiten ist die zweite Userform)

Private Sub Kundendaten_bearbeiten_Initialize()
dim ws as Worksheets "Kundendaten"
If IsNumeric(Tag) Then
lngVariable = Tag
Else
MsgBox "Es wurde kein gültiger Wert übergeben.", vbExclamation
End If
Textbox1.Text = ws.cells(IngVariable, 2).Value
Textbox2.Text = ws.cells(IngVariable, 3).Value

Aber eines verstehe ich nicht ... ich habe die zweite Userform bei Name in "Kundendaten_bearbeiten" umbenannt aber wenn ich dann "Kundendaten_bearbeiten_Initialize" schreibe erkennt er es mir nicht
Wenn ich doppelklick auf die Userform mache erscheint dann: "Userform_Click()" aber nicht "Kundendaten_bearbeiten_Click"

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

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

Beliebteste Forumthreads (12 Monate)

Variablendef. und Variablen an Userform übergeben

9
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)

Variablendef. und Variablen an Userform übergeben

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

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread