Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Werte aus Textboxen an Tabelle
#11
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

Wissen ist Macht - es ist aber nicht schlimm nicht alles zu wissen.
Man muss nicht alles wissen - man muss nur wissen wo es steht, oder wo man Hilfe bekommt.
[-] Folgende(r) 1 Nutzer sagt Danke an marose67 für diesen Beitrag:
  • Bernie
Antworten Top
#12
Hallo Uwe,

(24.09.2014, 22:02)Kuwer schrieb: 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)
Grüße aus Bremen
Bernie

"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"

MS Office 2016 Pro  32bit - Win 10 Pro 64 bit
Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.
Antworten Top
#13
Hallo Bernie,

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

Gruß Uwe
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • Bernie
Antworten Top
#14
Hallo Marcus,

Zitat: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 Thumbsupsmileyanim

Zitat: 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
Grüße aus Bremen
Bernie

"Wenn du jemanden triffst ohne lächeln, schenke ihm deins !!!"

MS Office 2016 Pro  32bit - Win 10 Pro 64 bit
Haftungshinweis: Trotz sorgfältiger inhaltlicher Kontrolle übernehmen ich keine Haftung für die Inhalte externer Links. Für den Inhalt der verlinkten Seiten sind ausschließlich deren Betreiber verantwortlich.
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste