Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.09.2025 15:11:53
Probleme mit dem Autovervollständigen
27.09.2025 13:16:54
Mit VBA erstellter S.-Brief erzeugt mehr Briefe als Daten
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1316to1320
1316to1320
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

If not ActiveCell bewegt sich senkrecht Then

Forumthread: If not ActiveCell bewegt sich senkrecht Then

If not ActiveCell bewegt sich senkrecht Then
24.06.2013 12:40:14
Lutz
Hallo Experten,
Leider sind meine VBA-Kenntnisse noch sehr begrenzt, deshalb kann ich mein Befehl auch nur in Englisch-Deutsch-VBA :0) wiedergeben.
If not ActiveCell bewegt sich senkrecht Then
Befehl1
Else
Befehl2
End If
Vielleicht kennt jemand den Rest, danke.
Gruß
Lutz

Anzeige

19
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
was willst du? owT
24.06.2013 12:46:11
Rudi

AW: was willst du? owT
24.06.2013 12:58:36
Lutz
Hallo Rudi,
Also, wenn sich die aktive Zelle nach rechts oder links in der selben Zeile bewegt, egal wie weit und womit, dann soll Befehl1 ablaufen, ansonsten der andere. Was die Befehle danach machen ist noch nicht ganz klar weil mir der Anfang noch fehlt.
Gruß
Lutz

Anzeige
AW: If not ActiveCell bewegt sich senkrecht Then
24.06.2013 12:56:25
JACKD
Hallo Lutz
Active Cell kann sich nicht bewegen..
sie kann nur eine andere Zelle werden.
Also versuch dein Porblem doch bitte anders zu beschreiben..
Grüße

AW: If not ActiveCell bewegt sich senkrecht Then
24.06.2013 13:01:09
Lutz
Hallo JACKD,
dann eben dass sie eine andere Zelle wird. z.B mit Mausklick oder den Richtungstasten.
Gruß Lutz

Anzeige
Spalte/Zeile abfragen ...
24.06.2013 13:14:11
Rudi
Hallo,
...und vorherige Zelle merken.
Dim rngOld As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = rngOld.Column Then
'senkrecht
Else
'waagerecht
End If
Set rngOld = ActiveCell
End Sub

Gruß
Rudi

Anzeige
Na, na, Rudi, da fehlt doch was...! ;-) orT
24.06.2013 13:45:47
Luc:-?
(Vgl Guenther & Klaus!)
Gruß Luc :-?

ich weiß
24.06.2013 13:49:14
Rudi
Hallo,
da hab ich mal den Hajo gemacht ;-)
Gruß
Rudi

:D
24.06.2013 14:45:33
Sheldon
U made my day!
Gruß
Sheldon

Anzeige
...Dem klingen jetzt viell die Ohren! ;-) owT
24.06.2013 16:50:16
Luc:-?
:-?

AW: If not ActiveCell bewegt sich senkrecht Then
24.06.2013 13:12:35
GuentherH
Hallo Lutz,
innerhalb eines Worksheets könnte der Code, herauszukriegen ob die Markierung nicht senkrecht bewegt wird, wie unten aussehen. Ehrlich gesagt, würde ich das aber nicht für eigene Projekte einsetzen, sondern die Anforderungen ändern.
Im Tabellen-Objekt: 

Dim LastRow As Long
Dim LastCol As Long
Private Sub Worksheet_Activate()
LastRow = Selection.Row
LastCol = Selection.Column
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim waagerecht As Boolean
If Target.Column  LastCol Then
waagerecht = True
MsgBox "Bewegung waagerecht"
End If
LastRow = Selection.Row
LastCol = Selection.Column
End Sub
Viele Grüße,
Günther

Anzeige
AW: If not ActiveCell bewegt sich senkrecht Then
24.06.2013 13:20:12
Klaus
Hallo Lutz,
probiers mal so:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static OldRow As Long
If OldRow  Target.Row Then
Debug.Print "senkrecht"
Else
Debug.Print "waagerecht"
End If
OldRow = Target.Row
End Sub
Grüße,
Klaus M.vdT.

Anzeige
AW: If not ActiveCell bewegt sich senkrecht Then
24.06.2013 13:34:29
Lutz
Hallo Rudi, Günther und Klaus,
danke vielmals, Rudis geht leider nicht (Laufzeitfehler91). Die anderen beiden wunderbar, jetzt darf ich mich entscheiden...
Gruß Lutz

Danke für die Rückmeldung! owT.
24.06.2013 14:16:47
Klaus
.

Danke für die Rückmeldung! owT.
24.06.2013 14:16:47
Klaus
.

Anzeige
Danke für die Rückmeldung! owT.
24.06.2013 14:16:47
Klaus
.

Nimm erst mal Guenthers Lösung, ...
24.06.2013 14:32:17
Luc:-?
…Lutz,
bei Klaus fehlt auch noch 'ne Kleinigkeit. ;-)
Es ginge aber auch so: 
Option Explicit
isEdit As Boolean, adPrevTarget As String
Private Sub Worksheet_Activate()
adPrevTarget = ActiveCell.Address(0, 0)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
isEdit = True: adPrevTarget = Target.Cells(1).Address(0, 0)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If isEdit And adPrevTarget  "" Then
If Not Intersect(Target.Cells(1), Me.Range(prevTarget).Offset(1, 0)) Is Nothing Then
Debug.Print "[Ret]-Abschluss"
Else: Debug.Print "[Tab]-Abschluss"
End If
End If
isEdit = False
End Sub
Hier wird die Bewegung nur festgestellt, wenn sie in direktem Anschluss an (und als Folge) eine(r) ZellBearbeitung erfolgt.
Gruß Luc :-?

Anzeige
Welche Kleinigkeit fehlt denn ...
25.06.2013 08:13:17
Klaus
... in meiner Lösung, Luc? Das zuweisen von row der ersten aktiven Zeile? In meinem Test ging es auch ohne :-)
Grüße,
Klaus M.vdT.

OldRow ist beim 1.Mal =0, ...
25.06.2013 15:28:25
Luc:-?
…Klaus;
davon kann man eigentl keine Bewegungsrichtung ableiten, denn ein theoretisches OldColumn wäre genauso =0, also hätte sich der Cursor quasi schräg nach rechts unten bewegt, was aber mit den üblichen Bewegungstasten bei 1maligem Anschlag nicht möglich wäre.
Gruß Luc :-?

Anzeige
AW: OldRow ist beim 1.Mal =0, ...
25.06.2013 16:37:03
GuentherH
Hallo,
letztlich hab' ich gepokert und die Prüfung, ob rein waagrecht bewegt wird, weggelassen, weil es danach aussieht, als ob's hier egal wär.
Die diagonale Bewegung kommt dann per Maus.
schönen Abend,
Günther
;

Forumthreads zu verwandten Themen

VBA - If Anweisung mehrerer Abfragen
Jana

Hallo liebes Forum!!
Ich stehe gerade komplett (mal wieder auf dem Schlauch)!..
Ich habe einen umfangreichen VBA-Code mit Arrays. Nun möchte ich, dass in der Spalte 3 geguckt wird, ob die Zahl 2,3,7,9,11 oder 13 in dieser Zelle steht. Ist einer dieser Zahlen vorhanden, dann soll eine Va...
11.09.2008 12:06:28
Thread-ID: 1009072
3 Beiträge
VBA - if anweisung mit variable
Thomas

Hallo,
ich habe ein blöds Problem und zwar habe ich folgendes If Abfrage in einer Forschleife in Pseudo:
Wenn A1 kleiner als A2 tu dies sonst tu das
VBA:
For i = 2 To 5 If "A" & i
Irgendwie trifft dort immer nur Else ein, ich glaube es liegt an der Bedingungsformulier...
16.10.2008 10:10:50
Thread-ID: 1016763
4 Beiträge
Register der Multifunktionsleiste per VBA aktivier
Günther

Hallo!
Ich würde gerne per VBA das aktive Register der Multifunktionsleiste verändern (konkret: das Register Add-Ins aktivieren, damit dessen Inhalte im Vordergrund sichtbar werden).
Kennt jemand den entsprechenden Befehl? Wenn ja, mir bitte kurz mitteilen.
Herzlichen Dank im Voraus...
23.11.2008 17:51:53
Thread-ID: 1027119
4 Beiträge
VBA code für automatischen Rechts-Shift
Markus

Hallo Zusammen,
hat jemand eine Idee für einen VBA code zu folgendem Problem
(siehe https://www.herber.de/bbs/user/61304.xls)
:
In Spalte S finden sich verschiedene Werte. Die Spalte S soll nun durchsucht werden. Wenn in der Zelle EUR steht, dann soll dann soll wenn dies z.B. Z...
20.04.2009 11:05:39
Thread-ID: 1069746
3 Beiträge
If Not Selection.Copy Then ???
Karsten

Hallo,
ich möchte, dass wenn ich kopiert habe und auf eine andere Zelle wechsele, Target.WrapText = True übersprungen wird.
Da meine Codekonstruktion noch nicht stimmt, wird immer die Zelle in die ich wechsele, im Kopiermodus angezeigt. Kann mir jemand helfen?
Private Sub Worksheet_...
02.12.2009 01:41:36
Thread-ID: 1121269
6 Beiträge
VBA_For-Next Schleife ist fehlerhaft
Dirk

Hallo allerseits,
habe da noch ein Problem mit einer Schleife.
Nachstehender CODE soll im TB Eingaben Zeile 1 nach einem Wert aus TB Ausgabe A1 suchen.
Macht er auch, nur zeigt er mir immer erst die msgBox an (nichts gefunden) und wenn ich die dann x-mal bestätige, kommt dann auch i...
06.05.2010 17:41:15
Thread-ID: 1155887
5 Beiträge
VBA: If-Fkt mit Teilstring - Daten aktualisieren
Joe

Hallo liebe Experten,
ich stehe mal wieder vor einer Hürde, bei der ich eure Hilfe bräuchte.
Folgender Code sucht in einer Adressdatei (adressen.xls) nach einer Nummer (Spalte Q). Diese Nummer steht in einer Zelle in welcher noch weitere, durch Komme getrennte, Nummern stehen können.
24.08.2010 13:10:36
Thread-ID: 1173865
2 Beiträge
VBA Schleife für Sperranweisung
Marc

Hallo zusammen.
In meiner Tabelle A, B, C, D (à 10 Zeilen) soll die jeweiligeSpalte gesperrt werden wenn in der Überschrift ein X steht.
Das soll heißen:
Wenn A1 = X dann sperre A2:A10
Wenn A1 = "" dann lass A2:A10 entsperrt
https://www.herber.de/bbs/user/71912.xls
Mit d...
14.10.2010 11:57:03
Thread-ID: 1182382
3 Beiträge
If ActiveWorkbook.Name <> ThisWorkbook.Name Then E
Heinz

Hallo Leute
Hatte im Jänner im Forum angefragt.
Habe einen Schichtplan mit vielen Makros, und Protect mit Passort.
Wenn ich in der Firma den Schichtplan öffne UND eine andere Exceltabelle öffne,das dort auch der Blattschutz reinkommt.
Warum ?
Nun hatte ich einen Lösungsvorsc...
10.03.2011 12:48:10
Thread-ID: 1205143
6 Beiträge
VBA Find Value and Delete Row
Marc

Hi VBA team,
I have following problem.
I field B3 I have a text/value and this text/value should be searched in column A. When it finds the text/value ( for example A10 ) it should delete the Row.
For any help thanks in advance!
Marc
30.06.2011 04:11:51
Thread-ID: 1220246
5 Beiträge
If IsNumeric(Application.Parent.Name) Then
Peter

Guten Tag
Warum bringt untenstehende Funktion einen Fehler, wenn der Tabellenname nicht numerisch ist?
Gruss, Peter
https://www.herber.de/bbs/user/80841.xlsm
Public Function TabName() As Long Debug.Print Application.Caller.Parent.Name If IsNumeric(Application.Parent.Name) Then...
03.07.2012 07:32:22
Thread-ID: 1269687
5 Beiträge
VBA - Zugriff auf Zwischenablage über API
Andre

Hallo miteinander,
wenn man aus einem Internet-Browser per Strg-c eine Grafik kopiert, an der ein Hyperlink hängt und diese Grafik dann mit Strg-v in eine Excel Tabelle einfügt, hängt der Hyperlink wieder mit dran.
So weit so gut.
Ich habe ein Makro geschrieben, welches mir per API...
05.12.2012 20:04:37
Thread-ID: 1289513
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige