VBA bestimmt ausgeählte Artikel bearbeiten

Hallo meine Lieben,
ich hatte jetzt versucht, eine Userfrm zu erstellen wo man in der Userform die Daten des jeweiligen Artikels ändern kann, nur funktioniert as nicht so einfach wie ich mir das vorgestellt hatte. Also es soll so funktionieren, das man die Artikel die ihr in der Beispieldatei findet per der Userform ändern kann, z.B.: Großer Saal kostet 269,05 und dann kann man den Preis zu dem verändern was man dann will. Dies soll aber mit allen Kategorien der Tabelle dort gehen und nicht die Pivottabelle am rechten Ende vergessen, die wird über direkt daneben plazierte Tabelle aktualiesiert, heißt die Blaue Tabelle dort sollte am besten auch immer mit aktualisiert werden.
hier die Beispieldatei:
https://www.herber.de/bbs/user/133212.xlsm
Danke schonmal im Voraus,
MfG Herbert!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hsllo Herbert
hier zwei korrigierte Codeteile aus der Userform_bearbeiten. Im ersten Code habe ich nach dem laden den "." Punkt im Betrag durch ein Komma ersetzt, weil sonst statt "2.53" die Zahl "253" in der Tabelle erscheint! Im 2. Code habe ich Unload Me deaktiviert, falls man weitere Artikel bearbeiten will. Sonst must du es wieder aktivieren. Den restlichen Code mit PivorTabelle habe ich nicht verstanden und weggelassen, weil den Betrag und Einheit aendern ja nichts an der PivotTabelle veraendert'
mfg Piet

'Beide Codes an Herber senden wegen Replace
Private Sub ComboBox_Bezeichnung_Change()
Dim finden As Range, Indx As Integer
Indx = ComboBox_Bezeichnung.ListIndex
TextBox_Preisstaffel1 = Sheets("Artikelbestand").Cells(Indx + 2, 2)
TextBox_Preisstaffel2 = Sheets("Artikelbestand").Cells(Indx + 2, 3)
TextBox_Einheit = Sheets("Artikelbestand").Cells(Indx + 2, 4)
TextBox_Einheit2 = Sheets("Artikelbestand").Cells(Indx + 2, 5)
TextBox_Pivottabelle = Sheets("Artikelbestand").Cells(Indx + 2, 20)
TextBox_Preisstaffel1 = Replace(TextBox_Preisstaffel1, ".", ",")
TextBox_Preisstaffel2 = Replace(TextBox_Preisstaffel2, ".", ",")
Set finden = Columns(1).Find(what:=ComboBox_Bezeichnung)
TextBox_Zelle_Bezeichnung = finden.Address
End Sub
Private Sub CommandButton1_Click()
Dim CBoxTxt As String, findRow As Long
Dim n As Integer: n = 0
CBoxTxt = ComboBox_Bezeichnung.Text
findRow = Range(TextBox_Zelle_Bezeichnung).Row
If Cells(findRow, 1) = CBoxTxt And _
Cells(findRow, "T") = CBoxTxt Then
If MsgBox("Soll der Artikel  " & CBoxTxt & "  wirklich bearbeitet werden?", vbYesNo) =  _
vbNo Then Exit Sub
Cells(findRow, 2) = CCur(TextBox_Preisstaffel1)
Cells(findRow, 3) = CCur(TextBox_Preisstaffel2)
Cells(findRow, 4) = TextBox_Einheit
Cells(findRow, 5) = TextBox_Einheit2
End If
'Unload Me
End Sub

Private Sub CommandButton1_Click() Dim CBoxTxt As String, findRow As Long CBoxTxt = ComboBox_Bezeichnung.Text findRow = Range(TextBox_Zelle_Bezeichnung).Row If Cells(findRow, 1) = CBoxTxt And _ Cells(findRow, "T") = CBoxTxt Then If MsgBox("Soll der Artikel " & CBoxTxt & " wirklich bearbeitet werden?", vbYesNo) = _ vbNo Then Exit Sub Cells(findRow, 2) = CCur(TextBox_Preisstaffel1) Cells(findRow, 3) = CCur(TextBox_Preisstaffel2) Cells(findRow, 4) = TextBox_Einheit Cells(findRow, 5) = TextBox_Einheit2 End If 'Unload Me End Sub

Beliebteste Forumthreads (12 Monate)

VBA bestimmt ausgeählte Artikel bearbeiten

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA bestimmt ausgeählte Artikel bearbeiten

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread