Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1396to1400
1396to1400
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Werte zuordnen

Forumthread: VBA Werte zuordnen

VBA Werte zuordnen
09.12.2014 09:11:17
Hans
Halli und Hallo!
Ich schreibe mir gerade eine Wiegeprogram mit Excel und stehe vor einem kleinem Problem für das ich eure Hilfe brauche:
Ich möchte dass ich bei jedem Wiegevorgang das Gewicht des LKWs in eine Tabelle eingetragen wird, sodass ich einen Überblick über die Lagerbestände habe.
Ich habe einen Button eingerichtet der den Wert einer Zelle "E15" (das Gewicht) in eine Tabelle schreibt.
Soweit kein Problem: 
Private Sub CommandButton2_Click()
Range("E15").Copy
Worksheets("Lager").Range("C3").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
End Sub
allerdings muss er ja beim nächste Wiegevorgang nicht mehr in "C3" schreiben sondern in C4 usw usf. Also immer in die nächste freie Zeile. Wenn ich die Tabelle reinige soll er natürlich wieder soweit "oben" wie möglich anfangen.
Außerdem steht in der Zelle Template!B13 um welche Art von Ware es sich handelt (kann man per Dropdown auswählen). Hier muss erst geprüft werden um was es sich, sodass er unter umständen nicht bei Lager!C3 sondern bei Lager!D3 anfängt die Lagertabelle zu füllen.
Ich hoffe ich konnte mein Problem halbwegs anschaulich darstellen und freue mich auf konstruktive Antworten!
Beste Grüße

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: VBA Werte zuordnen
09.12.2014 09:54:49
Simon
Guten Morgen
für dein Grundproblem könntest du (glaube ich) das Programm nehmen: 

Sub kopieren()
Dim ws As Worksheet
Dim varlauf As Long
Dim speicher As String
Set ws = Worksheets("Lager")
speicher = Cells(15, 5)
With ws
For varlauf = 1 To ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
If .Cells(varlauf, 3)  "" Then
.Cells(varlauf, 3) = speicher
End If
Next varlauf
End With
End Sub
aber ich verstehe nicht ganz was du mit dem zweiten Teil
Außerdem steht in der Zelle Template!B13 um welche Art von Ware es sich handelt (kann man per Dropdown auswählen). Hier muss erst geprüft werden um was es sich, sodass er unter umständen nicht bei Lager!C3 sondern bei Lager!D3 anfängt die Lagertabelle zu füllen.
meinst
Mit freundlichen Grüßen
Simon

Anzeige
AW: VBA Werte zuordnen
09.12.2014 10:06:24
Hans
Hey Simon!
Vielen Dank für die schnelle Hilfe. Ich werde es sofort ausprobieren.
Kurz zu deiner Frage: ich möchte das er zunächst den Wert der Zelle Template!B13 prüft und dann abhängig von dem Ergebnis in dem Lager Worksheet in die korrekte Spalte schreibt. Ich überlege gerade das mit Makros zu machen:
=WENN(Template!$B$13="WareA";Makro1_start();)
=WENN(Template!$B$13="WareB";Makro2_start();)
=WENN(Template!$B$13="WareC";Makro3_start();)
Makro1 würde dann in "Lager" Spalte C kopieren, Makro2 in Spalte D usw usf

Anzeige
AW: VBA Werte zuordnen
09.12.2014 10:15:37
hary
Moin
Du brauchst nicht fuer jede Ware ein Makro.
Wir muessten deinen Tabellenaufbau kennen.
Wenn du aus dem Blatt "Template" rausziehst und im Blatt "Lager" in Zeile 3 sind die Ueberschriften.
Dann so. 
Sub rueber()
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim letzte As Long
Dim a As Variant
Set wksQ = Worksheets("Template")
Set wksZ = Worksheets("Lager")
a = Application.Match(wksQ.Range("B13"), wksZ.Rows(3), 0)
If IsNumeric(a) Then
letzte = wksZ.Cells(Rows.Count, a).End(xlUp).Row + 1
wksQ.Range("E15").Copy
wksZ.Cells(letzte, a).PasteSpecial Paste:=xlPasteValuesAndNumberFormats
End If
End Sub

gruss hary

Anzeige
AW: VBA Werte zuordnen
09.12.2014 10:24:49
Hans
Hey Hary!
danke auch dir. Ich versuche nochmal etwas besser zu erklären:
In der Zelle Template!E15 steht das Gewicht des LKWs.
In der Zelle Template!B13 kann ich per Dropdown die Ware auswählen (es gibt nur 3 verschiedene).
Wenn Template!B13 = WareA soll er in "Lager" Spalte C das Gewicht aus Template!E15 schreiben.
Wenn Template!B13 = WareB soll er in "Later" Spalte D das Gewicht aus Template!E15 schreiben usw.
Innerhalb der Lagerspalten muss er aber immer noch prüfen welche die letzte freie Zeile in der jeweiligen Spalte ist, sodass er jedem "Buttonklick" nach unten die Gewichte der LKWs fortschreibt

Anzeige
AW: VBA Werte zuordnen
09.12.2014 10:30:35
hary
Moin
Ja macht der Code: 
Sub rueber()
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim letzte As Long
Dim a As Variant
Set wksQ = Worksheets("Template")
Set wksZ = Worksheets("Lager")
a = Application.Match(wksQ.Range("B13"), wksZ.Rows(3), 0)  '-- sucht in Zeile 3 die  _
passende Ware
If IsNumeric(a) Then '---wenn gefunden ist das die Spalte
letzte = wksZ.Cells(Rows.Count, a).End(xlUp).Row + 1 '--- gibt die naechste freie in  _
Spalte
wksQ.Range("E15").Copy
wksZ.Cells(letzte, a).PasteSpecial Paste:=xlPasteValuesAndNumberFormats'--kopiert  _
dahin
End If
End Sub

gruss hary

Anzeige
AW: VBA Werte zuordnen
09.12.2014 10:43:19
Hans
Jo funktioniert einwandfrei.
Wahnsinn, vielen Dank!
Echt der Hit was ihr drauf habt.
Problem solved ;)

AW: VBA Werte zuordnen
10.12.2014 15:50:47
Hans
Und holla ich habe dann noch eine weitergehende Frage:
Ich möchte, dass in der Zeile neben dem im "Lager" eingefügten Wert das dazugehörige Datun inkl. Uhrzeit erscheint. Ist das möglich?
Unabhängig davon versuche ich gerade einen Code zu schreiben, der eine bestimmte Zelle jeden Tag wieder auf "1" setzt... Wie kann ich das lösen?
Beste Grüße im Voraus
Hans
Anzeige
;

Forumthreads zu verwandten Themen

Zuordnung von Zeilen mit bestimmten Werten...
Zeilen

Hallo zusammen...
ich darf mal wieder eine Liste erstellen in der Kundennummern nach ihrer Endziffern (zweistellig) sortiert und dann den entsprechenden Bearbeitungsteams zugeordnet werden sollen.
Es gibt 8 Teams und die Endziffern gehen von 00 bis 99
Die Zuordnung ist momentan noch...
12.03.2013 09:18:46
Thread-ID: 1303288
12 Beiträge
Automatische Zuordnung von Zellwerten
Zellwerten

Hallo liebe Forengemeinde,
zunächst möchte ich euch allen für dieses Forum und die darin enthaltenen Beiträge danken, die dafür verantwortlich sind, dass ich Excel und VBA auf heutigem Stand beherrsche. :-)
Jetzt aber habe ich ein Problem, dass mich schon einen Tag lang quält und ich ei...
18.07.2013 13:35:26
Thread-ID: 1323075
2 Beiträge
Zuordnung von Werten in Zahlengruppen
Werten

Hallo,
ich soll aus einer Auswertung von einer chromatographischen Messung jedem gefundenen Molekül einen sog. Kovats Index berechnen.
Dieser Index wird aus der Retentionszeit des Moleküls und des jeweils davorliegenden und dahinterliegenden n-Alkans berechnet; dazu habe zusätzlich ich...
09.02.2016 22:51:12
Thread-ID: 1474424
12 Beiträge
Fortsetzungsthread Zuordnung von Werten in Zahleng
Werten

https://www.herber.de/forum/archiv/1472to1476/t1474424.htm
Hallo Werner,
das mit der bedingten Formatierung der Tabelle habe ich nicht richtig nachvollziehen können.
Ich hab die Tabelle jetzt soweit auch auf Excel 2010 rüberkopiert, allerdings kam dann wieder die Meldung, dass man...
16.02.2016 15:20:15
Thread-ID: 1475812
10 Beiträge
Zuordnung von Werten anhand meherer Kriterien
Werten

Hallo,
ich habe eine Problem bei dem ich nicht weiter komme.
Zum besseren Verstädnnis habe ich eine Beispieldatei hochgeladen: https://www.herber.de/bbs/user/106644.xlsx
Ich will jetzt die Werte vom Sheet "Vergleich" aus der Zeile E automatisiert in die Spalte I im Sheet "Daten_sor...
30.06.2016 11:57:18
Thread-ID: 1501783
4 Beiträge
Anzeige
Zuordnung von Werten zu Minima/Maxima
Werten

Hallo Zusammen.
Bei meiner Auswertung muss ich Werte einer Spalte zu den kleinsten bzw. den größten Werten einer anderen Spalte zuordnen. Dabei kann die Anzahl der Werte die zugeordnet werden müssen variieren.
In meiner Tabelle gibt es 4 Spalten IDEAL/ADVERS/REFERENZ/WERTE.
In der I...
20.07.2016 14:40:11
Thread-ID: 1505427
3 Beiträge
Anzeige
Zuordnung von Werten aus anderen Tabellenblatt
Werten

Hallo,
ich habe eine Tabelle mit verschiedenen Schülern erstellt, die aus unterschiedlichen Stadtteilen kommen (Spalte A) und verschiedene Schulen besuchen (Spalte B). Nun habe ich ein zweites Tabellenblatt, indem die potentiellen Entfernungen zwischen allen Stadtteilen und Schulen aufgefüh...
05.01.2005 17:12:27
Thread-ID: 542351
4 Beiträge
Anzeige
autofilter mit zuordnung von werten
werten

hallo zusammen
ich habe in der spalte d ziehmlich viele daten, diese habe kann ich über den autofilter sortieren (Sortiert werden 1:14). soweit so gut.
lasse ich mir eine sortierung anzeigen zB 1 möchte ich dafür dann einen Wert zu ordenen zB für 1=89,2=142 usw.
Ändere ich die sortie...
02.03.2005 20:31:38
Thread-ID: 579717
2 Beiträge
Auswahl und Zuordnung von Werten aus einer Tabelle
Werten

Hallo
Ich habe schon erste Erfahrungen mit der Daten Gültigkeitsfunktion und dem Autofilter. Ich habe folgendes Problem:
Ich habe ein Tabelle bzw. Liste vorliegen in der zu jedem Produkt (Zeile)die Menge der verwendeten Rohstoffe (Spalten) aufgeführt wird:
Beispiel:
Produktname:...
30.03.2005 09:56:33
Thread-ID: 591884
2 Beiträge
Macro für Zuordnungvon Zellwerten
Zellwerten

Guten Tag,
habe ein etwas größeres Problem und leider bisher kaum Kenntnisse bei der Arbeit mit VBA. Ich möchte erreichen, dass bei der Arbeit in Tabelle2 bei der Eingabe einer Zahl in einer Zelle (z.B. B5) in der linken Nachbarzelle (also hier A5) automatisch der Wert aus Tabelle1 F5 übern...
17.05.2005 18:07:48
Thread-ID: 612542
2 Beiträge
Anzeige
Zuordnung von unterschiedlichen Werten
unterschiedlichen

Hallo zusammen,
hab mal wieder ein Problem und ich hoffe ihr könnt mir mal wieder helfen.
Und zwar:
In Spalte R3 bis R78 stehen Werte, die sich teilweise wiederholen aber auch nicht geordnet nacheinander aufgelistet sind.
In Spalte T3 bis T78 stehen Werte, die sich zum Teil wied...
03.02.2006 14:13:08
Thread-ID: 727793
3 Beiträge
Zuordnung von Werten
Werten

Hallo Zusammen!
Ich sitze vor einer "für mich" gigantischen Aufgabe.Eine neue Preisliste soll erstellt werden.Dazu habe ich auf einem Tabellenblatt ca. 6000 Datensätze. Die Spalten sind nach Art.-Nr., Bezeichnungen, EK-Preisen, VK-Preisen, Brutto Preisen und den gewährten Rabatten aufgeteil...
31.05.2006 11:58:34
Thread-ID: 768942
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

VBA Werte automatisch zuordnen in Excel

Schritt-für-Schritt-Anleitung

Um in Excel Werte automatisch zuzuordnen, kannst du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung, wie du das umsetzen kannst:

  1. Öffne Excel und erstelle zwei Arbeitsblätter: "Template" und "Lager".
  2. In "Template" fügst du die Zellen B13 (für die Ware) und E15 (für das Gewicht) hinzu.
  3. In "Lager" fügst du in Zeile 3 die Überschriften für die verschiedenen Waren ein (z.B. WareA, WareB, WareC).
  4. Füge einen Button hinzu, der den folgenden Code ausführt:
Sub rueber()
    Dim wksQ As Worksheet
    Dim wksZ As Worksheet
    Dim letzte As Long
    Dim a As Variant
    Set wksQ = Worksheets("Template")
    Set wksZ = Worksheets("Lager")

    a = Application.Match(wksQ.Range("B13"), wksZ.Rows(3), 0) ' Sucht die Ware
    If IsNumeric(a) Then ' Wenn die Ware gefunden wurde
        letzte = wksZ.Cells(Rows.Count, a).End(xlUp).Row + 1 ' Nächste freie Zeile
        wksQ.Range("E15").Copy
        wksZ.Cells(letzte, a).PasteSpecial Paste:=xlPasteValuesAndNumberFormats ' Wert einfügen
    End If
End Sub
  1. Klicke auf den Button, um das Gewicht in die entsprechende Spalte zu übertragen.

Häufige Fehler und Lösungen

  • Fehler: "Typen nicht kompatibel"

    • Lösung: Stelle sicher, dass die Zelle B13 im "Template"-Blatt eine gültige Ware enthält, die mit den Überschriften im "Lager"-Blatt übereinstimmt.

  • Fehler: Wert wird nicht in die nächste Zeile eingefügt

    • Lösung: Überprüfe, ob die Zelle in Spalte C, D oder E nicht leer ist. Der Code sucht nach der letzten befüllten Zeile, um das Gewicht korrekt einzufügen.

Alternative Methoden

Falls du keine VBA-Programmierung verwenden möchtest, kannst du auch die Funktion WENN in Excel nutzen, um die Werte manuell zuzuordnen. Beispiel:

=WENN(Template!$B$13="WareA";Template!$E$15;"")

Diese Formel überprüft, ob in B13 "WareA" steht und gibt das Gewicht aus E15 zurück. Diese Methode ist jedoch nicht automatisch und erfordert manuelles Eingreifen.

Praktische Beispiele

Angenommen, du wiegst LKWs mit verschiedenen Waren:

  1. Beispiel für die Verwendung von VBA:

    • Du hast in B13 "WareA" ausgewählt und in E15 steht "1000".
    • Nach dem Klicken des Buttons wird "1000" in die nächste freie Zeile in Spalte C eingefügt.

  2. Beispiel für die Verwendung von Formeln:

    • Du kannst verschiedene Formeln in den Zellen C4, D4, und E4 verwenden, um die Werte manuell zuzuordnen, abhängig von der Auswahl in B13.

Tipps für Profis

  • Verwende die Worksheet_Change-Ereignisprozedur, um die Werte automatisch zuzuordnen, ohne einen Button zu klicken. Dies kann die Benutzerfreundlichkeit erhöhen, da es die Eingabe automatisiert.

  • Erweitere den Code, um auch das Datum und die Uhrzeit neben dem Gewicht zu speichern:

wksZ.Cells(letzte, a + 1).Value = Now ' Fügt das aktuelle Datum und die Uhrzeit hinzu

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass der Code bei jedem Wiegevorgang funktioniert? Stelle sicher, dass das Makro korrekt zugewiesen ist und die richtigen Zellreferenzen verwendet werden.

2. Ist es möglich, mehrere Waren gleichzeitig zu verarbeiten? Ja, du kannst den Code so anpassen, dass er eine Schleife durchführt, um mehrere Daten gleichzeitig zu verarbeiten.

3. Wie setze ich eine Zelle jeden Tag auf "1"? Du kannst ein weiteres Makro erstellen, das beim Öffnen der Arbeitsmappe ausgeführt wird. Verwende dazu:

Private Sub Workbook_Open()
    Worksheets("Template").Range("A1").Value = 1
End Sub

Das wird sicherstellen, dass die Zelle A1 jeden Tag zurückgesetzt wird.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige