werte in andere Tabelle übertragen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Also, erst einmal vielen herzlichen Dank für die rasche Antwort! Ja, und vom Prinzip her schon super...
Allerdings nicht ganz das, was ich brauche, aber fast! Tabelle 1 trifft es auf den Punkt! Tabelle 2 noch nicht ganz...
Jeder Kunde soll in Tabelle 2 eine feste Spalte bekommen, Spalte A für Kunde 101, Spalte B = Kunde 102 usw.
Die erste Zelle wird mit der Kundennummer deklariert, die ich vorher selbst vergebe...
Wenn jetzt jemand auf Tabelle 1 die Eingaben gemacht und den Knopf gedrückt hat, sollen die Werte auf Tabelle 2 übertragen werden, nur untereinander. Dann soll Tabelle 2 gespeichert und Tabelle 1 geleert und für eine neue Eingabe bereit gemacht werden.
Bei einer erneuten Eingabe auf Tabelle 1 sollen die neuen Werte unter die vorherigen gespeichert werden usw.
Vielleicht, zum besseren Verständnis, wofür ich das brauche: Ich brauche das für einen Kindergarten. Da wollen wir einen Kleidermarkt einrichten, bei dem Verkäufer sich melden und eine Kundennummer bekommen. Dann beschriften diese Ihre Kleider mit Ihrer Nummer und einen Betrag X den Sie für Ihre Kleider haben möchten. Die Klamotten kommen auf einen grossen Wühltisch und die Leute können x-beliebig Sachen rauswühlen und gehen damit zur "Kasse" . Dort muss dann jemand in einem Rechnungsformular die Kundennummer und den Betrag eingeben. Prüfen und wenn alles ok, erst dann speichern. In der Tabelle 2 sollen dann einfach alle erzielten Beträge pro Kunde zusammengerechnet und abzüglich eines gewissen Prozentsatzes ausgezahlt werden. Formular erstellen und einfache VBA-Funktionen kann ich, aber wenn ich das Modul sehe, bin ich froh, gefragt zu haben ;-)

Hallo Marcus,
hier ein Makro, das die Daten umgruppiert. Max 255 Kunden könne so in einem Tabellenblatt erfasst werden.
Die Tabellennamen im Code muss du noch anpassen.
Gruß
Franz


Sub DatenUmgruppieren()
Dim wksQuelle As Worksheet, wksZiel As Worksheet
Dim ZeileQ As Long, SpalteZ As Integer, Zelle As Range
Dim Kunde As String, Betrag As Variant
Set wksQuelle = Worksheets("Tab1") 'Tabelle mit Ausgangsdaten
Set wksZiel = Worksheets("Tab2") 'Tabelle mit umgruppierten Daten
Application.ScreenUpdating = False
With wksZiel
'vorhandene Daten löschen
.UsedRange.ClearContents
'Zeilentitel eintragen
.Cells(1, 1) = "Kunde"
.Cells(2, 1) = "Betrag 01"
End With
With wksQuelle
'Zeilen in Ausgangsdaten abarbeiten
For ZeileQ = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
'Daten in Zeile einlesen
Kunde = .Cells(ZeileQ, 1).Value
Betrag = .Cells(ZeileQ, 2).Value
With wksZiel
'Kunden-Nr in Zieltabelle Zeile 1 suchen
Set Zelle = .Rows(1).Find(What:=Kunde, LookIn:=xlValues, Lookat:=xlWhole)
'Daten in Zieltabelle eintragen
If Zelle Is Nothing Then 'Kunde noch nicht vorhandne
If SpalteZ = .Columns.Count Then
MsgBox "max. Anzahl Spalten ist erreicht"
Exit For
End If
SpalteZ = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1
.Cells(1, SpalteZ) = Kunde
.Cells(2, SpalteZ) = Betrag
Else 'Betrag bei vorhandenem Kunden ergänzen
Zelle.End(xlDown).Offset(1, 0).Value = Betrag
'Spalte 1 Texteintrag
If IsEmpty(.Cells(Zelle.End(xlDown).Row, 1)) Then
.Cells(Zelle.End(xlDown).Row, 1).Value _
= "Betrag " & Format(Zelle.End(xlDown).Row - 1, "00")
End If
End If
End With
Next
End With
With wksZiel
.Activate
'Spalten nach Kunde in Zeile 1 sortieren
.Range(.Columns(2), .Columns(SpalteZ)).Sort _
Key1:=Range("B1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
End With
ende:
Application.ScreenUpdating = True
Set Zelle = Nothing: Set wksQuelle = Nothing: Set wksZiel = Nothing
End Sub

Beliebteste Forumthreads (12 Monate)

werte in andere Tabelle übertragen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

211 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

werte in andere Tabelle übertragen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

211 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread