Multipage Abfragemaske(Artikel anlegen und änder)

Hallo liebes Forum,
ich bastel an einer Datei mit der ich Artikel und deren Preise verwalte. bis jetzt lief auch alles ganz gut. Doch jetzt stoße ich an die grenzen meines wissens mit VBA. Ich hab eine multipage Abfragemaske. Auf der ersten Seite der Maske kann ich neue Artikel anlegen und auf der 2ten Seite kann ich Artikel mit hilfe einer Listbox suchen und will sie ändern. Ich habe mich beim Basteln an Vorlagen anderer User im Netz bedient. Vielleicht einfehler war aber sehr hilfreich.
Problem 1: Beim anlegen neuer Artikel, will ich das die Werte für den Preis als Format "Währung mit Euro-Zeichen" ausgegeben wird. Irgendwie finde ich die Lösung nicht.
Problem 2: Beim ändern der Artikel klappt das mit dem suchen der Artikel ganz gut. Nur mit dem änder und dem übernehmen der neuen Daten komm ich nicht weiter.

Ich hab die Datei im Anhang mit bei gepackt Ich hoffe ihr könnt mit helfen.
Danke schonmal....
Pascal
hier die Datei:
https://www.herber.de/bbs/user/75441.xlsm

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub cbDaten1_Click() With Sheets("test") 'Variable deklarieren Dim letzte_Zeile As Long 'Die letzte beschrieben Zeile in Spalte A ermitteln letzte_Zeile = .Range("A65536").End(xlUp).Offset(1, 0).Row 'Eintrag aus TextBox3 (bezeichnung) in erste freie Zelle übertragen .Cells(letzte_Zeile, 1).Value = Bezeichnung 'Eintrag aus TextBox5 (Einzelpreis) in erste freie Zelle übertragen With .Cells(letzte_Zeile, 2) .Value = Format(Preis, "#,#0.00 ") .Font.Size = 8 .Font.Name = "Arial" .Select End With End With Unload Me ThisWorkbook.Save End Sub

Private Sub änder_Click() Dim yn As Integer yn = MsgBox("Sind Sie sicher?", vbYesNo, "Sicherheistabfrage") If yn = 6 Then Sheets("test").Cells(Lst_Postleitzahlen.ListIndex + 4, 1) _ = TextBox2 Sheets("test").Cells(Lst_Postleitzahlen.ListIndex + 4, 2) = _ Format(TextBox1, "#,##0.00 ") TextBox2 = "" TextBox1 = "" Me.Repaint MsgBox "Änderung durchgeführt!" & vbCr & "Siehe markierte Zeile!", _ vbOKCancel, "Erfolg" Else TextBox2 = "" TextBox1 = "" Me.Lst_Postleitzahlen.SetFocus End If End Sub

Mhh, das sieht nicht schlecht aus, ich häte aber eher gedacht. Das ich in der Listbox den Artikel anwähle und dann die aktuellen Zellinhalte mir in der Textbox 1 und 2 angezeigt werden. Dann möchte ich den Zellinhalt in der Textbox verändern und auf "ändern" drücken. Jetzt soll sich der Zellinhalt in der Tabelle ändern. Ich weiss das ist nicht schon ausgefallen.
Ich hab da was im netz gefunden was so ähnlich ist. Ich bekomme die Datei derzeit leider nicht upgeloadet.
Vielleicht hilft der weiter:

Private Sub Beenden_Click() Unload Me End Sub

Private Sub DSändern_Click() Dim KZeile1 As Long 'Kundennr in Tab1 Dim KZeile2 As Long 'Kundennr in Tab2 Dim Ls As Long 'letzte spalte Dim KSumme As Double If Me.TextBox1 "" Then With Worksheets("Tabelle1") KZeile1 = CLng(ListBox1.List(ListBox1.ListIndex, 0)) + 2 '---/ 'die +2 am ende steht für die Anzahl der Überschriften, ^ KZeile2 = CInt(ListBox1.List(ListBox1.ListIndex, 0) + 1) 'die +1 am ende steht für die Anzahl der Überschriften, End With With Worksheets("Tabelle2") Ls = .Cells(KZeile2, Columns.Count).End(xlToLeft).Column .Cells(KZeile2, Ls + 1) = CDbl(Me.TextBox1.Value) 'Rate eintragen KSumme = Application.WorksheetFunction.Sum(.Range(.Cells(KZeile2, 2), .Cells(KZeile2, Ls + _ 1))) End With ListBox1.List(ListBox1.ListIndex, 7) = KSumme 'Summe der Raten eintragen Worksheets("Tabelle1").Cells(KZeile1, 8) = KSumme 'Summe der Raten eintragen List3_Initialize (KZeile2) 'ListBox3 neu schreiben List2_Initialize Me.TextBox1 = "" End If End Sub

Private Sub ListBox1_Click() ' Me.TextBox1 = ListBox1.List(ListBox1.ListIndex, 7) List3_Initialize CInt(ListBox1.List(ListBox1.ListIndex, 0) + 1) 'Kundennummer übergeben+1 ;entspricht der Zeilennummer in Tabelle2; eine Zeile Überschrift End Sub
Sub List3_Initialize(KundenNr As Integer)
Dim Ls As Long 'letzte benutzte Spalte
Dim i As Long
ListBox3.Clear
With Worksheets("Tabelle2")
Ls = .Cells(KundenNr, Columns.Count).End(xlToLeft).Column
If Ls = 1 Then
Me.ListBox3.AddItem "keine"
Else
For i = 2 To Ls
Me.ListBox3.AddItem .Cells(KundenNr, i)
Next
End If
End With
End Sub

Private Sub änder_Click() Dim LZ& ' Variable für Letzte Zeile Dim I& LZ = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row For I = 4 To LZ If Txt_Ort = Cells(I, 1) Then If TextBox2.Text "" Then Cells(I, 1) = TextBox2.Text End If If TextBox1.Text "" Then Cells(I, 2) = Val(Replace(TextBox1.Text, ",", ".")) Cells(I, 2).NumberFormat = "#,##0.00 " End If Exit For End If Next End Sub

Private Sub Lst_Postleitzahlen_Click() TextBox14 = Lst_Postleitzahlen.Column(2) TextBox15 = Lst_Postleitzahlen.Column(1) TextBox16 = Lst_Postleitzahlen.Column(3) TextBox17 = Lst_Postleitzahlen.Column(4) End Sub

Beliebteste Forumthreads (12 Monate)

Multipage Abfragemaske(Artikel anlegen und änder)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Multipage Abfragemaske(Artikel anlegen und änder)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread