Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Zellwert in Spalte finden und in Zeile schreiben
#1
Rainbow 
Hallo zusammen,

folgendes Problem soll in VBA über ein Makro gelöst werden:

Auf Tabelle1 habe ich in den Zellen A1 = Wert1 und in B1 = Wert2 stehen.
Bild 1:
[ Bild bitte als Datei hochladen! ]
Nun soll in Tabelle2 in der SpalteA nach dem Wert1 gesucht werden. Es gibt ihn nur ein Mal (grün markiert). Wenn er gefunden wurde, dann soll neben dem gefundenen Wert1 in Tabelle2 der Wert2 in SpalteB (lila markiert) geschrieben werden. Die Farben habe ich nur zum besseren Beschreiben hinzugefügt, es soll keine Einfärbung stattfinden.
Bild 2:
[ Bild bitte als Datei hochladen! ]

Danke.


Angehängte Dateien Thumbnail(s)
       
Antwortento top
#2
Hallo,

so wie sich das für mich darstellt, kann man das mit dem SVerweis lösen.
Viele Grüße
Klaus-Dieter
Der Erfolg hat viele Väter, 
der Misserfolg ist ein Waisenkind
Richard Cobden
Antwortento top
#3
(02.04.2020, 09:39)zeeman schrieb: folgendes Problem soll in VBA über ein Makro gelöst werden:

Hallo, 19

bezogen auf dein Bild so: 21

Code:
Option Explicit
Public Sub Main()
    Dim varRow As Variant
    varRow = Application.Match(Tabelle1.Range("A1").Value, Tabelle2.Columns(1), 0)
    If IsNumeric(varRow) Then
        Tabelle2.Cells(varRow, 2).Value = Tabelle1.Range("B1").Value
    End If
End Sub
________
Servus
Case
[-] Folgende(r) 1 Benutzer sagt Danke an Case für diesen Beitrag:
  • zeeman
Antwortento top
#4
Hallo Klaus-Dieter,

hab ich auch erst gedacht. Leider bietet der SVerweis nur die Möglichkeit, einen Wert aus der Matrix zu übertragen in welcher auch gesucht wird.
Ich möchte einen Wert in der Zeile hinzufügen wenn dort ein bestimmter Wert gefunden wurde.

Hallo Case,

danke für die Hilfe, funktioniert.
Ich habe das Problem extra simpel dargestellt, meine Liste ist durchaus komplexer.
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste