Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
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
1436to1440
1436to1440
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2 Werte aus Zelle suchen VBA

Forumthread: 2 Werte aus Zelle suchen VBA

2 Werte aus Zelle suchen VBA
26.07.2015 00:18:02
Sam
Hallo zusammen,
ich habe ein Tabellenblatt1 wo ich meine Daten eintrage.(Name und KW)
Nun möchte ich im Tabellenblatt2 nach diesen beiden Daten (veränderlich) suchen (Namen stehen horizontal, KW's vertikal) und beim "Kreuzungspunkt,eine Wert aus den Tabellenblatt1 (Zelle G31) festschreiben. Geht so etwas per VBA?
Danke schon vorab.

Anzeige

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 Werte aus Zelle suchen VBA
26.07.2015 00:39:37
Daniel
Hi
dim rngName as Range
dim rngKW as Range
set rngName = Sheets("Tabelle2").Rows(1).Find(what:=Name aus Tabelle1)
set rngKW = Sheets("Tabelle2").Columns(1).Find(what:=KW aus Tabelle1)
Intersect(rngName.EntireColumn, rngKW.EntireRow).Value = Sheets("Tabelle1").Range("G31").Value

Zellbezüge für Name und KW noch entsprechen einfügen!
ich gehe mal davon aus, dass die Namen in der ersten Zeile und die KWs in der ersten Spalte von Tabelle2 gelistet sind.
Gruss Daniel

Anzeige
AW: 2 Werte aus Zelle suchen VBA
26.07.2015 09:08:40
sam
Hallo,
leider bekomme ich eine Fehlermeldung "Objektvariable oder With-Blockvariable nicht festgelegt",
Name und KW habe ich jeweils mit Find(what:="B4" geschrieben, oder ist das falsch.

AW: 2 Werte aus Zelle suchen VBA
26.07.2015 09:36:55
sam
Hallo,
hat sich erledigt, ich hatte einen Schreibfehler.
Es funktioniert. Danke Daniel

Anzeige
AW: 2 Werte aus Zelle suchen VBA
26.07.2015 10:21:34
sam
Hallo nochmal,
wie kann ich den Suchbegriff immer auf eine Zelle beziehen? Ohne das ich im Makro die Suchnamen eingeben muß.
Danke schon vorab.

und warum per VBA? o.T.
26.07.2015 11:22:01
Sepp
Gruß Sepp

Anzeige
AW: 2 Werte aus Zelle suchen VBA
26.07.2015 11:36:08
AlexG
Hallo Sam,
z.B. so
  Dim rngName As Range
  Dim rngKW As Range
  Dim strName, strKW As String
  strName = Sheets("Tabelle1").Range("B4")
  strKW = Sheets("Tabelle1").Range("B5")
  Set rngName = Sheets("Tabelle2").Rows(1).Find(what:=strName)
  Set rngKW = Sheets("Tabelle2").Columns(1).Find(what:=strKW)
  
  Intersect(rngName.EntireColumn, rngKW.EntireRow).Value = Sheets("Tabelle1").Range("G31").Value
Gruß
Alex

Anzeige
AW: 2 Werte aus Zelle suchen VBA
26.07.2015 14:21:48
sam
HAllo Alex,
funktioniert super.
Da ja der Wert aus G31 in das gewünschte Suchfeld geschrieben wird, habe ich noch eine Frage. Den Speicherpfad des ausgefüllten Dokumentes lege ich so fest
"ActiveSheet.SaveAs ("C:\Test\" & strDateiname), FileFormat:=xlOpenXMLWorkbook".
Nun meine Frage kann ich dieses gewünschte Suchfeld (wohin der Wert geschrieben wurde) als Hyperlink mit der gespeicherten Datei verlinken?
Habe schon etliches versucht, leider erfolglos.
Danke schon vorab.

Anzeige
AW: 2 Werte aus Zelle suchen VBA
26.07.2015 15:05:03
AlexG
Hallo Sam,
das kannst du so machen
With ActiveSheet
 .Hyperlinks.Add Anchor:=.Range("G31"), _
 Address:="C:\Test\" & strDateiname
End With
Gruß
Alex

Anzeige
AW: 2 Werte aus Zelle suchen VBA
26.07.2015 15:25:03
sam
Hallo,
das setzen des Hyperlinks funktioniert.
Leider nur auf dem Tabellenblatt wo sich die G31 befindet,und nicht da wo sie hingeschrieben wird.

AW: 2 Werte aus Zelle suchen VBA
26.07.2015 15:39:45
AlexG
Hallo Sam,
Sorry, ich hatte das aktive Tabellenblatt genommen aber es sollte ja in Tabelle 1 geschrieben werden
With Sheets("Tabelle1")
 .Hyperlinks.Add Anchor:=.Range("G31"), _
 Address:="C:\Test\" & strDateiname
End With
Gruß
Alex

Anzeige
AW: 2 Werte aus Zelle suchen VBA
26.07.2015 15:47:05
sam
Hallo Alex,
leider schreibt es jetzt ja in G31. Aber es sollte ja den Wert aus Tabellenblatt2 aus Feld G31, in das Tabellenblatt1 in den gefundenen Kreuzungspunkt verlinken.
Also sprich, da wo es den Wert jetzt hinschreibt, das funktioniert ja. Sollte der Hyperlink zur dann gespeicherten Datei stehen.

Anzeige
AW: 2 Werte aus Zelle suchen VBA
26.07.2015 16:02:34
AlexG
Hallo Sam,
ich hoffe ich habe es jetzt richtig verstanden. Eine Beispielmappe zum Testen falls es nicht funktioniert wäre gut.
With Intersect(rngName.EntireColumn, rngKW.EntireRow)
    .Hyperlinks.Add Anchor:=.Range("G31"), _
    Address:="C:\Test\" & strDateiname, _
    TextToDisplay:=Sheets("Tabelle1").Range("G31").Value
End With

Gruß
Alex

Anzeige
AW: 2 Werte aus Zelle suchen VBA
26.07.2015 16:34:05
sam
Hallo Alex,
die Werte werden sauber auf das Tabellenblatt 1 geschrieben.
Nur der Hyperlink wird bis jetzt noch nicht richtig gesetzt.
Wenn zb. in KW30 der Wert 11,79% unter einem Namen gesetzt wird, dann sollte dieser mit der gespeicherten Datei verlinkt sein. um jederzeit wieder auf das gespeicherte Blatt zugreifen zu können.

Anzeige
AW: 2 Werte aus Zelle suchen VBA
26.07.2015 17:56:22
sam
Hi nochmal,
also der Wert der geschrieben wurde, sollte mit ("C:\Test\" & strDateiname) verlinkt sein. Aber so das die bereits geschriebene Zahl stehen bleibt, und nur als Hyperlink zur gespeicherten Datei führt.
Danke schon mal vorab.

Anzeige
AW: 2 Werte aus Zelle suchen VBA
26.07.2015 22:43:50
AlexG
Hallo Sam,
Deine Beispieldatei ist leider nicht sehr aussagekräftig.
Da hier immer nur Code- Schnipsel verarbeitet werden kann ich leider auch nicht wissen wo der Fehler liegt.
Kannst du bitte eine Bsp.- Datei mit VBA Code und einer Datenstruktur die deiner Originaldatei entspricht hochladen, das erleichtert uns beiden das Leben :)
Gruß
Alex
Anzeige
;

Forumthreads zu verwandten 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
Inhalt einer Zelle im Windows Infobereich anzeigen
Thomas

Hallo,
kann ich den Inhalt einer Zelle im Windows Infobereich anzeigen lassen?
Ich habe eine VBA-Anwendung, die mir den Verarbeitungsstatus in einer Zelle anzeigt.
Weil die Verarbeitung sehr lange dauert möchte ich zwischendurch mit anderen Anwendungen arbeiten und unten rechts nebe...
27.08.2008 17:50:23
Thread-ID: 1005163
3 Beiträge
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Wenn Wert weniger, in anderer Zelle um d.Wert erh.
Josef

Guten Morgen!
Ich habe z.B. in der Zelle A1 den Wert 5 stehen. Wird dieser Wert z.B. um die Zahl 3 verringert, dann soll der vorhandene Wert in der Zelle B1 um die Zahl 3 erhöht werden. Wie würde hier bitte eine Formellösung dafür lauten?
Danke
Josef
09.09.2008 05:49:00
Thread-ID: 1008272
2 Beiträge
Bestimmte Werte aus einer Zelle herausfiltern
G_G

Hallo zusammen.
Ich habe in einer Zelle einen etwas längeren Text (mit Zahlen und Buchstaben). Ich würde jetzt gerne hieraus den Wert rausfiltern (in separate Spalte), der neben der Buchstabenkombination "AT" steht.
Hört sich einfach an. Da gibt es aber noch einige Sonderfälle.
Ich...
15.09.2008 12:03:00
Thread-ID: 1009747
5 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Anzeige
Textinhalte aus Zellen zusammenkopieren
zehetner

Liebe Profis,
ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
Ziel ist es, die Antwort...
21.09.2008 18:29:25
Thread-ID: 1011343
2 Beiträge
Wert aus Zelle holen für VBA
Oliver

Hallo eine kleine Frage,
wollte folgendes umsetzen, ein Benutzer fügt in der Excelobelfläche im ersten Blatt eine Zahl ein. Diese soll jetzt wie folgt verwendet werden:
falls ... größer als dem Zellinhalt, dann ...
meine Idee:
Dim Wert As Integer
Wert = cells(20, 2)
If.....
25.09.2008 10:06:31
Thread-ID: 1012241
6 Beiträge
Anzeige
Wert nach Änderung einer Zelle schreiben
Markus

Hallo Leute,
ich werde Excel nie wirklich verstehen. Habe wieder eine Frage: Bei Veränderung des Wertes einer Zelle möchte ich einen Wert in eine andere Zelle schreiben (klingt einfach - gelingt mir nicht!):
Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ErrorHandle...
01.10.2008 18:26:00
Thread-ID: 1013729
31 Beiträge
Wert bedingt in anderer Zelle darstellen
sascha76er

Hallo,
ich muss leider schon wieder das Forum mit meinen Fragen nerven.
Ich möchte gerne den Wert einer Zelle welcher in der Spalte W steht in einer Zelle in der Spalte D darstellen, aber nur wenn der entsprechende Wert mi WE beginnt.
Geht das?
Gruß
Sascha
08.10.2008 15:16:49
Thread-ID: 1015075
5 Beiträge
Drei Zellen auswerten
Hanspeter

Hallo zusammen,
Wie kann ich Werte aus drei Zellen kombinieren und auswerten.
Beispiel
In der Zelle A1 können 6 mögliche Farben stehen. (rot, blau, grün, ….)
In der Zelle B1 können 6 mögliche Formen stehen (rund, oval, …….)
In der Zelle C1 können 5 mögliche Materialien stehe...
20.10.2008 09:31:03
Thread-ID: 1017582
9 Beiträge
Wert aus Zelle übernehmen und behalten
Martin

Hallo Zusammen
Folgende Situation:
Habe eine Liste aus 4 x 2200 Zeilen mit Zahlenwerten die zum Teil auch via Formel berechnet werden.
Nun habe ich festgestell, dass ich bei einer Spalte leider einen falschen Wert erfasst habe.
Kann ich via Makro oder mit einer Formel einen Zel...
07.11.2008 09:59:13
Thread-ID: 1022545
3 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