Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1436to1440
1436to1440
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Textbox mit Tabellenblatt vergleichen

Forumthread: VBA - Textbox mit Tabellenblatt vergleichen

VBA - Textbox mit Tabellenblatt vergleichen
17.07.2015 11:29:45
Frank
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

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
noch Fragen?
17.07.2015 11:58:46
Tino
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

AW: noch Fragen?
17.07.2015 12:21:52
Frank
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

Anzeige
Rudi sein Vorschlag sollte darauf passen oT.
17.07.2015 12:28:07
Tino

AW: VBA - Textbox mit Tabellenblatt vergleichen
17.07.2015 12:10:49
Rudi
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

Anzeige
AW: VBA - Textbox mit Tabellenblatt vergleichen
17.07.2015 12:34:35
Frank
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

AW: VBA - Textbox mit Tabellenblatt vergleichen
17.07.2015 12:59:47
Rudi
Hallo,
Nur sollte noch die Artikelnummer mit verknüpft werden.
is doch.
vRow = Application.Match(txtArtNr, .Columns(1), 0) 'Zeile Artikel
Gruß
Rudi

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

Forumthreads zu verwandten Themen

Pivot Tabellen Elemente anzeigen
thomas

Hallo,
hat einer von euch ein Beispiel für die Funktion "Ausgeblendete Elemente in Gruppierungsfunktionen anzeigen" in Pivottabellen. Ich schaffe es nicht das Icon zu aktivieren bzw. die Funktion zu nutzen
Ich krieg es auch nicht hin die Auswirkungen der Option "Elemente ohne Daten anze...
02.12.2008 14:46:51
Thread-ID: 1029521
3 Beiträge
Pivot Tabellen weiter auswerten
Christoph

Hallo,
ich werte meine Dienstleistungen, die aktenzeichenbezogen in eine Liste eingegeben werden mit Hilfe einer Pivottabelle aus. D.h. ich gebe in einer fortlaufenden Tabelle (mit inzwischen 6000 Zeilen !!!) Datum, Aktenzeichen, Modul und Zeit (01:30) ein. Insgesamt gibt es 5 Beratungsmod...
26.02.2009 14:18:54
Thread-ID: 1054384
3 Beiträge
Pivot Tabelle mit Selektion
René

Hallo alle zusammen,
ich habe ein großes Problem und zwar muss ich einen Vorgang bei uns in der Firma erleichtern, dieser bezieht sich auf die Personaldaten,welche in excel hochgeladen werden sollen und von dort aus in eine bestimmte Reihenfolge gebracht werden sollen zur weiteren bearbeitu...
05.03.2009 11:01:37
Thread-ID: 1056713
7 Beiträge
Gesamtergebnis einer Pivottabelle als %-Wert
Dirk

Hallo Forum,
ich habe eine Pivottabelle, in der ich eine automatische Spalte eingefügt habe, die ein Gesamtergebnis der entsprechenden Zeile liefert (Tabellenoptionen - Gesamtergebnis für Zeilen). Nun möchte ich dieses Ergebnis jedoch nicht als jeweilige Zeilensumme sondern als %-Anteil an...
12.03.2009 11:59:54
Thread-ID: 1059437
3 Beiträge
Pivot: Text- statt Zahlenformat nach Import
Heike

Guten Tag,
nach Import von Daten aus Access steht ein Feld bei mir im Text- statt Zahlenformat und
ist dadurch auch nicht richtig sortiert. Wie kann ich dies beheben? Ich habe versucht,
bereits beim Laden der externen Daten gleich zu sortieren, hat auch nichts gebracht.
Verwend...
27.03.2009 13:30:28
Thread-ID: 1064605
2 Beiträge
Pivottab: Werte als % anzeigen
André

Moin zusammen,
ich habe hier ein kleines Verständnisproblem bei einer Pivot-Tabelle. Muß dazu sagen, daß ich Pivottabellen bisher nur selten verwendet habe.
Die Pivottabelle hat mehrere Spalten, darunter z.B. Verkaufspreis und Rohertrag. Diese beiden Spalten sind jeweils in Euro die Sum...
10.06.2009 15:35:59
Thread-ID: 1080522
7 Beiträge
Pivot Tabelle mit Formatierungen
Roland

Hallo zusammen,
ich habe in einer Pivot Tabelle in einer Spalte vereinzelte Zellen formatiert ( Schrift FETT, Hintergrundfarbe)
Wenn ich nun in einer andern Zelle in der Spalte links davon den Autofilter benutze, werden diese Formatierungen in besagter Zelle wieder verworfen.
Kann...
29.06.2009 09:49:30
Thread-ID: 1084655
5 Beiträge
Formel interpretiert Feldwerte als Text
pietsch.st@gmx.de

Hallo Forum,
habe Werte in vier Zellen. Die Werte stammen jeweils aus folgender selbstgeschriebener Funktion mit Rückgabewert Long:
= Anz_Unf($B$2, "Arbeitsunfall", "3","e").
Die Werte dieser Formel sind im Feld als Zahl dargestellt und sind korrekt. Als Zahl gemäß Excel "Format-Zel...
08.07.2009 22:59:54
Thread-ID: 1087292
3 Beiträge
Pivot Tabelle auswerten mit Problemen
DieterL

Hallo Excelfreunde,
Ich habe eine ganz normale Pivot Tabelle und möchte mir das Ergebnis aus der rechten unteren Zelle zusätzlich in einer anderen Zelle oberhalb anzeigen lassen. Aber egal was ich mache, nach dem verlinken erscheint immer eine null. Auch die Daten aus dem Pivot Datenbereich...
03.09.2009 11:55:32
Thread-ID: 1100292
6 Beiträge
Text als Wert
Peter

Hallo,
Aus einer Textdatei habe ich Daten importiert.
Dabei stehen in den Spalten E und F Datumsangaben, die aber als Text erkannt werden. Wie kann ich sie per Makro auf einen Schlag in Datum umwandeln?
Manuell über Inhalte einfügen-multiplizieren mit 1 ist es kein Problem, wenn ich...
30.10.2009 13:48:53
Thread-ID: 1113353
4 Beiträge
MSG-TExt für einen bestimmten Zeitraum anzeigen
Wolle

Hallo Forumgemeinde,
nachdem Ihr mir so klasse mit der MSG Box und dem Text schon geholfen habt, hoffe ich auf weitere Hilfe.
Ich möchte gerne den Text der MSG-Box nicht nur für eine Tag anzeigen lassen, sonder für einen Zeitraum ... sagen wir mal 5 Tage.
Desweiteren frage ich mich...
19.11.2009 08:29:55
Thread-ID: 1118510
6 Beiträge
Pivot Tabelle in Tabelle mit Spalten umwandeln??
okgi

Hallo liebe Excel Gemeinde!!
Meine Frage ist: wie kann ich eine Pivot Tabelle in eine Tabelle mit Spalten automatisiert überführen?
Zum Beispiel:
Pivot Tabelle
________KST_____________
Konto_.......1...........2...........3..
__A___.100,00................31,99
__B___...
15.12.2009 17:35:51
Thread-ID: 1124143
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige