Werte aus Textboxen an Tabelle

[marose67]

Hallo Bernie,

1) danke für Deine Glückwünsche.
2) hast Du mich doch echt dazu gebracht Excel auf zu machen ...
Ich habe folgenden Code genutzt (habe also alles oben nicht unbedingt berücksichtigt).

Code:

Option Explicit

Private Sub UserForm_Initialize()
  Dim tbl_Kürzel As Worksheet
  
  Set tbl_Kürzel = Worksheets("Kürzel")
  
  With frm_Kürzel
    .Label1.Caption = tbl_Kürzel.Cells(1, 1).Value
    .Label2.Caption = tbl_Kürzel.Cells(1, 2).Value
    .Label3.Caption = tbl_Kürzel.Cells(1, 3).Value
    .Label4.Caption = tbl_Kürzel.Cells(1, 4).Value
    .Label5.Caption = tbl_Kürzel.Cells(1, 5).Value
    .Label6.Caption = tbl_Kürzel.Cells(1, 6).Value
    .ListBox1.List = tbl_Kürzel.Range("A2:F141").Value
    .ListBox1.ColumnCount = 6
    .ListBox1.ColumnWidths = "70;120;200;70;140;60"
    .TextBox1.SetFocus
  End With
  
  frm_Kürzel.Label7.Caption = frm_Kürzel.Label1.Caption
  frm_Kürzel.Label8.Caption = frm_Kürzel.Label2.Caption
  frm_Kürzel.Label9.Caption = frm_Kürzel.Label3.Caption
  frm_Kürzel.Label10.Caption = frm_Kürzel.Label4.Caption
  frm_Kürzel.Label11.Caption = frm_Kürzel.Label5.Caption
  frm_Kürzel.Label12.Caption = frm_Kürzel.Label6.Caption

End Sub

Private Sub ListBox1_Click()
'Dim lng As Integer

  Sheets("Kürzel").Activate
    'lng = frm_Kürzel.ListBox1.Column(6)
  'With frm_Kürzel
    TextBox1.Value = Sheets("Kürzel").Cells(2, 1).Value
    TextBox2.Value = Sheets("Kürzel").Cells(2, 2).Value
    TextBox3.Value = Sheets("Kürzel").Cells(2, 3).Value
    TextBox4.Value = Sheets("Kürzel").Cells(2, 4).Value
    TextBox5.Value = Sheets("Kürzel").Cells(2, 5).Value
    TextBox6.Value = Sheets("Kürzel").Cells(2, 6).Value
  'End With
End Sub

Private Sub cmd_Neu_Click()
Dim lng As Long

On Error Resume Next
  With Worksheets("Depot")
  lng = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Rows.Row
   .Cells(lng, 1).Value = TextBox1.Value
   .Cells(lng, 2).Value = TextBox2.Value
   .Cells(lng, 3).Value = TextBox3.Value
   .Cells(lng, 4).Value = TextBox4.Value
   .Cells(lng, 5).Value = TextBox5.Value
   .Cells(lng, 6).Value = TextBox6.Value
  End With
End Sub

und ich wunderte mich das nichts funktioniert ... Bis ich dann im Sheet Depot nach unten gescrollt habe und dort bereits Daten eingetragen waren. Und dort wurden auch wunschgemäß neue Sätze hinzugefügt. Kontrolliere das mal bei Dir.
Heißt: Auch wenn Du alles was oben stand geändert hast, kann es sein, dass Du das Funktionieren vielleicht nicht mitbekommen hast, Da Daten um die Zeile 150 eingetragen wurden. Man hat es einfach nicht gesehen.

Gruß
Marcus

[Bernie]

Hallo Uwe,

Hallo Bernie,

warum fragst Du eigentlich, wenn Du die Fehlerberichtigungen gar nicht übernimmst
und dann behauptest, das diese alle nicht weiterhelfen??!!

Gruß Uwe

Ich bin dir sehr dankbar, dass du mich darauf aufmerksam machst, dass ich gestern eine Datei ins Forum gestellt hatte, die weder den Ursprung , noch den einen oder anderen Vorschlag von dir, Stefan oder Marcus beinhaltete. Ich kann dir versichern, dass ich alle, wirklich alle Beispiele von euch Helfern ausprobiert habe.

Mittlerweile habe ich die Lösung gefunden und zwar hat Marcus in seinem letzten Beitrag einen Denkanstoss gegeben und nach einigem Tüffteln habe ich es geschafft. (siehe Beitrag an Marcus)

[Kuwer]

Hallo Bernie,

alles klar und danke für Deine Rückmeldung. [Bild: sm6.gif]

Gruß Uwe

[Bernie]

Hallo Marcus,

2) hast Du mich doch echt dazu gebracht Excel auf zu machen ...

... das solltest du ruhig öfter machen, insbesondere wenn ich Fragen im Forum habe

Bis ich dann im Sheet Depot nach unten gescrollt habe und dort bereits Daten eingetragen waren.

Meine Problem war das ansteuern der falsche Zeile wahrscheinlich Listbox1.List und meine nicht korrekt ermittelte Zeile im Blatt "Depot", das habe ich durch ein wenig tüffteln gelöst. Nochmal recht♥lichen Dank.

Hier nun der funktionierende Code:

Code:

Private Sub cmd_Neu_Click()
Dim letztezeile As Long
Dim lng As Long

lng = Sheets("Depot").Range("A1048576").End(xlUp).Offset(1, 0).Row

With frm_Kürzel
    Sheets("Depot").Activate
    letztezeile = Sheets("Depot").Cells(Rows.Count, 1).End(xlUp).Row + 1
    Cells(lng, 1).Value = TextBox1.Value
    Cells(lng, 2).Value = TextBox2.Value
    Cells(lng, 3).Value = TextBox3.Value
    Cells(lng, 4).Value = TextBox4.Value
    Cells(lng, 5).Value = TextBox5.Value
    Cells(lng, 6).Value = TextBox6.Value
End With
Call UserForm_Initialize
End Sub