Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Hilfe !
Autor: hafi
Datum: 30.09.02 13:02
hallo, ich bräuchte mal hilfe bei folgendem Programm, es kopiert die Überschriften aus einer Rangliste in eine andere Liste und fügt deshalb leere Zeilen in der Liste ein. allerdings kommt dauernd die Fehlermeldung: "Laufzeitfehler 1004 Microsoft Excel kann ausgefüllte Zellen nicht über das Blatt hinaus verschieben, um einen möglichen Datenverlus zu vermeiden. Versuchen Sie die Zellen oder den Inhalt der Zellen rechts und unterhalb Ihrer Daten zu löschen. Markieren Sie dann die Zelle A1 und speichern Sie die Arbeitsmappe um die zuletzt verwendete Zelle zurückzusetzen." allerding hat das Programm die ganze zeit funktioniert, warum der Fehler jetzt kommt weiss ich auch nicht, ich hoffe es kann mir jemand helfen, danke schon mal. Und das is ist das Programm: 'Ordnet dem jeweiligen Prozess seine Überschrift zu 'und fügt an der entsprechenden stelle eine leere Zeile ein Public Sub ueberschriften() Dim prozess3 As Range Dim markierung As Range Worksheets("Rangliste").Activate Call y_finden For x = 1 To y Worksheets("Rangliste").Activate Set Ueberschrift = Cells(x, 3) If CStr(Ueberschrift) = "" Then GoTo marke Set b = Cells(x, 2) Worksheets("Telefonplan").Activate Set prozess3 = Range("B:B") Set prozess3 = prozess3.Find(b) Set markierung = prozess3.EntireRow markierung.Insert Shift:=xlDown Call ueberschriften_einsetzen marke: Next x End Sub

Hilfe !

80

hafi

30.09.02 13:02

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen