Schönen guten Abend,
ich brauche eure Hilfe und habe folgende Problemstellung zu lösen an der ich seit einiger Zeit an einer Lösung bastel aber nicht so recht weiter komme.
Im Anhang befindet sich ein Screenshot vom Aufbau meiner Excel Datei in der täglich verschiedene Daten eingegeben werden sollen und per Button in ein separates Datenblatt (siehe Anhang) transferiert werden sollen.
Dazu sollen die Namen in der Zelle B4 bis B9 jeweils mit der Zahl aus H3 und dem Datum aus L3 in dem separatem Datenblatt abgelegt werden. Die abgelegten Daten sollen fortlaufend und chronologisch nach Name versehen mit Datum (L3) und Wert aus H3 abgelegt sein. Wenn ein Name bereits existiert soll der neue Eintrag nach dem letzten Erfolgen und ansonsten alphabetisch einsortiert und eingefügt werden. Kann mir bei dieser Thematik irgendwer von euch weiterhelfen?
Mein VBA Code sieht bislang wie folgt aus:
Vielleicht kann mir ja irgendwer weiterhelfen.
ich brauche eure Hilfe und habe folgende Problemstellung zu lösen an der ich seit einiger Zeit an einer Lösung bastel aber nicht so recht weiter komme.
Im Anhang befindet sich ein Screenshot vom Aufbau meiner Excel Datei in der täglich verschiedene Daten eingegeben werden sollen und per Button in ein separates Datenblatt (siehe Anhang) transferiert werden sollen.
Dazu sollen die Namen in der Zelle B4 bis B9 jeweils mit der Zahl aus H3 und dem Datum aus L3 in dem separatem Datenblatt abgelegt werden. Die abgelegten Daten sollen fortlaufend und chronologisch nach Name versehen mit Datum (L3) und Wert aus H3 abgelegt sein. Wenn ein Name bereits existiert soll der neue Eintrag nach dem letzten Erfolgen und ansonsten alphabetisch einsortiert und eingefügt werden. Kann mir bei dieser Thematik irgendwer von euch weiterhelfen?
Mein VBA Code sieht bislang wie folgt aus:
Visual Basic-Quellcode
- Sub Speichern_und_Übertragen()
- ' Überträgt und speichert die Daten in der Auswertung
- ' Definiton der Variablen
- Dim Quelltab As Worksheet
- Dim Zieltab As Worksheet
- Dim Zelle As Range
- Dim Zaehler As Long
- Dim letztezeile As Long
- Zaehler = 2 ' Gibt die Zeile an ab der die Daten abgelegt werden
- Bereich = "B4:B9"
- Set Quelltab = ActiveWorkbook.Worksheets("Eingabemaske")
- Set Zieltab = ActiveWorkbook.Worksheets("Auswertung")
- For Each Zelle In Quelltab.Range("B4:B9")
- ' Gibt die Spalte an, in der der Bereich geschrieben wird
- ' -> Bereich der Ablage muss überarbeitet werden damit die Daten in den richtigen Spalten abgelegt wird!
- Zieltab.Cells(Zaehler, 1) = Zelle
- Zaehler = Zaehler + 1
- Next Zelle
- ' Gibt die erfolgreiche Übertragung der Daten aus
- MsgBox "Die Datensätze wurden übertragen"
- End Sub
Vielleicht kann mir ja irgendwer weiterhelfen.