Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1568to1572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1568to1572
1568to1572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Code

VBA Code
20.07.2017 10:52:14
Nadine
Hallo,
ich möchte folgendes umsetzen:
Ich habe eine Tabelle mit dem Namen "Lagerverwaltung".
Dort hab ich vertikal die Plätze A bis J vergeben, siehe
Userbild
.
Jetzt möchte ich mit der Wiedergabe eines CommandButtons und vorherigen Eingaben abfragen,ob die Nummer in einer dieser Matrizen vorhanden ist.
Ich suche zb. nach der Nummer 4567 auf Platz C3. Da C3 allerdings 4 Unterplätze enthält, sollen diese Unterplätze nach der Nummer 4567 abgesucht werden.
1. Schritt:
Ich suche die Zeile in Spalte A mit dem Inhalt "C" und suche die Spalte in der Zeile 22 mit dem Inhalt "3".
Das Ergebnis sollte dann A32 für "C" und B22 für "3" ergeben.
2. Schritt:
Jetzt soll in B32 (Zeile von A32 und Spalte von B22) und den folgenden 3 Zeilen (also B32:B35) nach der Nummer 4567 gesucht werden. Wenn diese Nummer in einer dieser Felder existiert, soll in der nebenliegenden Spalte die Stk. addiert werden.
Wenn nicht, soll ein freies Feld in Spalte B32:B35 gewählt werden (als neuer Eintrag quasi) und die Stk. in die nebenliegen Spalte eingetragen werden.
und das jetzt alles als VBA Code.
Hat von Euch jemand eine Idee?

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Nachgefragt
20.07.2017 11:16:33
Michael
Hallo!
Hat von Euch jemand eine Idee?
Kann ich mir grds. vorstellen. Was ich noch nicht verstehe ist
Wenn diese Nummer in einer dieser Felder existiert, soll in der nebenliegenden Spalte die Stk. addiert werden
Was soll da addiert werden?
Am Besten Du lädst statt dem Bild eine kleine Bsp-Mappe hoch, mit genau dieser Matrix wie im Bild, aber evtl. mit ein paar Einträgen. Zeige anhand dieser Mappe dann auf, was passieren (gefunden, addiert...) werden soll.
LG
Michael
AW: Nachgefragt
20.07.2017 11:25:50
Nadine
Hallo Michael,
hier die Maske:
Userbild
Davon soll zuerst der neue Lagerplatz gesucht werden, dann ob die Walznummer schon in dazugehörigen Matrix steht und dann die Menge in "Stk." eingetragen, bzw. addiert werden.
Das sähe das ca. so aus:
Userbild
Hier gehts jetzt erstmal um die Addition in C3. Natürlich soll im gleichen Schritt allerdings die 25 Stk. aus B1 subtrahiert werden.
Konnte ich dir helfen?
Anzeige
Hilfe nur mit Beispielmappe! owT
20.07.2017 11:50:56
Michael
AW: Hilfe nur mit Beispielmappe! owT
20.07.2017 12:33:51
guenni
Kleiner Hinweis: in dem Bild ist auch noch ein Zahlendreher.
Die Idee ist schon da: 

Nummer="45783"
gefunden =false
eingetragen =false
set ref_Feld=range("B32")
for each Zellchen in range(ref_feld,ref_feld.offset(3,0).cells
if zellchen = Nummer then
gefunden=true
zellchen.offset(0,1)=zellchen.offset(0,1)+25
eingetragen =true
end if
next
if not gefunden then
for each Zellchen in range(ref_feld,ref_feld.offset(3,0).cells
if zellchen = "" then
zellchen.offset(0,1)=25
eingetragen =true
Exit loop
end if
next
debug.print gefunden & " / " & eingetragen

Das Einbinden und mit variablen schreiben mußt Du Dir wohl oder übel selbst machen.
Gruß,
Günther
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige