Zuweisung eines Primärschlüssels

Hallo zusammen
-------------------------------------------------------
Worksheet mit Abhängigkeit zu Userform1:
-------------------------------------------------------
Spalte A = Primärschlüssel-Werte als ganze Zahlen
Spalte B = Text
Spalte C = leeres Eingabefeld [soll mit Textbox1 befüllt werden]
Spalte D = leeres Eingabefeld [soll mit Textbox2 befüllt werden]
------------
Userform1:
------------
Textbox1 = Spalte C
Textbox2 = Spalte D
Textbox3 = Zuweisung zum Primärschlüssel d.h. muss = Primärschlüssel
------------
Frage:
------------
Die Werte in Spalte A sind absolut einzigartig. Wie schaffe ich es, dass ich nun
die gewünschte EinfüllZeile via TextBox3 bestimmen kann?
------------
Mein Ansatz:
------------
Dim Typ_CD As Variant
Dim i As Long
Set i = Range("A:A").Column
Set Typ_CD = Range(Cells(i, 1))
Besten Dank für eure Hilfe.
Freundliche Grüsse
Allan Bachmann

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

dim Typ_CD as string dim rng as range dim zeile as long Typ_CD = TextBox3.Text Set rng = Sheets("DeinSheetname").Columns(1, 0).Find(Typ_CD) if not rng is nothing then zeile = rng.row Set rng = nothing else MsgBox ("Kein Eintrag gefunden") end if if zeile 0 then 'dein code was du dann machen willst end if

Hi yummi
Ja, genau das suche ich. Besten Dank für deinen Code. Allerdings krieg ich einen Run-time-error "1004" bei folgender cmd-Zeile: Set rng = Sheets("Worksheet-Name").Columns(1, 0).Find(Typ_CD)
Hier mal mein ganzer Code:

Private Sub CommandButton1_Click()
'Hauptbuch-Einträge aller Honorarverteilungen
Dim erow As Long
Worksheets("Main Database").Select
erow = Worksheets("Main Database").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
Cells(erow, 1) = TextBox3.Value
Cells(erow, 3) = TextBox1.Text
Cells(erow, 4) = TextBox2.Text
Cells(erow, 5) = Now()
'Hier beginnt die Verteilung auf die Mandatstypen
If ComboBox1.Value = "Vollmandate" Then
'Typ_CD ist der Primärschlüssel
Dim Typ_CD As String
Dim rng As Range
Dim zeile As Long
Typ_CD = TextBox3.Text
Set rng = Sheets("Vollmandate").Columns(1, 0).Find(Typ_CD)
If Not rng Is Nothing Then
zeile = rng.Row
Set rng = Nothing
Else
MsgBox ("Kein Eintrag gefunden!"), vbExclamation
End If
If zeile  0 Then
'dein code was du dann machen willst
Cells(Typ_CD, 3) = TextBox1.Text    'Gültigkeitsdatum
Cells(Typ_CD, 4) = TextBox2.Text    'Satz
Cells(Typ_CD, 6) = TextBox4.Value   'Soll
Cells(Typ_CD, 7) = TextBox5.Value   'Haben
End If
End If
'Eintragsfelder für neue Eingabe leeren
TextBox1.Text = ""
TextBox2.Text = ""
TextBox4.Value = ""
TextBox5.Value = ""
End Sub

dim strRange as string strRange = "A1:A" & Sheets("DeinWorksheetNamedenduanpassenmusst").Cells(Sheets(" _ DeinWorksheetNamedenduanpassenmusst").Rows.Count, 1).End(xlUp).Row Set rng = Sheets("DeinWorksheetNamedenduanpassenmusst").Range(strRange).Find(Typ_CD)

Beliebteste Forumthreads (12 Monate)

Zuweisung eines Primärschlüssels

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zuweisung eines Primärschlüssels

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread