Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mausklick: Wechsel in erste freie Zelle der Spalte

Forumthread: 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

Anzeige

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

Anzeige
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

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

Anzeige
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

Forumthreads zu verwandten Themen

Kontextmenü bei rechtem Mausklick
Torsten

Hallo beisammen,
seit einem Download aus einem Intranet-Programm erscheint bei einem rechten Mausklick auf einen Registerreiter in einer Excel-Datei das Kontextmenü nicht mehr. Wie kann ich das wieder korrigieren?
Vielen Dank für Eure Hilfe vorab.
Gruß
Torsten
21.10.2008 09:36:00
Thread-ID: 1017863
5 Beiträge
Makro auf Tabelle läuft nur nach Mausklick
Joachim

Hallo,
ich brauch mehr als 3 bedingte Formatierungen. Daher habe ich den folgenden Code für die 4. Bedingung im Worksheet eingetragen:
Private Sub Worksheet_SelectionChange(ByVal Target as Excel.Range) If Range("A12").Value = 16 Then Range("C15").Interior.ColorIndex = 34 Else Range("C...
24.10.2008 13:02:00
Thread-ID: 1018974
10 Beiträge
Mausklick registrieren
S.

Hallo zusammen,
ich möchte auf einer geöffneten Userform einen einfachen Mausklick (kein Doppelklick) registrieren, etwa so:
If "linke Maustaste gedrückt", dann msgbox "Geht doch!"
Dabei spielt es keine Rolle, ob der Mausklick auf der Userform erfolgt oder daneben.
Ich hoffe, di...
03.11.2008 16:54:59
Thread-ID: 1021378
6 Beiträge
Einfügen per Mausklick
Ralf

Hallo Leute!
Kann mir jemand sagen, ob es möglich ist per Mausklick ein "x" in eine Zelle einzufügen und es bei einem weiteren Klick wieder zu löschen? Und ob es möglich ist gleichzeitig wenn ein "X" in der Zeile gesetzt ist die anderen 8 Spalten der Tabelle zu sperren?
Bin für jeden Hi...
06.11.2008 19:20:16
Thread-ID: 1022403
8 Beiträge
Mausklick "löschen"
Polarfuchs

Hallo Ihr Checker,
in einem Programm können mehrere Möglichkeiten zu einer Frage angeklickt werden. Dann wird eine Korrektur vorgenommen und dann in die aktive Userform neue Werte in die Captions der OptionButtons eingefügt.
Mein Problem ist, dass wenn man versehentlich zweimal mit der...
11.11.2008 19:41:57
Thread-ID: 1023657
6 Beiträge
Anzeige
Name des OptionButtons bei Mausklick ausgeben
S.

Hallo zusammen,
ich habe eine Userform, die einen Rahmen enthält, der mit einer variablen Anzahl von Optionbuttons automatisch bestückt wird (Set TextBox, Set OptionButton). Bei Anklicken eines Optionbuttons soll der die Nummer des Optionsbuttons in einer Textbox auf derselben Userform ersc...
14.11.2008 11:25:00
Thread-ID: 1024498
3 Beiträge
UserForm merfach Listbox per mausklick für TexBox
Schmidt

Hallo na alle im Forum,
ich bin neu hier, Heise Robert und fange gerade an mich mit Excel VBA auseinander zu setzen (Anfänger)
Meine Frage:
Übernahme per Mausklick in UserForm - mehrspaltige Listbox in txb1>Spalte1, in txb2>Spalte2,
txb3>Spalte3?
So sieht meine code...
21.02.2009 11:13:10
Thread-ID: 1052578
5 Beiträge
Rectangle und Rechtsmausklick
KlausMö

Guten Abend
Ich habe keine Lösung für das deaktivieren der rechten Maustaste über ein
Rectangle.
Schaut Euch bitte die Beispieldatei an, dort ist mein Problem näher beschrieben.
https://www.herber.de/bbs/user/60365.xls
Vielleich weiß ja jemand eine Lösung.
Danke
Gru...
16.03.2009 19:37:51
Thread-ID: 1060904
3 Beiträge
MonthView regiert nicht auf Mausklick
reiner

Hallo Leute,
ich kann das Kalenderelement MonthView in Office 2007 sowohl auf dem Tabellenblatt einfügen als auch über ein VBA-Formular problemlos öffnen.
Wenn ich jedoch auf einen anderen (als den aktuellen) Tag klicke, passiert nichts.
Wenn ich hingegen MonthView auf einem andere...
16.04.2009 11:28:18
Thread-ID: 1069026
6 Beiträge
TreeView lange Einträge - Mausklick geht nicht
Alfons

Hallo,
in einem TreeView stehen einige Dateinamen die länger sind als das TreeView breit ist
und deshalb rechts nicht komplett angezeigt werden.
Bei Mausklick soll die Datei im WebBrowser1 angezeigt werden.
Das geht bei den langen Dateinamen nur dann wenn ich erst mit dem horizo...
28.07.2009 10:37:09
Thread-ID: 1091606
2 Beiträge
Makro nach Mausklick abhängig vom Zellwert
Fritz_W

Hallo Forumsbesucher,
ich wende mich an die VBA-Kundigen und hoffe auf die Unterstützung bei folgendem Vorhaben:
In der Zelle AH21 meiner Tabelle liefert eine Formel den Zellwert.
Ich würde gerne, dass bei einem Mausklick auf diese Zelle das Makro abläuft, das dem Namen des aktuell...
03.09.2009 13:21:01
Thread-ID: 1100333
3 Beiträge
Aktion beim Mausklick
Rene

Hallo,
ich habe eine eigene Symbolleiste mir gebaut mit einem Pulldownmenü. Mein Problem ist nun, dass mein Makro (MeineListe1) erst dann losläuft, wenn ich eine Auswahl getroffen habe. ich möchte aber mein Makro starten, wenn ich auf die Auswahl klicke, weil ich dann die Liste erst füllen...
21.01.2010 11:49:48
Thread-ID: 1131709
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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