Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Teilstring einer Datei als Ausgabe in MsgBox
zurück: Listenüberschrift variabler Länge kopieren weiter: ereignismakro Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Monty Burns
Im Profil kannst Du frei den Rang ändern


Verfasst am:
22. Jan 2009, 06:09
Rufname:

Teilstring einer Datei als Ausgabe in MsgBox - Teilstring einer Datei als Ausgabe in MsgBox

Nach oben
       Version: Office 2007

Hallo

Ich möchte:
...aus einem Verzeichnis alle Dateinamen nach bestimmten Wörtern durchsuchen und bei Übereinstimmung MsgBox...

Beispiel:
Herr Meier hat einen Hund gesehen.txt
MsgBox = Hund

Aufgabenstellung:
Die Wörter, nach denen gesucht wird, sollen per "case..." in den Code eingebunden werden und bei jeder Übereinstimmung eine eigene MsgBox starten.

Kann mir jemand helfen?
Glücksritter76
Gast


Verfasst am:
22. Jan 2009, 10:07
Rufname:


AW: Teilstring einer Datei als Ausgabe in MsgBox - AW: Teilstring einer Datei als Ausgabe in MsgBox

Nach oben
       Version: Office 2007

...-> Hilfe-> Like-Operator oder Instr-Funktion; da sind auch gute
Beispiele veranschaulicht.

Noch was; Google mal:
fernuni Hagen vba pdf
und zieh dir die PDF. ist ein tolles Script zur Erlernung der Grundlagen

Code:

if wort1 like "*Hund*" then '... überprüft ob in dem Namen "Hund" enhalten ist
'oder
if instr(wort1,"Hund")>0 then'...wie oben; hier wird die Position zurückgegeben
Monty Burns
Im Profil kannst Du frei den Rang ändern


Verfasst am:
22. Jan 2009, 10:17
Rufname:

AW: Teilstring einer Datei als Ausgabe in MsgBox - AW: Teilstring einer Datei als Ausgabe in MsgBox

Nach oben
       Version: Office 2007

Hallo Glücksritter76

...habe die ganze Nacht vor der Büchse gehockt und taste mich so langsam an die Materie heran...

Vielen Dank erst einmal für die Antwort.
Ich werde mich mal bei der Uni Hagen umgucken und versuche den Programmaufbau hinzukriegen, so wie ich es gerne hätte.

Gruß

- Monty Burns -
Monty Burns
Im Profil kannst Du frei den Rang ändern


Verfasst am:
22. Jan 2009, 18:08
Rufname:

AW: Teilstring einer Datei als Ausgabe in MsgBox - AW: Teilstring einer Datei als Ausgabe in MsgBox

Nach oben
       Version: Office 2007

Hallo again...

Ich bin wieder im Rennen...

Gerade habe ich Deinen Code überarbeitet und mit mehreren If - Schleifen mittels verschiedener Kriterien ( Hund, Katze, Maus...) Dateien in verschiedene Ordner verschoben. Das hat auf Anhieb geklappt, d.h., so langsam komme ich dahinter, wie die Syntax auszusehen hat. Vielen Dank erst einmal für den Anschub.

Kann man das mit den If - Schleifen nicht irgendwie eleganter lösen, z. B. mit "case..."? Ich habe im Endeffekt nämlich mehr als 100 verschiedene Kriterien, wonach ich die Dateien sortieren muß...

Gruß

- Monty Burns -
meinTipp
Gast


Verfasst am:
22. Jan 2009, 21:52
Rufname:

AW: Teilstring einer Datei als Ausgabe in MsgBox - AW: Teilstring einer Datei als Ausgabe in MsgBox

Nach oben
       Version: Office 2007

Hallo Monty,
wie wäre es mit so etwas?
Code:
Option Explicit
Sub suche_Begriffe_1()
Dim varArr As Variant
Dim lng As Long, lngAnzahl As Long
Dim strInhalt As String
Dim varSuche As Variant
Dim strDateiname As String

'die zu suchenden Begriffe in ein Array per Hand eintragen
varArr = Array("Hund", "Katze", "Maus") ' die Liste kannst du beliebig erweitern
'alternativ dazu, kann man die Begriffe auch aus einer Tabelle einlesen.
'1. Beispiel
strDateiname = "C:\mein Hund hat Flöhe.txt" 'nur als Beispiel
strInhalt = ""
lngAnzahl = 0
For Each varSuche In varArr
    If InStr(1, strDateiname, varSuche) > 0 Then
        If strInhalt = "" Then
            lngAnzahl = 1
            strInhalt = varSuche
        Else
            lngAnzahl = lngAnzahl + 1
            strInhalt = strInhalt & " und " & varSuche
        End If
    End If
Next varSuche
Select Case lngAnzahl
    Case 0
        MsgBox "in der Datei : " & strDateiname & vbNewLine & _
            "ist kein Begriff gefunden worden."
    Case 1
        MsgBox "in der Datei : " & strDateiname & vbNewLine & _
            "ist der Begriff " & strInhalt & " gefunden worden."
    Case Else
        MsgBox "in der Datei : " & strDateiname & vbNewLine & _
            "sind die Begriffe " & strInhalt & vbNewLine & _
            "gefunden worden. Was nun?"
End Select

'2. Beispiel
strDateiname = "C:\die Maus entkommt dem Hund und der Katze.txt" 'nur als Beispiel
strInhalt = ""
lngAnzahl = 0
For Each varSuche In varArr
    If InStr(1, strDateiname, varSuche) > 0 Then
        If strInhalt = "" Then
            lngAnzahl = 1
            strInhalt = varSuche
        Else
            lngAnzahl = lngAnzahl + 1
            strInhalt = strInhalt & " und " & varSuche
        End If
    End If
Next varSuche
Select Case lngAnzahl
    Case 0
        MsgBox "in der Datei : " & strDateiname & vbNewLine & _
            "ist kein Begriff gefunden worden."
    Case 1
        MsgBox "in der Datei : " & strDateiname & vbNewLine & _
            "ist der Begriff " & strInhalt & " gefunden worden."
    Case Else
        MsgBox "in der Datei : " & strDateiname & vbNewLine & _
            "sind die Begriffe " & strInhalt & vbNewLine & _
            "gefunden worden. Was nun?"
End Select

End Sub


Gruss Rolf
Monty Burns
Im Profil kannst Du frei den Rang ändern


Verfasst am:
22. Jan 2009, 21:58
Rufname:


AW: Teilstring einer Datei als Ausgabe in MsgBox - AW: Teilstring einer Datei als Ausgabe in MsgBox

Nach oben
       Version: Office 2007

Hallo Rolf

Danke erst einmal. Das dauert bei mir etwas länger, weil ich nicht so firm bin in der Materie. Die Idee, die dahinter steckt hatte ich auch schon, weiß aber nicht, wie man das umsetzt. Ich werde mich in den nächsten Stunden intensiv damit befassen.

Gruß

- Monty Burns -
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Tabellenwert aus einem anderen Register/Datei auslesen 7 rekrut 4303 24. Apr 2014, 13:01
steve1da Tabellenwert aus einem anderen Register/Datei auslesen
Keine neuen Beiträge Excel Formeln: Einfügen von Text (html) einer externen Datei in eine Zelle 0 Gast 1130 17. Jul 2006, 14:43
Gast Einfügen von Text (html) einer externen Datei in eine Zelle
Keine neuen Beiträge Excel Formeln: Ausgabe von falschen Wochentagen 3 etbei 707 08. Jun 2006, 10:49
etbei Ausgabe von falschen Wochentagen
Keine neuen Beiträge Excel Formeln: ausgabe nach frühester/spätester zeile 4 lm 686 06. Apr 2006, 18:57
lm ausgabe nach frühester/spätester zeile
Keine neuen Beiträge Excel Formeln: Bei bestimmtem Wert in Zelle -> MsgBox() 3 Oli4 796 05. Apr 2006, 06:18
funny_peculiar Bei bestimmtem Wert in Zelle -> MsgBox()
Keine neuen Beiträge Excel Formeln: TEILSTRING, SVERWEIS?? 10 sabine99 3863 29. März 2006, 14:42
sabine99 TEILSTRING, SVERWEIS??
Keine neuen Beiträge Excel Formeln: Text aus Zelle in .txt Datei schreiben 4 Gast_Michi 1120 22. März 2006, 16:12
Gast Text aus Zelle in .txt Datei schreiben
Keine neuen Beiträge Excel Formeln: Wenn Formel ausgabe nicht richtig 21 Laser 1634 16. Feb 2006, 22:30
Laser Wenn Formel ausgabe nicht richtig
Keine neuen Beiträge Excel Formeln: Zellen-Import aus Word Datei 1 Heavyduty 802 15. Jan 2006, 20:32
Hübi Zellen-Import aus Word Datei
Keine neuen Beiträge Excel Formeln: Ausgabe unterschiedlicher Werte einer Spalte 2 Ruettler 3139 18. Okt 2005, 11:42
mruettler Ausgabe unterschiedlicher Werte einer Spalte
Keine neuen Beiträge Excel Formeln: Datei mit Verknüpfungen zu gesperrten Dateien? 1 bobi 720 09. Jul 2005, 14:25
fl618 Datei mit Verknüpfungen zu gesperrten Dateien?
Keine neuen Beiträge Excel Formeln: Verknüpfung zu externer Datei: keine Auto-Aktualisierung 4 Lemmi 1255 06. Jun 2005, 12:19
c0bRa Verknüpfung zu externer Datei: keine Auto-Aktualisierung
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Macromedia Dreamweaver