Problem variable

Sub Prüfung_csvKop1() Dim rng As Range Dim strSuchbegriff As Variant strSuchbegriff = Worksheets("Hilfstabelle").Range("AS3").Value Set rng = ActiveSheet.Range("AR2:AR10").Find(strSuchbegriff) If rng Is Nothing Then MsgBox "Nichts gefunden" Exit Sub End If MsgBox "Zeile: " & rng.Row & "; Adresse: " & rng.Address End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Chris,
zunächst besten Dank für Deine Antwort.
Ich habe einen Fehler ausfindig gemacht. Dieser liegt daran, dass ich über eine Makro die Dateien aus einem Stick auslese und in der Spalte AR per Formel: =RECHTS(AP2;8) das erforderliche Teilergebniss habe.
Genau aus diesem Grund findet das o.a. Makro den Suchbegriff nicht. Ich hoffe Du kennst die Lösung,
dass der Begriff trotz der Formel gefunden werden kann. Gebe ich den Begriff manuell ein, wird er gefunden.
Zum zweiten Teil meiner Anfrage, ist es so, dass jeweils zwei Begriffe gefunden werden müssen, damit ein bestimmte Makro ausgeführt wird.
Spalte AR Spalte AS
Endung von Dateien AP: Kopiererbezeichnungen:
Kop1.csv Kop2.xml
Kop1.xml Kop1.csv
Kop2.csv Kop1.xml
Kop2.xml Kop2.csv
Die o.a. Spaltenauszüge geben die Aufgabe wieder. Sind die beiden Begriffe Kop1.csv und Kop2.csv in AR vorhanden erfolgt Makro1, bei Kop1.xml und Kop2.xml erfolgt Makro2 usw.
Ich hoffe ich habe dies richtig dargestellt.
Besten Dank für Deine Mühe
Gruss Peter

Sub Prüfung_csvKop1() With ActiveSheet If WorksheetFunction.CountIf(.Range("AR2:AR20"), .Range("AT3")) > 0 And _ WorksheetFunction.CountIf(.Range("AS2:AR20"), .Range("AU3")) > 0 Then MsgBox "ja" Else MsgBox "nein" End If End With End Sub

Hallo Chris,
besten Dank für Deine Bemühungen.
Ich habe jetzt die Lösung gefunden:

Sub Prüfung_csvKop1_a()
Dim rng As Range
Dim rng1 As Range
Dim strSuchbegriff As String
Dim strSuchbegriff1 As String
strSuchbegriff = Worksheets("Hilfstabelle").Range("AS3").Value
strSuchbegriff1 = Worksheets("Hilfstabelle").Range("AS5").Value
'Set rng = ActiveSheet.Range("AR2:AR10").Find("Kop1.csv")
Set rng = Worksheets("Hilfstabelle").Range("AR2:AR10").Find(strSuchbegriff, LookIn:=xlValues)
Set rng1 = Worksheets("Hilfstabelle").Range("AR2:AR10").Find(strSuchbegriff1, LookIn:=xlValues)
'If rng Is Nothing Then
If rng Is Nothing And rng1 Is Nothing Then
MsgBox "Nichts gefunden"
Exit Sub
End If
MsgBox "Zeile: " & rng.Row & "; Adresse: " & rng.Address & " und Zeile:" & rng1.Row & ";  _
Adresse: " & rng1.Address
MsgBox "Zeile: " & rng.Row & "; Adresse: " & rng.Address
MsgBox "Zeile: " & rng1.Row & "; Adresse: " & rng1.Address
End Sub

Anstatt der MsgBox folgt später ein Makro.
Nochmals besten Dank für Deine Hilfe. Solltest Du noch einen Fehler finden oder eine Verbesserung, gebe mir bitte Bescheid.
Besten Dank
und einen schönen Tag.
Gruss Peter

Beliebteste Forumthreads (12 Monate)

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread