Daten übertragen mit variabler Endsumme

Hallo liebe VBA Profis,
ich hab euch ein Beipiel einer Datei angehängt. Ich möchte das in dem Übersichtstabellenblatt die Endsummen aus dem betreffenden Monat in den Betreffenden Monat übernommen werden.
Im Übersichtstabs steht ein Datum bspw. 01.07.2010, darunter ein Land. Ich kriege ein Datenfeed, welches ich nicht verändern möchte allerdings sind die Monate in folgendem Format für Juli: 07-2010.
Die Zeilen in den Datentabs änderns sich ständig und es ergibt sich immer eine andere Summe, deswegen soll immer die letzte Zeile verwendet werden. Die Funktion soll folgende sein:
Setze mir in dem Übersichtstab die Endsumme aus dem Datentab in den richtigen Monat und zum richtigen Land. Also im Juli ist die Ensumme für UK 2128845 ... Also soll im Übersichtstab im Juli in der Zeile UK der Wert eingetragen werden.
Da ich die DAten immer nur für 3 Monate bekomme und die Datenquelle fortlaufend ist sollen nicht gefundene Monate ignoriert werden. Da ich im August nicht mehr die Wert vom Juli habe und des wegen soll dieses Datum ausgelassen werden.
Ich hoffe ich habe mich einigermaßen verständlich ausgedrückt. Bin über jegliche Hilfe euch sehr dankbar.
Liebe Grüß
Maris
https://www.herber.de/bbs/user/70376.xls

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

For liCol = 1 To lsh.Cells(1, Columns.Count).End(xlToLeft).Column 'wenn der Monat im gefundenen Datumswert _ aus Spalte A von Übersicht 'gleich ist mit den 2 rechten Zeichen aus _ den Überschriften der Ländertabellen 'z Bsp "2009-07" --> 2 Zeichen von rechts = _ "07", dann If Format(Month(.Range("A" & liDate).Value), _ "00") = Right(lsh.Cells(1, liCol).Value, 2) Then

Sub sbGesamt() Dim liDate As Integer, liSh As Integer, lsh As Worksheet, liLaender As Integer, liCol As _ Integer With Sheets("Revenue Forecast") For liDate = 1 To .Cells(Rows.Count, 1).End(xlUp).Row If IsDate(.Range("A" & liDate).Value) Then For liSh = 2 To Sheets.Count Set lsh = Sheets(liSh) liLaender = liDate + 1 Do Until IsDate(.Range("A" & liLaender).Value) If InStr(lsh.Name, .Range("A" & liLaender).Value) > 0 _ Then For liCol = 1 To lsh.Cells(1, Columns.Count). _ End(xlToLeft).Column If Format(Month(.Range("A" & liDate).Value), _ "00") = Right(lsh.Cells(1, liCol).Value, 2) Then .Range("C" & liLaender).Value = lsh. _ Cells(lsh.Cells(Rows.Count, liCol).End(xlUp).Row, liCol).Value Exit For End If Next Exit Do End If liLaender = liLaender + 1 Loop Next End If Next For liDate = 1 To .Cells(Rows.Count, 1).End(xlUp).Row If IsDate(.Range("A" & liDate).Value) Then liLaender = liDate + 1 Do Until IsDate(.Range("A" & liLaender).Value) If .Range("A" & liLaender).Offset(10, 0).Value "" Then .Range("D" & liLaender).Offset(10, 0).Value = .Range("C" _ & liLaender).Value Else Exit Do End If liLaender = liLaender + 1 Loop End If Next End With End Sub

Anbei nochmal der aktuelle Post:

Hallo,
wer kann mir den mit diesem Code helfen :-(((
Das war die Aufgabenstellung und wurde per folgendem Makro auch gelöst:
https://www.herber.de/bbs/user/70488.xls
Ich möchte das in dem Übersichtstabellenblatt die Endsummen aus dem betreffenden Monat in den Betreffenden Monat übernommen werden.
Im Übersichtstabs steht ein Datum bspw. 01.07.2010, darunter ein Land. Ich kriege ein Datenfeed, welches ich nicht verändern möchte allerdings sind die Monate in folgendem Format für Juli: 07-2010.
Die Zeilen in den Datentabs änderns sich ständig und es ergibt sich immer eine andere Summe, deswegen soll immer die letzte Zeile verwendet werden. Die Funktion soll folgende sein:
Setze mir in dem Übersichtstab die Endsumme aus dem Datentab in den richtigen Monat und zum richtigen Land. Also im Juli ist die Ensumme für UK 2128845 ... Also soll im Übersichtstab im Juli in der Zeile UK der Wert eingetragen werden.
Da ich die DAten immer nur für 3 Monate bekomme und die Datenquelle fortlaufend ist sollen nicht gefundene Monate ignoriert werden. Da ich im August nicht mehr die Wert vom Juli habe und des wegen soll dieses Datum ausgelassen werden.
Ist es noch möglich die Funktion einzubauen das er mir den Vormonat in Spalte D schreibt?
Die Lösung von dem mit dem Makro schaut folgendermaßen aus:

Sub sbGesamt()
Dim liDate As Integer, liSh As Integer, lsh As Worksheet, liLaender As Integer, liCol As  _
Integer
With Sheets("Revenue")
For liDate = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
If IsDate(.Range("A" & liDate).Value) Then
For liSh = 2 To Sheets.Count
Set lsh = Sheets(liSh)
liLaender = liDate + 1
Do Until IsDate(.Range("A" & liLaender).Value)
If InStr(lsh.Name, .Range("A" & liLaender).Value) > 0   _
_
Then
For liCol = 1 To lsh.Cells(1, Columns.Count). _
End(xlToLeft).Column
If Format(Month(.Range("A" & liDate).Value), _
_
"00") = Right(lsh.Cells(1, liCol).Value, 2) Then
.Range("C" & liLaender).Value = lsh. _
Cells(lsh.Cells(Rows.Count, liCol).End(xlUp).Row, liCol).Value
Exit For
End If
Next
Exit Do
End If
liLaender = liLaender + 1
Loop
Next
End If
Next
For liDate = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
If IsDate(.Range("A" & liDate).Value) Then
liLaender = liDate + 1
Do Until IsDate(.Range("A" & liLaender).Value)
If .Range("A" & liLaender).Offset(10, 0).Value  "" Then
.Range("D" & liLaender).Offset(10, 0).Value = .Range("C" _
_
& liLaender).Value
Else
Exit Do
End If
liLaender = liLaender + 1
Loop
End If
Next
End With
End Sub

Das PROBELM bei diesem Makro ist, das nur die MONATE berücsichtigt. Da aber dasa File über Jahresübergreifend ist muß auch die Jahreszahl berücksichtigt werden. Also 2010-06 und bsw. 2011-07. Das nächste Problem ist das der Vormonat übertragen wird, jedoch werden alle Zeilen aus dem Vormonat übertragen... es soll aber nur die Zeilen übertragen werden in denen ein Ländername steht.
Wie ihr beim ausführen des Makros sehen könnt werden auf die daten vom Vormaonat in Zeile15+16 in Teile 25+26 übertragen und die Daten für die Monate 02-05 von 2010 in die Zeilen für die Monate 2011 übernommen
Es ist wahrscheinlich nur eine kleine Anpassung... aber ich schaffs leider nicht :-(((
Krass viel zu lesen ich weiss.!
Bitte um Hilfe :-)!
Vielen lieben Dank an alle schon mal!
Gruß
Maris

Sub Uebersicht_aktualisieren() 'Übersicht aktualisieren Dim wksLand As Worksheet, SpalteMonat As Variant, sMonat As String Dim Datum As Date Dim wksUeber As Worksheet, dblSumme, Zeile As Long On Error GoTo Fehler Set wksUeber = Worksheets("Übersicht") With wksUeber For Zeile = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row If IsDate(.Cells(Zeile, 1)) Then Datum = .Cells(Zeile, 1) sMonat = Format(Datum, "YYYY-MM") Else Set wksLand = Worksheets("Daten " & .Cells(Zeile, 1)) SpalteMonat = Application.WorksheetFunction.Match(sMonat, wksLand.Cells(1, 1).EntireRow, _ 0) If IsError(SpalteMonat) Then 'do nothing Else 'Summe aus letzter Zeile im Länderblatt holen und eintragen With wksLand dblSumme = .Cells(.Rows.Count, SpalteMonat).End(xlUp).Value End With .Cells(Zeile, 2) = dblSumme End If End If NextZeile: Next End With Fehler: With Err Select Case .Number Case 0 'alles ok Case 1004 'Monat in Daten-Tabellenblatt nicht gefunden Resume NextZeile Case 9 'Daten-Tabelle zu Land nicht vorhanden wksUeber.Cells(Zeile, 2) = "Datentabelle fehlt" MsgBox "Fehler-Nr.: " & .Number & vbNewLine _ & "Datentabelle zu Land """ & wksUeber.Cells(Zeile, 1) & """ fehlt!" Resume NextZeile Case Else MsgBox "Fehler-Nr.: " & .Number & vbNewLine & .Description End Select End With End Sub

Beliebteste Forumthreads (12 Monate)

Daten übertragen mit variabler Endsumme

19 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

19
Beiträge zum Forumthread

Beiträge zu diesem Forumthread