With...End With in If-Then
07.05.2018 10:16:52
Matthias
erstmal wünsche ich einen schönen, sonnigen Morgen!
Ich habe folgenden Code:
Dim xDatei As String
Sub Test()
ChDrive "Z:\"
ChDir "Z:\Projekte\17. Kleine Entwicklungsarbeiten Excel, Word, PowerPoint, DOS etc\Tägliche _
Auswertungen"
xDatei = Application.GetOpenFilename(xFilter, 1, "Datei Öffnen", "Öffnen", False)
If InStr(1, "*falsch*false*", LCase(xDatei), vbTextCompare) > 0 Then
MsgBox "Datei-Öffnen-Dialog wurde abgebrochen!", 16
Exit Sub
End If
Workbooks.OpenText Filename:= _
xDatei
Application.OnTime Now + TimeValue("00:00:05"), "Test1"
End Sub
Sub Test1()
If [A4] = "Linie 1" And [C4] = "1" And [E4] = "Fertigen" Then
Set wbZiel = ThisWorkbook.Worksheets("Übertragung")
Workbooks.Open xDatei
Set wbQuelle = ActiveWorkbook.Worksheets("L1")
With wbQuelle
.Range("A3").Copy
wbZiel.Range("C11").PasteSpecial Paste:=xlValues
End With
End If
End Sub
Folgende Problematik:
Wenn ich das Makro ausführe, ohne das If-Statement in Test1(), funktioniert es einwandfrei. Mit dem If-Statement klappt es jedoch nicht. Dort benötige ich etwas Hilfe :)
Vielen Dank fürs Drüberschauen!