Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Warum kann ich keine Zeile einfügen ?
Autor: hafi
Datum: 01.10.02 08:56
Hallo, ich habe bei folgendem Programm das Problem dass ich keine Zeile einfügen kann, obwohl es eigentlich die ganze Zeit funktioniert, erst nach mehrmaligem ausführen des Programms tritt der Fehler auf: "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." Das Programm Fügt in eine Liste Leere Zeilen ein und fügt in diese Zeilen Überschriften ein, es ist nur ein Teil eines komplexeren Programmes: 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 danke schon mal !!! ich hoffe es kann jemand helfen

Warum kann ich keine Zeile einfügen ?	62	hafi	01.10.02 08:56
Re: Warum kann ich keine Zeile einfügen ?	44	hafi	01.10.02 09:08
Re: Warum kann ich keine Zeile einfügen ?	604	Moni	01.10.02 09:29
Re: Warum kann ich keine Zeile einfügen ?	37	hafi	01.10.02 09:40

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