Hilfe bei VBA Daten in Monatstabelle übernehmen
29.10.2006 16:27:59
Peter
ich möchte bestimmte Artikel mit den Verarbeitungsdaten in eine Monatstabelle übernehmen.
Das Beginndatum und das Enddatum der Monatstabelle ist der gesamte
Verarbeitungszeitraum.
(die gelb gekennzeichneten Felder stellen dar, wie es mal aussehen soll)
-siehe Bsp-
https://www.herber.de/bbs/user/37751.xls
Wer kann helfen?
Sub WerteEintragen()
Set Sh = Worksheets("TMP")
intRow = 3
Do Until IsEmpty(Sh.Cells(intRow, 1))
'***Nr suchen
Set GesNr = Sh.Rows(2).Find(Cells(intRow, 1), LookIn:=xlFormulas, Lookat:=xlWhole)
If Not GesNr Is Nothing Then
FStelleDat = GesNr.Address
Nr = GesNr.Column
End If
'***Belegung vom
Set GesBelVon = Sh.Columns(12).Find(Cells(intRow, 5), LookIn:=xlFormulas, Lookat:=xlWhole)
If Not GesBelVon Is Nothing Then
FStelleDat = GesBelVon.Address
VonBel = GesBelVon.Row
End If
'***Belegung bis
Set GesBelBis = Sh.Columns(12).Find(Cells(intRow, 6), LookIn:=xlFormulas, Lookat:=xlWhole)
If Not GesBelBis Is Nothing Then
FStelleDat = GesBelBis.Address
BisBel = GesBelBis.Row
End If
'****************in Zielbereich eintragen*******************
For i = VonBel To BisBel
Sh.Cells(i, Nr) = Sh.Cells(intRow, 3).Value
Next i
intRow = intRow + 1
Loop
End Sub
Danke für die Hilfe im voraus
Peter