UserForm auf Grundlage von Bestandsdaten

[Rabe]

Hi,

so, gelöst:
lösche das Makro Textbox1_Exit

Verwende stattdessen

Private Sub cdm_New_Click()

  

  'VSP 

  Dim i As Long

  Dim rng As Range

  Dim lr As Long

  Dim Such As String

  Dim Zähler As Long

  

  lr = Sheets("Stammdaten").Cells(Rows.Count, "A").End(xlUp).Row

  Such = TextBox1.Value

  Zähler = 0

  Set rng = Sheets("Stammdaten").Range("A5:A" & lr).Find(Such, LookIn:=xlValues, LookAt:=xlWhole)

  For i = 1 To lr

     If Not rng Is Nothing Then

        Zähler = Zähler + 1

     End If

  Next i

  If Zähler <> 0 Then

     MsgBox ("Artikelnummer schon vorhanden!" & vbCrLf & "Bitte eine andere eingeben!")

     TextBox1.Value = ""

     TextBox1.SetFocus

  End If

  

  With Worksheets("Stammdaten")

     With .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) '.Range("A50000").End(xlUp).Offset(1, 0) 

        For i = 1 To 5

           .Cells(1, i).Value = Me.Controls("Textbox" & i).Value

        Next i

        If CheckBox1.Value = True Then

           .Cells(1, 6).Value = "ja"

        Else

           .Cells(1, 6).Value = "nein"

        End If

        .Cells(1, 7).Value = ComboBox1.Value

     End With

  End With

  Call Controls_Urzustand

End Sub

Update (versuche mal zu verstehen, wsa ich gemacht habe!):

Private Sub cmd_Update_Click()
   Dim i As Long
   With Worksheets("Stammdaten")
      For i = 2 To 5
         Suchergebnis.Offset(0, i - 1).Value = Me.Controls("Textbox" & i).Value
      Next i
      If CheckBox1.Value = True Then
         Suchergebnis.Offset(0, 5).Value = "ja"
      Else
         Suchergebnis.Offset(0, 5).Value = "nein"
      End If
      Suchergebnis.Offset(0, 7).Value = ComboBox1.Value
   End With
   Call Controls_Urzustand
End Sub

Vielleicht findest und behebst Du den Fehler, den ich im Update-Makro eingebaut habe?

[PhilippB.]

es klappt so weit.. @Rabe, melde mich später. DANKE!!!!!!!!!!

[Rabe]

Hi,

ich würde die Userform so aufbauen, so ist es sinnvoller/logischer:
   

[PhilippB.]

Hallo Rabe,

doch was Punkte!

Wenn ich "Update" geht kommt der Katalogwert nicht mit! und wird auch nicht in spalte G abgespeichert sondern in H. bei einem neuen Datensatz geht der katalogwert in H.

[Rabe]

Hi,

Wenn ich "Update" geht kommt der Katalogwert nicht mit! und wird auch nicht in spalte G abgespeichert sondern in H. bei einem neuen Datensatz geht der katalogwert in H.

also hast Du das Makro nur verwendet und nicht versucht nachzuvollziehen. :27: :53:

Was meinst Du, warum ich geschrieben habe:

Vielleicht findest und behebst Du den Fehler, den ich im Update-Makro eingebaut habe?

[PhilippB.]

Hi,


also hast Du das Makro nur verwendet und nicht versucht nachzuvollziehen.    :27:  :53:

Was meinst Du, warum mich geschrieben habe:

ich mache das später. muss jetzt los.. Ich besser mich

[PhilippB.]

@Rabe ich finde den fehler nicht!

[Rabe]

Hi,

das Makro ist ja wirklich nicht lang.

Es wird also richtig das "ja" oder "nein" in die Spalte F eingetragen und der Combobox-Wert fälschlicherweise in die Spalte H statt G
F ist richtig eingetragen, H falsch.

Jetzt vergleiche mal die beiden Zeilen:
Suchergebnis.Offset(0, 5).Value = "nein"
Suchergebnis.Offset(0, 7).Value = ComboBox1.Value

Suchergebnis steht in Spalte A
und überlege Dir, was mit Offset gemacht wird.


Wo wird welcher Wert hingeschrieben?
A plus wieviel Abstand ergibt F?
A plus wieviel Abstand ergibt G?
A plus wieviel Abstand ergibt H?
Welche Zahl muß dann geändert werden?

[PhilippB.]

Hi,

das Makro ist ja wirklich nicht lang.

Es wird also richtig das "ja" oder "nein" in die Spalte F eingetragen und der Combobox-Wert fälschlicherweise in die Spalte H statt G
F ist richtig eingetragen, H falsch.

Jetzt vergleiche mal die beiden Zeilen:
Suchergebnis.Offset(0, 5).Value = "nein"
Suchergebnis.Offset(0, 7).Value = ComboBox1.Value

Suchergebnis steht in Spalte A
und überlege Dir, was mit Offset gemacht wird.


Wo wird welcher Wert hingeschrieben?
A plus wieviel Abstand ergibt F?
A plus wieviel Abstand ergibt G?
A plus wieviel Abstand ergibt H?
Welche Zahl muß dann geändert werden?

A plus wieviel Abstand ergibt F? (0, 5)
A plus wieviel Abstand ergibt G? (0, 6)
A plus wieviel Abstand ergibt H? (0, 7)

Also den Wert trägt Excel in die richtige Spalte ein, jedoch wenn ich die Daten aufrufe, fehlt die Spalte G, sprich beim suchen nach dem update!

[Rabe]

Hi,

jedoch wenn ich die Daten aufrufe, fehlt die Spalte G, sprich beim suchen nach dem update!

dann mußt Du halt das Schreiben des Combobox-Eintrags in die Spalte G aus dem cmd_new in das cmd_search rüberkopieren, lass Dir doch nicht so den A.... hinterhertragen. Das steht doch alles in den Makros drin, muß nur verstanden und übertragen werden.

            Me.Controls("combobox1").Value = Suchergebnis.Offset(0, 6).Value

ich habe jetzt aber noch das Leeren der Checkbox und Combobox eingebaut:

  Stammdatenverwaltung - Rabe V3.xlsb (Größe: 88,06 KB / Downloads: 11)