Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatischer Zeilenwechsel am Tabellenende

Automatischer Zeilenwechsel am Tabellenende
11.06.2004 08:46:58
Headhunter
hallo,
ich möchte am tabellenende automatisch in die nächste zeile und zum tabellenanfang wechseln, wer kann helfen ?
MFG
HANS

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatischer Zeilenwechsel am Tabellenende
11.06.2004 08:59:40
Matthias
Hallo Hans,
Ins Codemodul des Blattes
(Rechtsklick auf Tabellenblattnamen im Arbeitblattregister, "Code anzeigen":)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ls As Integer, z As Long
z = ActiveCell.Row
ls = Cells(z, 256).End(xlToLeft).Column
If ActiveCell.Column > ls Then
Application.EnableEvents = False
Cells(z + 1, 1).Select
Application.EnableEvents = True
End If
End Sub

Gruß Matthias
Umbruch kommt zu früh !
11.06.2004 09:07:41
Headhunter
hallo,
das tabellenende liegt in spalte aa, leider kommt der umbruch dadurch schon in spalte d oder ich habe falsch abgeschrieben, kann auch sein ! oder ?
HANS
Anzeige
AW: Umbruch kommt zu früh !
11.06.2004 09:21:59
Matthias
Hallo Hans,
also bei mir geht es so wie es dasteht.
Schreib doch nicht ab, sondern nutze Kopieren und Einfügen!
Gruß Matthias
AW: wenn allerdings...
11.06.2004 11:48:12
Matthias
Hallo Hans,
...das Ende der Tabelle duch die Anzahl der belegten Zellen in Zeile 1 definiert ist, dann so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ls As Integer, z As Long
z = ActiveCell.Row
ls = Cells(1, 256).End(xlToLeft).Column
If ActiveCell.Column > ls Then
Application.EnableEvents = False
Cells(z + 1, 1).Select
Application.EnableEvents = True
End If
End Sub

Gruß Matthias
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige