Discussion:
letzte zelle
(zu alt für eine Antwort)
doeweb
2006-03-03 18:35:43 UTC
Permalink
Hi NG,

ich habe ein Excel Arbeitsblatt, das bis Zeile 65000 formatiert ist, obwohl
nur bis Zeile 5000 Daten stehen. Dadurch ist das Arbeitsblatt recht groß und
ich kann auch nicht mit end+Pos1 ans Ende der Daten springen.

Habe schon die folgenden Zeilen gelöscht. Aber trotzdem gilt als letzte
Zelle die Zeile 65000. Wie kann ich das Excel beibringen, dass er nur bis
5000 geht?

Gruß HD
Eike Bimczok
2006-03-03 18:48:40 UTC
Permalink
Hallo HD????

du müsstest die unteren Zellen markieren und dann über "Bearbeiten -
Löschen - Alles" alles löschen.

Alternativ könntest du die Scrollarea über VBA festlegen. Z.B. so

Sub setScrollArea()
ActiveSheet.ScrollArea = "A1:G5000"
End Sub


Gruß
Eike
Post by doeweb
Hi NG,
ich habe ein Excel Arbeitsblatt, das bis Zeile 65000 formatiert ist, obwohl
nur bis Zeile 5000 Daten stehen. Dadurch ist das Arbeitsblatt recht groß und
ich kann auch nicht mit end+Pos1 ans Ende der Daten springen.
Habe schon die folgenden Zeilen gelöscht. Aber trotzdem gilt als letzte
Zelle die Zeile 65000. Wie kann ich das Excel beibringen, dass er nur bis
5000 geht?
Gruß HD
Michael Schüller
2006-03-03 19:10:36 UTC
Permalink
Hallo Eike,
hallo "doweb",
Post by Eike Bimczok
du müsstest die unteren Zellen markieren und dann über "Bearbeiten -
Löschen - Alles" alles löschen.
Jau.
Post by Eike Bimczok
Alternativ könntest du die Scrollarea über VBA festlegen. Z.B. so
Sub setScrollArea()
ActiveSheet.ScrollArea = "A1:G5000"
End Sub
Nö.
Nix für ungut, Eike, aber das halte ich nur dann für eine gute Lösung, wenn
"niemals-nie wieder-in keinem Fall" neue Zeilen in dieser Tabelle eingefügt
werden. Falls doch, muss man entweder den Code anpassen und erneut ausführen
(finde ich nicht so gut) oder es bleibt die alte ScrollArea bestehen (gar
nicht gut).


Schönen Gruß
--
Michael
***@gmx.de
Eike Bimczok
2006-03-03 19:23:50 UTC
Permalink
Hallo Michael,

der angegebene Bereich war ja nur ein Beispiel und die vorgeschlagene
Lösung eine mögliche Alternative die mir zu dem Thema eingefallen ist.
Möglich wäre ja auch die Scrollarea dynamisch festzulegen, z.B. über


Private Sub Worksheet_Change(ByVal Target As Range)

Dim lastRow As Long
lastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.ScrollArea = "A" & lastRow + 30 & ":G40"

End Sub

Aber warten wir mal ab, was doweb zu den Vorschlägen meint ;-)

Gruß
Eike
Post by Michael Schüller
Hallo Eike,
hallo "doweb",
Post by Eike Bimczok
du müsstest die unteren Zellen markieren und dann über "Bearbeiten -
Löschen - Alles" alles löschen.
Jau.
Post by Eike Bimczok
Alternativ könntest du die Scrollarea über VBA festlegen. Z.B. so
Sub setScrollArea()
ActiveSheet.ScrollArea = "A1:G5000"
End Sub
Nö.
Nix für ungut, Eike, aber das halte ich nur dann für eine gute Lösung,
wenn "niemals-nie wieder-in keinem Fall" neue Zeilen in dieser Tabelle
eingefügt werden. Falls doch, muss man entweder den Code anpassen und
erneut ausführen (finde ich nicht so gut) oder es bleibt die alte
ScrollArea bestehen (gar nicht gut).
Schönen Gruß
Eike Bimczok
2006-03-03 19:28:49 UTC
Permalink
So und jetzt ohne Bug...

Private Sub Worksheet_Change(ByVal Target As Range)

Dim lastRow As Long
lastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.ScrollArea = "A1:G" & lastRow + 30

End Sub


Gruß
Eike
Post by Eike Bimczok
Hallo Michael,
der angegebene Bereich war ja nur ein Beispiel und die vorgeschlagene
Lösung eine mögliche Alternative die mir zu dem Thema eingefallen ist.
Möglich wäre ja auch die Scrollarea dynamisch festzulegen, z.B. über
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lastRow As Long
lastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.ScrollArea = "A" & lastRow + 30 & ":G40"
End Sub
Aber warten wir mal ab, was doweb zu den Vorschlägen meint ;-)
Gruß
Eike
Post by Michael Schüller
Hallo Eike,
hallo "doweb",
Post by Eike Bimczok
du müsstest die unteren Zellen markieren und dann über "Bearbeiten -
Löschen - Alles" alles löschen.
Jau.
Post by Eike Bimczok
Alternativ könntest du die Scrollarea über VBA festlegen. Z.B. so
Sub setScrollArea()
ActiveSheet.ScrollArea = "A1:G5000"
End Sub
Nö.
Nix für ungut, Eike, aber das halte ich nur dann für eine gute Lösung,
wenn "niemals-nie wieder-in keinem Fall" neue Zeilen in dieser Tabelle
eingefügt werden. Falls doch, muss man entweder den Code anpassen und
erneut ausführen (finde ich nicht so gut) oder es bleibt die alte
ScrollArea bestehen (gar nicht gut).
Schönen Gruß
Michael Schüller
2006-03-03 19:01:01 UTC
Permalink
Hi doeweb,
^-------bitte in der NG Realnamen verwenden
Post by doeweb
ich habe ein Excel Arbeitsblatt, das bis Zeile 65000 formatiert ist,
obwohl nur bis Zeile 5000 Daten stehen. Dadurch ist das Arbeitsblatt
recht groß und ich kann auch nicht mit end+Pos1 ans Ende der Daten
springen.
Habe schon die folgenden Zeilen gelöscht. Aber trotzdem gilt als
letzte Zelle die Zeile 65000. Wie kann ich das Excel beibringen, dass
er nur bis 5000 geht?
Das ist IMHO nicht so einfach, wie man es sich vorstellt.

Sind denn die Formatierungen ab Zeile 5000 auch gelöscht, oder wurden sie
trotz Löschung der Zellen beibehalten?

Du könntest mal folgendes versuchen:
- wenn ohne große Komplikationen möglich, kopiere Deine ersten 5000 Zeilen
und füge sie in eine neue .xls ein
- alternativ: wenn ohne große Komplikationen möglich, lösche die
Formatierung für das _gesamte_ Arbeitsblatt, und erstelle sie für Deine
ersten 5000 Zeilen neu

Falls das nicht hilft, sag nochmal Bescheid

Schönen Gruß
--
Michael
***@gmx.de
doeweb
2006-03-04 10:39:08 UTC
Permalink
Hi Michael,

Vielen Dank.

Das mit dem Kopieren in neue Arbeitsmappe habe ich auch schon probiert. So
klappt das schon. Lästig, wenn viele Verknüpfungen auf das Blatt gehen.
Das mit der Formatierung werde ich noch versuchen. und das Makro auch. Habe
allerdings da nicht so die Erfahrung.
Gruß Herbert Döttling
Post by Michael Schüller
Hi doeweb,
^-------bitte in der NG Realnamen verwenden
Post by doeweb
ich habe ein Excel Arbeitsblatt, das bis Zeile 65000 formatiert ist,
obwohl nur bis Zeile 5000 Daten stehen. Dadurch ist das Arbeitsblatt
recht groß und ich kann auch nicht mit end+Pos1 ans Ende der Daten
springen.
Habe schon die folgenden Zeilen gelöscht. Aber trotzdem gilt als
letzte Zelle die Zeile 65000. Wie kann ich das Excel beibringen, dass
er nur bis 5000 geht?
Das ist IMHO nicht so einfach, wie man es sich vorstellt.
Sind denn die Formatierungen ab Zeile 5000 auch gelöscht, oder wurden sie
trotz Löschung der Zellen beibehalten?
- wenn ohne große Komplikationen möglich, kopiere Deine ersten 5000 Zeilen
und füge sie in eine neue .xls ein
- alternativ: wenn ohne große Komplikationen möglich, lösche die
Formatierung für das _gesamte_ Arbeitsblatt, und erstelle sie für Deine
ersten 5000 Zeilen neu
Falls das nicht hilft, sag nochmal Bescheid
Schönen Gruß
--
Michael
Eberhard Funke
2006-03-03 19:34:04 UTC
Permalink
Post by doeweb
Hi NG,
ich habe ein Excel Arbeitsblatt, das bis Zeile 65000 formatiert ist, obwohl
nur bis Zeile 5000 Daten stehen. Dadurch ist das Arbeitsblatt recht groß und
ich kann auch nicht mit end+Pos1 ans Ende der Daten springen.
Habe schon die folgenden Zeilen gelöscht. Aber trotzdem gilt als letzte
Zelle die Zeile 65000. Wie kann ich das Excel beibringen, dass er nur bis
5000 geht?
Gruß HD
Hallo HD,

putz doch alle Formate in den Zeilen 5001 bis 65536 (Tabellenende) weg:

Sub Putzer()
Rows("5001:65536").Clear
End Sub

Kann evtl. je nach Anzahl der Formatierungen länger dauern, aber dann hast
Du Ruhe.

P.S. In dieser NG ist es üblich, mit Realnamen zu posten. Wäre nett, wenn
Du Dich diesem Brauch anschließen würdest.
--
Mit freundlichen Grüssen Eberhard
XP home XL 2000
Eberhard(punkt)W(punkt)Funke(at)t-online.de
Loading...