Clever-Excel-Forum

Seiten: 1 2

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

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)

Hallo Bernie,

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

Gruß Uwe

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

Seiten: 1 2

marose67

Bernie

Kuwer

Bernie