VBA Werte zuordnen

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

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

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Werte zuordnen

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread