31.08.2017, 03:55
(Dieser Beitrag wurde zuletzt bearbeitet: 31.08.2017, 04:30 von WillWissen.
Bearbeitungsgrund: Code in Codetags gesetzt
)
Hallo Zusammen,
Es geht um folgendes Probel: Fuer eine Jahresuebersicht muss ich Werte kummulieren, kopieren und dann in eine weitere Tabelle (in Abhaengigkeit vom aktuellen Monat) einfuegen.
Mein Code sieht bis jetzt wie folgt aus:
Mein Problem ist, dass das Kopieren/Einfuegen zwar funktioniert, jedoch der Zahlenwert auf '0' gesetzt wird, und somit nicht der Summe aus 'HU38' entspricht.
Ich bin wohl leider zu blind, um den Fehler zu finden. Hoffentlich koennt ihr mir etwas weiter helfen.
Vielen Dank und besten Gruss,
Hades
Es geht um folgendes Probel: Fuer eine Jahresuebersicht muss ich Werte kummulieren, kopieren und dann in eine weitere Tabelle (in Abhaengigkeit vom aktuellen Monat) einfuegen.
Mein Code sieht bis jetzt wie folgt aus:
Code:
Private Sub CommandButton27_Click()
Dim slValue As Integer
Dim MonthIndex As Integer
'Aktueller Monat
MonthIndex = Sheets("Trends").Range("HD10").value
' Kummulierter Wert
Sheets("Trends").Activate
Sheets("Trends").Range("HU38").Select
s1Value = Selection.value
' Zielposition
Sheets("Trends").Range("HF8:IC8").Select
Selection.Find(What:=MonthIndex, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Offset(rowOffset:=28).Select
Selection.value = slValue
End SubMein Problem ist, dass das Kopieren/Einfuegen zwar funktioniert, jedoch der Zahlenwert auf '0' gesetzt wird, und somit nicht der Summe aus 'HU38' entspricht.
Ich bin wohl leider zu blind, um den Fehler zu finden. Hoffentlich koennt ihr mir etwas weiter helfen.
Vielen Dank und besten Gruss,
Hades
