Daten in leere Zelle
31.01.2004 09:07:09
Andreas
Folgendes Problem habe ich:Ich möchte den Inhalt von "H5" per Makro in eine freie Zelle im Bereich "C10-D17" eintragen.Zellen mit Daten dürfen nicht überschrieben werden.Nun habe ich hier im Forum folgender Code abgekupfert und wollte ihn für meine Zwecke umbauen....Ich kanns einfach nicht.
Für euch sicher kein Problem.Wäre super wenn ihr helfen könntet.
Sollte auf Excel 97 und 2000 laufen.
Sub CopyInFirstEmptyCell()
Dim rng As Range
On Error GoTo ERRORHANDLER
Set rng = Cells.SpecialCells(xlCellTypeBlanks)
rng(1) = Range("H5").Value
Exit Sub
ERRORHANDLER:
Beep
MsgBox prompt:="Keine frei Zelle gefunden!"
End Sub
Andreas