Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 16:33:24
Worksheets variable
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
18.04.2024 15:16:20
VBA Suchen, Kopieren, Einfügen
18.04.2024 15:16:07
Verschieben von Daten um bestimmte Zeilen nach unten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1220to1224
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
1220to1224
1220to1224
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

per Mausklick Zelle mit gleichem Inhalt anspringen

per Mausklick Zelle mit gleichem Inhalt anspringen
Fritz_W
Hallo VBA-Experten,
ich bitte um eure Hilfe beim Realisieren folgenden Vorhabens:
Ich möchte, dass wenn ich eine Zelle des Zellbereichs J1:J15 anklicke und diese Zelle nicht den Text "" aufweist, dass daraufhin diejenige Zelle im Tabellenblatt aktiviert wird, die den gleichen Textinhalt aufweist, wie die angeklickte Zelle. Es gibt immer (nur) eine weitere Zelle im Tabellenblatt mit dem gleichen Textinhalt.
Für eure Hilfe vielen Dank im Voraus.
mfg
Fritz

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: per Mausklick Zelle mit gleichem Inhalt anspringen
18.07.2011 16:44:58
CitizenX
Hallo Fritz,
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myFind
If Not Intersect(Target, Range("J1:J15")) Is Nothing And Target  "" Then
Set myFind = Cells.Find(Target, after:=ActiveCell)
If Not (myFind) Is Nothing Then Range(myFind.Address).Activate
End If
End Sub

Grüße
Steffen
AW: per Mausklick Zelle mit gleichem Inhalt anspringen
18.07.2011 18:11:41
Fritz_W
Hallo Steffen,
vielen Dank für die Hilfe.
Hatte zwischenzeitlich überraschend Besuch bekommen, deshalb melde ich mich erst jetzt.
Beim Test in meiner Tabelle (Tabelle1) funktioniert das nicht, in einer anderen Tabelle (Tabelle2), in der ich das noch einmal testen wollte jedoch schon. Der (vermutlich entscheidende) Unterschied in beiden Tabellen war, dass in der Tabelle1 in den Zellen J1:J15 Formeln stehen, die eben jene Texteinträge "liefern", die nun in einer weiteren Zelle der Tabelle "angesprungen" werden sollten.
In der (funktionierenden) Tabelle2 waren das einfach nur Text bzw. Zahlenwerte, die ich in die Zellen J1:J15 eingegeben hatte.
Unabhängig davon erzeugt der Code jedoch in beiden Fällen eine nicht gewünschte Wirkung: Werden im jeweiligen Tabellenblatt mehrere Zellen (Zellbereich spielt keine Rolle) markiert, führt dies zum Laufzeitfehler 13: Typen unverträglich.
Bin deshalb auf weitere Hilfe angewiesen.
Viele Grüße
Fritz
Anzeige
AW: per Mausklick Zelle mit gleichem Inhalt anspringen
18.07.2011 18:25:51
Fritz_W
Hallo Steffen,
das mit der nicht funktionierenden Tabelle1 konnte ich beseitigen.
Ursache war, dass die Texteinträge im Zellbereich J1:J15 über die Funktion SVERWEIS erzeugt wurden.
Das habe ich inzwischen anderweitig gelöst. Es bleibt nach wie vor die nicht gewünschte Fehlermeldung bei Mehrfachmarkierung im betreffenden Tabellenblatt.
mfg
Fritz
Naja, die EventProc ist auch noch etwas...
18.07.2011 18:35:54
Luc:-?
…ausbaubedürftig, Fritz,
bspw so … 

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myFind As Range
If Not Intersect(Target.Cells(1), Range("J1:J15")) Is Nothing And _
Target.Cells(1)  "" Then
Set myFind = Cells.Find(Target.Cells(1), ActiveCell, _
xlValues, xlWhole)
If Not myFind Is Nothing Then myFind.Activate
End If
Set myFind = Nothing
End Sub
Wenn du in einem Blatt selektierst und in einem anderen suchen willst, reicht der rote Ausdruck natürlich nur, wenn zwischendurch in der Prozedur auch noch das andere Blatt aktiviert wird.
Gruß Luc :-?
Anzeige
AW: Naja, die EventProc ist auch noch etwas...
18.07.2011 19:12:24
Fritz_W
Hallo Luc,
super, so funktioniert es tadellos.
Besten Dank
mfg
Fritz
Bitte, gern geschehen! Gruß owT
18.07.2011 22:42:31
Luc:-?
:-?

310 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Summen in bestimmte Zeilen
Thomas

Hallo,
ich suche eine sicherlich einfache Möglichkeit Summen in einer bestimmten Zeile bilden zu lassen. Das Problem ist das die Bereiche unterschiedlich groß sind.
Zur besseren Erläuterung habe ich eine Bsp-Datei angehängt.
Vielen Dank!
MfG Tom
Die Datei https://www.herber....
27.08.2008 14:19:00
Thread-ID: 1005088
13 Beiträge
Anzeige
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
In Textfile bestimmte Zeile suchen
Pascal

In einem Textfile soll nach einer bestimmten Zeile (immer der gleiche Text) gesucht werden.
Wird dieser Text gefunden, so soll alles vom Beginn weg des Textfiles bis und mit dieser Zeile (plus zusätzlich noch die nächste Zeile) gelöscht werden.
Geht das irgendwie ?
Wenn ja, wie ?
24.09.2008 16:14:00
Thread-ID: 1012111
8 Beiträge
aktive Zelle soll in Spalte "L" springen
Karsten

Hallo... ,
Suche folgenden Makrobefehl:
Die aktive Zelle soll in der Zeile bleiben, in der sie sich befindet, allerdings nach Spalte "L" springen.
Danke für eure Hilfe!
Gruß
Karsten
03.10.2008 16:34:44
Thread-ID: 1014058
3 Beiträge
Zelle einer Spalte in bestimmte Zelle kopieren
Fred

Wie kann man irgendeine Zelle, die in einer bestimmten Spalte befüllt wird, in eine fixe Zelle einer andere Excel-Tabelle übertragen?
Danke für eure Unterstützung!
08.10.2008 09:43:47
Thread-ID: 1014907
3 Beiträge
Von aktiver Zelle in Spalte A springen
Susi

Hallo liebe Excel-Freunde,
wie ich in einer Tabelle die aktive Zelle ermitteln kann, weiß ich schon.
Von dieser aktiven Zelle aus (z.B. D10) soll nun der Wert in Spalte A dieser Zeile (hier also A10) ermittelt werden und in eine andere Zelle (z.B. A1) übertragen werden.
Leider kann...
16.10.2008 12:36:20
Thread-ID: 1016826
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
16
4
5
12
2
3
7
2
2
2
2
4
5
6
1
4
2
5
9
9
2
2
5
4
2