Marko erweitern
03.12.2006 20:28:11
Michael
mit folgendem Makro werden die Eingaben auf dem Tabellenblatt "A-Liste" je nach Datum auf Monatstabellen verteilt. Zudem wünsche ich mir, das zusätzlich, die Daten in einer zentralen Tabelle "Übersicht" untereinander geschrieben werden.
Könnte mir das jemand in den bestehenden Code einbaun ?
Sub DatenUebernehmen()
Dim objSh As Worksheet
Dim lngFirst As Long
On Error GoTo ErrExit
Set objSh = Sheets(Format(Sheets("A-Liste").Range("B2"), "mmmm"))
With objSh
lngFirst = .Cells(Rows.Count, 1).End(xlUp).Row + 1
If .Cells(Rows.Count, 2).End(xlUp).Row + 1 > lngFirst Then lngFirst = .Cells(Rows.Count, 2).End(xlUp).Row + 1
.Range(.Cells(lngFirst, 1), .Cells(lngFirst + 25, 14)) = Sheets("A-Liste").Range("A11:n38").Value
End With
'Datenbereich löschen!
Sheets("A-Liste").Range("A11:r38").ClearContents
Set objSh = Nothing
Exit Sub
ErrExit:
If Err.Number > 0 Then
MsgBox Err.Number & vbLf & Err.Description, 48, "Fehler"
End If
End Sub