Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
920to924
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
920to924
920to924
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mausklick: Wechsel in erste freie Zelle der Spalte

Mausklick: Wechsel in erste freie Zelle der Spalte
31.10.2007 17:58:01
Fritz_W
Hallo Experten,
ich habe noch ein Wunsch an Euch.
Ich würde gerne erreichen, dass nach einem Mausklick in die Zelle C1 immer die erste leere Zelle der Spalte C aktiviert wird.
Vorab schon vielen Dank für jede Hilfe.
mfg
Fritz

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mausklick: Wechsel in erste freie Zelle der Spalte
31.10.2007 18:26:35
Herbert
Hi,
wie jetzt, in einem bestimmten Blatt oder immer?
mfg Herbert

AW: Mausklick: Wechsel in erste freie Zelle der Spalte
31.10.2007 18:33:00
Fritz_W
Hallo Herbert ,
das Ganze soll nur in einem bestimmten Tabellenblatt erfolgen.
mfg
Fritz

AW: Mausklick: Wechsel in erste freie Zelle der Spalte
31.10.2007 19:01:06
K.Rola
Hallo,
versuchs mal so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim FreieZelle As Range
If Target.Address = "$C$1" Then
Set FreieZelle = Range("C2:C" & Me.Rows.Count).Find("")
If Not FreieZelle Is Nothing Then FreieZelle.Select
End If
End Sub


Gruß K.Rola

AW: Mausklick: Wechsel in erste freie Zelle der Spalte
31.10.2007 19:12:25
Fritz_W
Hallo K.Rola,
funktioniert bestens.
Besten Dank.
Schöne Grüße

Anzeige
so geht's ...
31.10.2007 19:01:00
Matthias
Hallo Fritz
das geht so:
Code in das enrprechende Tabelleblatt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim z As Long
z = Cells(Rows.Count, 3).End(xlUp).Row
If Not Intersect(Target, Cells(1, 3)) Is Nothing Then
Cells(z + 1, 3).Activate
End If
End Sub


Userbild

AW: so geht's ...
31.10.2007 19:06:00
Lars
Hi,
das geht nur gut, wenn alle Zellen kontinuierlich gefüllt sind.
mfg Lars

ok, Einspruch stattgegeben ;o)
31.10.2007 19:16:40
Matthias
Hallo Lars
Ja, der Einwand ist korrekt.
Ich bin davon ausgegangen die erste leere Zelle nach der letzte gefüllten Zelle zu aktivieren.
Dann korrigiere ich das mal so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim z As Long
If Not Intersect(Target, Cells(1, 3)) Is Nothing Then
For z = 2 To 65536
If Cells(z, 3) = "" Then Cells(z, 3).Activate: Exit Sub
Next z
End If
End Sub


Userbild

Anzeige
AW: so geht's ...
31.10.2007 19:13:43
Fritz_W
Hallo Matthias,
auch Dein Code funktioniert tadellos.
Vielen Dank für die Hilfe.
Schöne Grüße
Fritz

AW: Mausklick: Wechsel in erste freie Zelle der Sp
31.10.2007 19:08:00
Erich
Hallo Fritz,
noch ein Vorschlag: 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address(0, 0)  "C1" Then Exit Sub
If IsEmpty(Cells(1, 3)) Then Exit Sub
Application.EnableEvents = False
If IsEmpty(Cells(2, 3)) Then
Cells(2, 3).Select
Else
Cells(1, 3).End(xlDown).Offset(1, 0).Select
End If
Application.EnableEvents = True
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Mausklick: Wechsel in erste freie Zelle der Sp
31.10.2007 19:27:23
Fritz_W
Hallo Erich,
ihr alle seid einfach Spitze.
Nun schon die 3. Variante und ich krieg nichts gebacken. :-)
Erneut besten Dank.
Schöne Grüße
Fritz

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige