ich möchte das Forum ganz bestimmt nicht für Auftragsprogrammierung odr ähnliches missbrauchen, leider habe ich jedoch von Makros keinen großen Schimmer…und würde gern deshalb etwas Hilfe in Anspruch nehmen.
Folgendes Problem:
Ich würde gern ein Makro erstellen, das ähnlich wie bei SVerweis eine Zelle in einer Tabelle sucht. In diese ausgesuchte Zelle soll dann ein bestimmter wert aus einer anderen Zelle einfügt werden. Ich weiss, dass es die Funktion Vlookup gibt. Leider finde ich immer nur Möglichkeiten den Wert aus der mit Vlookup gesuchten Zelle in eine andere zu kopieren…
Wie geht es aber andersrum, Zelle suchen und da den wert hineinkopieren?
Hat jemand eine Idee?
Bin für jede Hilfe sehr dankbar.
Ich würde gern ein Makro erstellen, das ähnlich wie bei
SVerweis eine Zelle in einer Tabelle sucht. In diese
ausgesuchte Zelle soll dann ein bestimmter wert aus einer
anderen Zelle einfügt werden. Ich weiss, dass es die Funktion
Vlookup gibt. Leider finde ich immer nur Möglichkeiten den
Wert aus der mit Vlookup gesuchten Zelle in eine andere zu
kopieren…
Wie geht es aber andersrum, Zelle suchen und da den wert
hineinkopieren?
Hi Gregor,
„Find“ hat noch andere Parameter falls du die brauchst, Teilstringsuche usw, schau in die Vba-Hilfe, ich habe hier keine.
Option Explicit
'
Sub Test()
Call Eintragen("abc", "xyz", Range("A1:A20"))
End Sub
'
Sub Eintragen(AlterWert, NeuerWert, Bereich As Range)
Dim resultCell As Range
With Bereich
Set resultCell = .Find(AlterWert)
If Not resultCell Is Nothing Then
resultCell.Value = NeuerWert
Else
MsgBox AlterWert & " nicht gefunden in " & .Address
End If
End With
End Sub