Hallo ???
nachfolgendes Makro ollte das machen, was Du Dir vorgestellt hast.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Sub Werte_einfuegen()
Dim intWert As Integer
Dim intFirstRow As Integer
Dim intEinzelwerte As Integer
Dim dblErgebnis As Double
Application.ScreenUpdating = False
Columns(2).Clear
For intWert = 1 To 365
intFirstRow = Range("B65536").End(xlUp).Offset(1, 0).Row
On Error Resume Next
dblErgebnis = Cells(intWert, 1) / 24
If intFirstRow = 2 Then intFirstRow = 1
If dblErgebnis > 0 Then
For intEinzelwerte = intFirstRow To intFirstRow + 23
Cells(intEinzelwerte, 2) = dblErgebnis
Next
End If
On Error GoTo 0
Next
End Sub
Ich hoffe, Du kommst klar.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf
meiner HP in der
Rubrik Anleitungen und dort dann in der
Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
Bei Fragen melde Dich.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]
