Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
1980to1984
1980to1984
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert suchen und Zelle aktivieren

Forumthread: Wert suchen und Zelle aktivieren

Wert suchen und Zelle aktivieren
02.06.2024 18:56:58
philipp
Hallo zusammen,
ich habe noch eine kleine Frage ?
Aus "R6" soll der Text aus der Spalte T6 bis T17 gesucht werden und die aktive Zelle
dann daneben platziert werden. (in diesem Fall in U10).

Anbei mein Muster:
https://www.herber.de/bbs/user/169827.xlsm
mfg philipp
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Wert suchen und Zelle aktivieren
02.06.2024 19:39:16
Alwin Weisangler
Hallo Philipp,

da das alles durcheinander formatiert ist, bleibt nur der Weg dies mit einer Schleife zu erschlagen.
Ins Modul des Tabellenblattes: 


Option Explicit



Private Sub Worksheet_Change(ByVal Target As Range)

    Dim i&

    Application.EnableEvents = False

    If Not Intersect(Target, Range("Q5")) Is Nothing Then

        For i = 6 To 17

            If Cells(6, 18) = Cells(i, 20) Then Cells(i, 21).Select

        Next i

    End If

    Application.EnableEvents = True

End Sub

Auslöser ist Änderung in Zelle Q5.

Gruß Uwe
Anzeige
Hallo Uwe, klappt doch...
02.06.2024 19:59:02
philipp
Hallo Uwe,
erst mal herzlichen Dank für die Unterstützung.
Es funktioniert aber auch so: 
Private Sub Suchen()

    Dim i&

    Application.EnableEvents = False

   ' If Not Intersect(Target, Range("Q5")) Is Nothing Then

        For i = 6 To 17

            If Cells(6, 18) = Cells(i, 20) Then Cells(i, 21).Select

        Next i

   ' End If

    Application.EnableEvents = True

End Sub


mfg philipp
Anzeige
AW: Wert suchen und Zelle aktivieren
02.06.2024 20:18:14
BoskoBiati2
Hallo,

1. hat die Datei einen Blattschutz, das geht garnicht!
2. Sind die Formeln völlig unausgegoren.
3. arbeitet man in solchen Tabellen mit echten Datumswerten!

Hier mal ein Muster mit verbesserten Formeln:

https://www.herber.de/bbs/user/169828.xlsm

Das Makro sollte reichen, aber da das Blatt geschützt ist, kann ich es nicht testen.

Gruß

Edgar
Anzeige
AW: Wert suchen und Zelle aktivieren
02.06.2024 20:34:44
BoskoBiati2
Sorry, Fehler meinerseits, die Zellen sind geschützt, nicht das Blatt

Gruß

Edgar
AW: Wert suchen und Zelle aktivieren
02.06.2024 20:50:20
Alwin Weisangler
@ Edgar
oder, wenn korrekte Datumseinträge drin sind so: 


Private Sub Worksheet_Change(ByVal Target As Range)

    Dim sDatum As Variant

    If Not Intersect(Target, Range("rng_Datum")) Is Nothing Then

        sDatum = Application.Match(CLng(DateSerial(Cells(2, 2), Cells(3, 2), Cells(5, 17))), Range("T6:T17"), 0) + 5

        If Not IsError(sDatum) Then Cells(sDatum, 21).Select

    End If

End Sub


Gruß Uwe

Anzeige
AW: Wert suchen und Zelle aktivieren
02.06.2024 21:29:55
BoskoBiati2
Hallo Uwe,

wenn in der Datei echte Datumswerte stehen, dann reicht ein Zweizeiler: 

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("Q5")) Is Nothing Then Exit Sub

       Target.Offset(Target.Value, 4).Activate

End Sub


Hier in der Datei:

https://www.herber.de/bbs/user/169830.xlsm

Gruß

Edgar
Anzeige
Danke an ALLE, für die Unterstützung ! -)
03.06.2024 10:19:39
philipp
AW: Hallo Uwe, klappt doch...
02.06.2024 20:11:03
Alwin Weisangler
Hallo Philipp,

klar funktioniert das auch. Nur wird die Schleife bei jeder x-beliebig geänderten Zelle durchlaufen --> wozu?
Schau dir die Zellen an, wo dazu Änderungen stattfinden und ergänze den Range entsprechend, statt diesen kurzerhand auszukommentieren.

Gruß Uwe
AW: Hallo Uwe, klappt doch...
02.06.2024 20:46:09
BoskoBiati2
Hallo,

hier mal ein Makro, was ausreichend ist, um die Zelle zu aktivieren: 

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False

    If Intersect(Target, Range("Q5")) Is Nothing Then Exit Sub

       Target.Offset(Target.Value, 4).Activate

    Application.EnableEvents = True

End Sub


Gruß

Edgar
Anzeige
AW: Hallo Uwe, klappt doch...
02.06.2024 20:57:12
Oppawinni
Wozu Application.EnableEvents = False ?
Lasst das doch einfach raus, wenn es nicht nötig ist.
Andernfalls muss abgesichert werden, dass
Application.EnableEvents = True
aussgeführt wird.
;

Forumthreads zu verwandten Themen

Wert mit VBA suchen und Zelle aktivieren
Nico

Moin
Ich habe eine Abrechnungsdatei und folgendes Problem
In einem Tabellenblatt werden Informationen wie Firmenname und Co. eingetragen.
In der letzten Spalte dieses Blatte möchte ich gerne das Datum per VBA eintragen lassen, an dem ich die Rechnungsnummer über mein Abrechnungstabe...
16.02.2009 16:07:00
Thread-ID: 1051203
2 Beiträge
Zahl in Zelle finden und mit 0/1 ausgeben
klaus

Hallo!
Folgendes Problem:
In jeder Zelle einer Spalte sind Zahlenwerte jeweils mit Kommata getrennt. Ich möchte nun einen beliebigen Wert auslesen lassen, d.h. wenn dieser Wert vorkommt die Zahl 1 in die Zelle rechts daneben schreiben lassen.
Wenn ich also aus der Zelle (10,10012,30...
27.02.2009 10:54:59
Thread-ID: 1054649
2 Beiträge
Anzeige
Spalte nach Wert >10 durchsuchen und Wert ausgeben
Ron

Hallo Leute,
ich benötige wieder mal Hilfe bei der Umsetzung einer Idee. Ich habe in einem Tabellenblatt in einer Spalte (A) 20 absteigende Werte in Prozent. In Spalte B habe ich in ganzen Zahlen die Treffer aus meiner Datenbank zugeordnet. Jetzt möchte ich Spalte B von oben nach dem ersten...
05.05.2009 14:44:46
Thread-ID: 1073093
9 Beiträge
Wert mit 2 Bezügen mit VBA suchen und ausgeben
Klaus

Sehr verehrte Excel-Gurus!
Wäre toll, wenn ihr mir wieder einmal bei einer EDV-mäßigen Umsetzung helfen könntet.
In der beigefügten Arbeitsmappe befinden sich die folgenden, beiden Tabellen:
https://www.herber.de/bbs/user/64497.xls
Tabelle alleSZ
beinhaltet Daten über Statio...
17.09.2009 13:21:08
Thread-ID: 1103502
6 Beiträge
Wert suchen und ausgeben
Dallwitz

Liebes Forum,
ich habe fiktiv eine Tabelle mit drei Spalten.
In der ersten Spalte steht das Datum und in der 2. Spalte ein Istwert aus dem akt. Geschäftsjahr.
In der 3. Spalte, soll der Istwert der Vergangenheit.
Beispiel
01.01.2010 45.000
etc.
01.01.2010 50.0...
20.01.2011 19:49:10
Thread-ID: 1196625
4 Beiträge
nach Werten suchen und Anzahl ausgeben
Sascha

hallo,
folgdnes Problem
in meiner Tabelle Bereich A1:T39 stehen Daten zu Bäumen und deren Anzahl immer untereinander.
z.B
B15=Fichte
B16=5
C22=Linde
C23=18
O4=Fichte
O5=22
(der ganze Bereich, bis auf wenige Zellen steht voll mit Daten, aber immer Baumart...
08.03.2012 09:35:58
Thread-ID: 1254148
5 Beiträge
Wert suchen und in nächste freie Zelle schreiben
Dennis

Hallo zusammen,
Habe mal eine Frage bzgl Suchen und Schreiben von Werten aus / in einer UF.
Problem:
Im Tabellenblatt stehen in der 1. Zeile Kalenderwochen. Diese sollen durch eine Textbox (input1) in der UF gesucht und ausgewählt werden. Das bekomme ich noch hin.
Jetzt soll ab...
17.04.2012 14:49:16
Thread-ID: 1259769
3 Beiträge
Wert in Zelle suchen und ausgeben
Jan

Guten Abend,
in Anlehnung an folgenden Beitrag (https://www.herber.de/forum/messages/1268980.html) brauche ich noch mal Hilfe von euch.
In Spalte E soll der Wert aus Spalte D angezeigt werden. Das erwartete Ergebnis habe ich in Spalte F dahinter geschrieben.
Ich suche eine Formel di...
02.07.2012 22:33:26
Thread-ID: 1269664
10 Beiträge
Wörter in Excel suchen und in Zelle ausgeben
Turnsackerl

Liebe Excelfreunde,
irgendwie stehe ich derzeit komplett am Schlauch. Mein Problem ist eigentlich ganz simpel:
Ich bekommen per Webabfrage einen Text (tlw. mit mehreren Wörtern) verteilt über mehrere Zeilen. Jetzt möchte ich den einfach nach bestimmten Wörtern (Wortteilen) suchen und di...
17.05.2013 11:33:04
Thread-ID: 1313596
3 Beiträge
Anzeige
Werte innerhalb einer Tabelle suchen und ausgeben
Michael

Hallo zusammen,
ich bin gerade dabei eine Motor- Berechnung in Excel zu erstellen.
Diese Berechnung soll sich aber auf die thermodynamischen Eigenschaften und Werte konzentrieren.
Die Hauptberechnung ist fertig, allerdings habe ich ein Problem mit der Darstellung in einem Diagramm.<...
14.12.2013 13:41:41
Thread-ID: 1342559
10 Beiträge
Wert suchen und in andere Zelle was eintragen
Toumas

Hallo zusammen,
ich bräuchte "nur" mal einen kleinen Tipp....
Gesucht wird eine Kennung, die im Tabellenblatt Usereingabe, Zelle B4 steht
Suchen muss man in Tabelle 2 Spalte B..
das schaffe ich auch ohne Probleme mit dem Makro :
Sub User_finden() Dim s As String Dim rg As Ra...
22.07.2015 15:05:07
Thread-ID: 1437877
4 Beiträge
Doppelte Werte suchen und in Msgbox ausgeben
Timo

Hallo,
ich muss in einer Excel Tabelle doppelte Werte suchen und die Zelle links daneben in einer MsgBox ausgeben. Ich habe ein Makro dass eine Such und Kopierschleife durchläuft und am Schluss möchte ich die Doppelten Werte ausgeben. Ich weiß vorher nicht wieviel Werte doppelt auftreten. K...
16.08.2015 17:02:05
Thread-ID: 1442578
2 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