Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1724to1728
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1724to1728
1724to1728
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

String soll etwas nicht enthalten

String soll etwas nicht enthalten
18.11.2019 13:06:49
Norbert
Hallo,
mir fehlt ein Codeschnipsel zum Erfolg.
Ich habe ein Programm welches einen Ordner durchläuft und Dateien einliest, die einem bestimmten Muster entsprechen. Dieses Programm funktioniert einwandfrei. Ich benötige eine Anpassung. Meine derzeitige String-Anweisung sieht so aus:
strDatei = Dir(strOrdner & "\" & "DE*. ")
Es werden also alle Dateien eingelesen die mit DE beginnen.
Ich will nun aber Dateien ausschließen die nach dem DE ein SOAP enthalten.
Kommt SOAP darin vor, soll die Datei übersprüngen werden.
Ich habe das hier versucht:
strDatei = Dir(strOrdner & "\" & "DE*. & !"*SOAP*" ")
Ich dachte "!" würde für nicht stehen?
Leider liest das Makro jetzt gar nichts mehr ein.
Wie bekomme ich meine obige Anweisung so hin, dass Dateien mit SOAP im Namen nicht berücksichtigt werden?
Weiß jemand Rat?
Beste Grüße
Norbert

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: String soll etwas nicht enthalten
18.11.2019 13:08:52
Norbert
So naürlich:
strDatei = Dir(strOrdner & "\" & "DE*." & !"*SOAP*" ")
BG
Norbert
AW: String soll etwas nicht enthalten
18.11.2019 13:09:15
Norbert
So naürlich:
strDatei = Dir(strOrdner & "\" & "DE*." & !"*SOAP*")
BG
Norbert
AW: zusätzliche If-Abfrage
18.11.2019 13:19:47
Fennek
Hallo,

strDatei = dir(strOrdner & "\" & "DE*.*")
if instr(1, strDatei, "SOAP") = 0 then
mfg
AW: zusätzliche If-Abfrage
18.11.2019 13:23:23
Norbert
Hallo Fennek,
verstehe.
Es ist also nicht möglich, dass direkt im String als Ausschlusskriterium zu nennen?
Was gebe ich denn dann bei der Then an?
Ich will ja, dass die Schleife wieder von vorne mit der nächsten Datei beginnt..
Wenn ich Then angebe und dann das Makro wieder aufrufe kommt es zu einer Endlosschleife.
Gibt es da sowas wie next file?
Danke & BR
Norbert
Anzeige
AW: Workbook.Open?
18.11.2019 13:47:11
Fennek
was Du mit den Dateien geplant hast, kommt zwischen IF.. THEN und ENDIF.
Wenn möglich, kannst Du den (gekürzten) Code posten?
AW: Workbook.Open?
18.11.2019 14:20:22
Norbert
Hier aufs wesentliche Reduziert:
Range("B:B", "C:C").Clear
Set FSO = CreateObject("Scripting.FileSystemObject")
strOrdner = ThisWorkbook.Path
strDatei = Dir(strOrdner & "\" & "DE*.")
Tabelle1.AutoFilterMode = False
Do While strDatei ""
intPos = InStr(strDatei, "DE")
strNummer = Mid(strDatei, intPos + 3, 3)
lngZeileFrei = Tabelle1.Range("B" & Tabelle1.Rows.Count).End(xlUp).Row + 1
Tabelle1.Range("B" & lngZeileFrei).Value = "DE" & strNummer
Set f = FSO.getfile(strOrdner & "\" & strDatei)
Tabelle1.Range("C" & lngZeileFrei).Value = f.DateLastModified
strDatei = Dir
Loop
End If
End Sub
-------
Mein konkretes Problem ist, dass ich mit StrDatei alle Dateien einlese, die mit DE beginnen.
Mit welcher Anweisung überspringe ich die Dateien, die im Namen nach dem DE ein SOAP enthalten?
Das Makro soll dann natürlich zur nächsten Datei weiterspringen usw.
Danke & BR
Norbert
Anzeige
AW: so?
18.11.2019 16:09:11
Fennek
ich habe das so verstanden:

sub Test()
Range("B:B", "C:C").Clear
Set FSO = CreateObject("Scripting.FileSystemObject")
strDatei = Dir(ThisWorkbook.Path & "\" & "DE*.")
Tabelle1.AutoFilterMode = False
Do While strDatei  ""
if InStr(strDatei, "SOAP") = 0 then
strNummer = Mid(strDatei, intPos + 3, 3)
lngZeileFrei = Tabelle1.Range("B" & Tabelle1.Rows.Count).End(xlUp).Row + 1
Tabelle1.Range("B" & lngZeileFrei).Value = "DE" & strNummer
Set f = FSO.getfile(strOrdner & "\" & strDatei)
Tabelle1.Range("C" & lngZeileFrei).Value = f.DateLastModified
End If
strDatei = Dir
Loop
End Sub

Anzeige
AW: so?
18.11.2019 17:22:16
Norbert
Funktioniert. Danke!!!
BR
Norbert
AW: meinst Du das?
18.11.2019 17:29:24
Fennek 

sub Test()
with createObject("Scripting.FileSystemObject")
set fld = .GetFolder(ThisWorkbook.Path)
for each f in fld.Files
if left(f.name, 2) = "DE" and instr(1, f.name, "SOAP") = 0 then
lr = lr + 1
cells(lr, 1) = f.name
cells(lr, 2) = f.f.DateLastModified
end if
next f
end with
end sub
(ungeprüft)

38 Forumthreads zu ähnlichen Themen

Dim Zelle As Range, Farbe As Long
sockel939

Hallo,
sagt mal wie bekomme ich den code dazu nicht die Zellenfarbe zu ändern sondern die Schriftfarbe.
Habe mal statt Interior , Font eingetragen dann bleibt er aber Hängen.
Dim Zelle As Range
Dim Farbe As Long
For Each Zelle In Range("m2:m1000")
Select Case Zelle.Value...
21.08.2008 10:04:00
Thread-ID: 1003376
5 Beiträge
Anzeige
Kennt jemand ShowCharacter(Char As String)
ray

Hallo,
ich nutzte ShowCharacter(Char As String) um in einer ListBox nur Zeilen einer Tabelle anzuzeigen, die mit "a" beginnen.
Jetzt möchte ich das umbauen, damit es statt mit Buchstaben mit Zahlen funzt.
Weiß jemand wie?
Hier der alte Code, der bei Buchstaben funzt:
Priv...
03.12.2008 14:21:00
Thread-ID: 1029831
3 Beiträge
@Nepumuk - mehrdimensionale ArraySortierung in ASP
Martin

Hallo Nepumuk,
ich bin bereits seit 2001 Mitglied und regelmäßiger Besucher hier im Forum. Allerdings stelle ich heute ausnahmsweise einmal eine "Nicht-Excel"-Frage. Ich beschäftige mich neben Excel VBA auch mit ASP (Active Server Pages), die ebenfalls auf Visual Basic basieren. Auch mit AS...
11.01.2009 14:10:00
Thread-ID: 1038651
9 Beiträge
Anzeige
"dim [Variable] as new word.application" HILFE!!
Stefan

Hallo Miteinander,
könnt Ihr mir weiterhelfen? In Excel-VBA kann ich irgendwie nicht mit anderen Office-Programmen arbeiten. Wenn ich die Variable "wApp" als neue Word-Applikation dimme, bekomme ich eine Fehlermeldung: "Benutzerdifinierter Typ nicht definiert" Was mache ich hier falsch? Kann...
29.04.2002 10:18:15
Thread-ID: 117062
4 Beiträge
Länge eines gesuchten Teil eines Strings bestimmen
Holger,

Hallo liebes Forum,
langer Titel für mein Problem.
In meinem string SOMMER;HERBST;WINTER kann es auch ein Others geben
z.B SOMMER;HERBST;;WINTER oder SOMMER;HERBST;Others,WINTER.
Others kann s also in verschiedenen Schreibweisen geben (aber es kommt nur einmal vor), daher habe i...
14.02.2011 15:39:42
Thread-ID: 1200725
6 Beiträge
Dim WS as Worksheet oder as Object
Peter

Liebes Forum
Variablen für Worksheets werden teils als Worksheet und teils als Object dimensioniert.
Worin liegt der Unterschried?
Gruss, Peter
15.02.2011 21:49:40
Thread-ID: 1201041
3 Beiträge
Dim as New - wofür ist das new ?
chris

Hallo VBA Experten,
ich habe mal eine frage.Ich verstehe die logik und das wozu noch nicht.
Würde mich sehr freuen wenn es mir jemand mit eigenen Worten erklären kann.
Aus der Hilfe werde ich nicht schlau.
Was natürlich auch super wäre wenn jemand ein Beispiel für mich hat wofür...
22.03.2011 15:48:31
Thread-ID: 1206840
6 Beiträge
Deklarationsproblem Array/ String (as Variant)
Andreas

Liebe Excel Freunde,
ich bin heute wiederholt über ein Problem in der Deklaration „as Variant“ gestolpert. Ich lasse das Ergebnis einer Function an eine Variant Variable übergeben. Das Ergebnis der Function kann ein Array oder ein String sein. Meinem bisherigen Kenntnisstand nach müßte Vari...
04.10.2011 14:34:08
Thread-ID: 1232527
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
12
2
8
3
3
5
2
5
3
8
1
3
7
7
6
6
4
1
2
3
15
2
2
1