Supportnet Computer
Planet of Tech

Supportnet / Forum / Tabellenkalkulation

VBA Find-Methode





Frage

Hallo VBA-Spezialisten, angenommen, ich will im Bereich C20:U27 den Wert suchen, der in A1 steht. Diesen Wert will ich dann in einer beliebigen Variable ablegen. Wie genau lautet der zuständige Find-Befehl? Gruß Ignaz

Antwort 1 von Martina

Hallochen,

ich würde dazu ein Makro schreiben.

LG Martina

Antwort 2 von coros

Hallo Ignaz,

das Makro dazu würde wie folgt aussehen.

Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

Option Explicit

Sub Übereinstimmungen_finden()
Dim Suchbegriff As Range
Dim Addresse As String
With Range("C20:U27")
Set Suchbegriff = .Find(What:=Range("A1"), LookIn:=xlValues)
If Not Suchbegriff Is Nothing Then
Addresse = Suchbegriff.Address
Do
Suchbegriff.Interior.ColorIndex = 4
Set Suchbegriff = .FindNext(Suchbegriff)
Loop While Not Suchbegriff Is Nothing And Suchbegriff.Address <> Addresse
End If
End With
End Sub



Wobei hier nicht der Wert in eine Variable geschrieben wird, sondern die gefundene Stelle farblich (grün) markiert wird. Denn ich habe nicht ganz verstanden, was Du für einen Wert in eine Variable schreiben lassen möchtest, denn der Wert steht ja eigentlich in Zelle A1. Aber das schreiben in eine Variable wirst Du sicherlich alleine hinbekommen. Das Schreiben in die Variable muss an der Stelle im Makro geschehen, wo

Suchbegriff.Interior.ColorIndex = 4


steht.

Ich hoffe, Du kommst klar.

@Martina: Die Antwort ist mehr als flüssig, da aus der Frage "VBA Find-Methode" bereits hervorgeht, dass Ignaz eine Makrolösung sucht.

MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.

Antwort 3 von ignaz

Danke Oliver,

damit komme ich weiter.

Gruß
ignaz

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: