Quelldatenbank für Pivot aktualisieren
13.02.2005 16:49:27
Korl
ich bastle mal wieder vergebens an einem Makro, dass mir folgendes an Arbeit abnehmen sollte.
Für meine Pivottabelle habe ich einen Quellbereich den ich monatlich manuell ergänzen will (muß). In meinem Test ist es auf 10 Datensätze beschränkt, in der Praxis wirds dann mehr.
Es wird monatlich immer ein bestimmter Satz an Warengruppen erfasst, die Anzahl und Summen müssen manuell dazu eingetragen werden.
Nun möchte ich die Warengruppen immer wieder am Ende der Datenbank anhängen. Dafür habe ich bereits einen Code in der Recherche gefunden.
Sub KopierenEinfügen()
Dim rng As Range
Dim lngE As Long
With ActiveSheet
Set rng = .Range("A1:E10")
lngE = .Range("A65536").End(xlUp).Row + 1
rng.Copy Cells(lngE, 1)
End With
End Sub
Nun aber mein Problem:
In Spalte "A" wird stets das Jahr und in Spalte "B" der aktuelle Monat eingetragen.
Wie kann ich es im Makro erreichen, das ich für die Spalte "A" und "B" zwischendurch eine Abfrage erhalte um manuell das Jahr und den Monat vorgeben zu können.
Ich habs mit UserForm und einer Combobox versucht, ist mir aber nicht gelungen, da meine VBA-Kenntnisse sehr dürftig sind.
Gruß Korl
Anzeige