letzte Zeile plus 1 farbig und mit String versehen
14.12.2012 10:05:24
Pascal
Ich habe in einer Excel Workbook folgenden Code:
Sub Beispiel_letzte_beschriebene_Zeile()
Dim LRow As Long
Dim MyDatStrg As String
Dim Zelle As String
On Error Resume Next
MyDatStrg = InputBox("Bitte Kalenderwoche eingeben", "Kalenderwoche")
With ThisWorkbook.Worksheets("Woche")
LRow = Cells.Find("*", , xlValues, xlWhole, xlByRows, xlPrevious, False, False).Row
LRow = Application.Max(LRow, Cells.Find("*", , xlFormulas, xlWhole, xlByRows, _
xlPrevious).Row)
If LRow = 0 Then LRow = 1
On Error GoTo 0
Zelle = "A" & LRow + 1 & """"
Sheets("Woche").Range(Zelle).Text = MyDatStrg
End With
End Sub
Damit will ich bewirken, dass auf dem Sheet "Woche" die letzte gefüllte Zeile gefunden wird.
die nächste freie Zeile soll mittels Text (kalenderwoche ab Inputbox) gefüllt werden und dann grün markiert werden.
Doch leider erhalte ich mit dem obigen Code immer einen Fehler 1004
was mach ich falsch ?
Danke für die Hilfe