Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
784to788
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
784to788
784to788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

bis zum letzten Eintrag einer zeile bzw. eins mehr

bis zum letzten Eintrag einer zeile bzw. eins mehr
26.07.2006 10:43:57
Timonski
EXCEL Gut - VBA Grundkenntnisse
Servus mitnand
ich wollte gern über VBA ein Code schreiben der folgendes macht...
wenn ich zwischen Reihe 3 und 79 Spalte A selektier, soll er mir an das Ende des geschriebenen in der Reihe springen bzw. auf das nächste feie Feld.
im manuell würde das so aussehn...
A3 selektieren, END Pfeil nach rechts Taste drücken und nochmal eins nach rechts drücken. dann steht er auf dem nächsten freien Feld.
über das Aufnahme Makro würd es so aussehn...
Sub ende()
Range("A3").Select
Selection.End(xlToRight).Select
Range("J3").Select
End Sub
Jetzt woll ich das aber als automatische Makro
hab so was

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
r = ActiveCell.Row
If r > 3 And r < 79 Then
If Cells(r, 1) = Select Then    das mit Select geht eben nicht
Selection.End(xlToRight).Select
End If
End If
End Sub

Danke
Timonski

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bis zum letzten Eintrag einer zeile bzw. eins
26.07.2006 10:50:17
Matthias
Hallo Timonski,
So müsste es gehen:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Long
If Target.Count = 1 Then
r = ActiveCell.Row
If Target.Column = 1 And r > 3 And r < 79 Then
Application.EnableEvents = False
On Error Resume Next 'wenn zeile leer ist käme sonst ein Fehler
Target.End(xlToRight).Offset(0, 1).Select
On Error GoTo 0
Application.EnableEvents = True
End If
End If
End Sub

Gruß Matthias
Vielen Dank
26.07.2006 11:01:38
Timonski
Servus Matthias,
echt viehmäßig... das klappt so wie ich mir das vorgestellt hatte...
echt super...
danke, danke, danke, danke, danke, danke, danke, danke, danke, danke, danke, danke!!!
Anzeige

312 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige