Forums Neueste Beiträge
 

Problem mit Textbox füllen

30/09/2008 - 11:08 von Reiner | Report spam
Hallo zusammen,
ich habe folgendes Problem:
mit dem Code möchte ich ein Box füllen.

Private Sub Kontakt_übergeben()
Dim i
Dim Quelle As Worksheet
Dim ziel As Worksheet
Dim Kontakt As String
Set Quelle = Worksheets("Kontakte")
Set ziel = Worksheets("Rechnung")
Kontakt = usrstart.cmd_Kontaktperson
For i = 2 To Quelle.Range("A65536").End(xlUp).Offset(1, 0).Row
If Quelle.Cells(i, 1) = Kontakt Then
TextBox1.Value = "Kontakt:" & Chr(10) & Quelle.Cells(i, 1) & ", " &
Quelle.Cells(i, 2) & Chr(10) & "Tel.: " & Quelle.Cells(i, 3) & Chr(10)
& "Fax: " & Quelle.Cells(i, 4) & Chr(10) & Quelle.Cells(i, 5)
Exit Sub
End If
Next
End Sub

In der Zeile TextBox1.Value bleibt das Makro mit der Fehlermeldung
Laufzeitfehler 424 stehen
kann einer den Fehler sehen?
Bin für jeden Tipp dankbar.

Grüße
Reiner
 

Lesen sie die antworten

#1 Jens Unglaube
30/09/2008 - 12:34 | Warnen spam
Hallo Reiner,
ich kann zwar nicht ganz nachvollziehen was du da machst, aber ich deute
mal, dass die "TextBox1" in einer userform ist, die den Namen "usrstart"
hat und die Fehlermeldung bedeutet "VBA Laufzeitfehler 424 - Objekt
erforderlich".
Versuche mal "usrstart.TextBox1.value"

Gruß Jens

Reiner schrieb:
Hallo zusammen,
ich habe folgendes Problem:
mit dem Code möchte ich ein Box füllen.

Private Sub Kontakt_übergeben()
Dim i
Dim Quelle As Worksheet
Dim ziel As Worksheet
Dim Kontakt As String
Set Quelle = Worksheets("Kontakte")
Set ziel = Worksheets("Rechnung")
Kontakt = usrstart.cmd_Kontaktperson
For i = 2 To Quelle.Range("A65536").End(xlUp).Offset(1, 0).Row
If Quelle.Cells(i, 1) = Kontakt Then
TextBox1.Value = "Kontakt:" & Chr(10) & Quelle.Cells(i, 1) & ", " &
Quelle.Cells(i, 2) & Chr(10) & "Tel.: " & Quelle.Cells(i, 3) & Chr(10)
& "Fax: " & Quelle.Cells(i, 4) & Chr(10) & Quelle.Cells(i, 5)
Exit Sub
End If
Next
End Sub

In der Zeile TextBox1.Value bleibt das Makro mit der Fehlermeldung
Laufzeitfehler 424 stehen
kann einer den Fehler sehen?
Bin für jeden Tipp dankbar.

Grüße
Reiner

Ähnliche fragen