VBA - Textbox mit Tabellenblatt vergleichen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: VBA - Textbox mit Tabellenblatt vergleichen
von: Frank
Geschrieben am: 17.07.2015 11:29:45

Hallo,
kann mir bitte jemand helfen?
Ich habe eine Userform wo ich Artikelnr.,Lagername und Stückzahl eingebe.
In einem Tabellenblatt habe ich in Spalte A mehrere Artikel und in Spalte B bis G mehrere Lagernamen hinterlegt.
Nun soll wenn ich einen Commandbutton drücke die Stückzahl zu dem entsprechenden Artikel und Lagerort zugebucht werden.
Wie setze ich das am besten um?
Für den Code wäre ich sehr dankbar.
Im voraus schon mal herzlichen Dank
Gruß Frank

Bild

Betrifft: noch Fragen?
von: Tino
Geschrieben am: 17.07.2015 11:58:46
Hallo,
gibt es die Artikelnummer nur einmal?
Wo soll die Stück zugebucht werden?
Wenn Lager1 in B dann in C, wenn Lager2 in D dann in E.
Gruß Tino

Bild

Betrifft: AW: noch Fragen?
von: Frank
Geschrieben am: 17.07.2015 12:21:52
Hallo Tino,
Danke für die schnelle Antwort.
Ich habe 100 Artikelnummern untereinander in Spalte A und jede Nummer ist nur einmal vergeben.
Ich habe 6 Lagernamen in der SpalteB=Äpfel,SpalteC=Birnen,SpalteD=Bananen
Geb ich zum Beispiel Artikelnr. 12345,Lagername Äpfel,Stückzahl 25 ein und die Artikelnr. ist als Beispiel in A16 dann soll die Stückzahl in B16 zugebucht werden
Ich hoffe ich konnts verständlich erklären.
Gruß Frank

Bild

Betrifft: Rudi sein Vorschlag sollte darauf passen oT.
von: Tino
Geschrieben am: 17.07.2015 12:28:07


Bild

Betrifft: AW: VBA - Textbox mit Tabellenblatt vergleichen
von: Rudi Maintaire
Geschrieben am: 17.07.2015 12:10:49
Hallo,
als Ansatz:

Private Sub cmdBuchen_Click()
  Dim vRow, vCol
  With Sheets("Lager")
    vRow = Application.Match(txtArtNr, .Columns(1), 0) 'Zeile Artikel
    vCol = Application.Match(txtLager, .Rows(1), 0) 'Spalte Lager
    If IsError(vRow) Then
      'Artikel hinzufügen
      vRow = .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row
    End If
    If IsError(vCol) Then
      MsgBox "Lager nicht vorhanden!"
      Exit Sub
    End If
    .Cells(vRow, vCol) = .Cells(vRow, vCol) + txtMenge * 1
  End With
End Sub

Gruß
Rudi

Bild

Betrifft: AW: VBA - Textbox mit Tabellenblatt vergleichen
von: Frank
Geschrieben am: 17.07.2015 12:34:35
Hallo Rudi,
Ihr antwortet ja schneller wie ich Fragen stellen kann,Daumen hoch!!
Der Ansatz ist schon mal prima.Vielen Dank.
Nur sollte noch die Artikelnummer mit verknüpft werden.
Gruß Frank

Bild

Betrifft: AW: VBA - Textbox mit Tabellenblatt vergleichen
von: Rudi Maintaire
Geschrieben am: 17.07.2015 12:59:47
Hallo,
Nur sollte noch die Artikelnummer mit verknüpft werden.
is doch.

vRow = Application.Match(txtArtNr, .Columns(1), 0) 'Zeile Artikel
Gruß
Rudi

Bild

Betrifft: AW: VBA - Textbox mit Tabellenblatt vergleichen
von: Frank
Geschrieben am: 17.07.2015 13:12:48
Hallo Rudi,
Stimmt, war ein Eingabefehler meinerseits.
Jetzt passts.Genauso wie ich es haben wollte.
Vielen,vielen Dank
gruß Frank

 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA - Textbox mit Tabellenblatt vergleichen"