Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Teilwortsuche
zurück: Befehlsschaltfläche ActiveX für die gleiche Seite weiter: Per Klick mehrere Zellen in anderes Arbeitsblatt kopieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Haley
Gast


Verfasst am:
13. Jun 2013, 14:07
Rufname:

Teilwortsuche - Teilwortsuche

Nach oben
       

{Verschoben aus Visual Studio und dotNet Forum by Willi Wipp}

Ich habe eine Exelmappe mit 20 Tabellen.
Nun möchte ich über ein Makro bestimmte Zeilen durchsuchen und auf ein andere Tabelle eintragen. Das funktioniert auch. Da mein Programm nur auf die kompletten richtigen Wörter die Tabelle erstellt. Beispiel: Schulz , Schmid, Schranke. Ich möchte einfach nur Sch eingeben und alle Zeilen mit dem Begriff Sch. kopieren. Zur Zeit muß ich Schmid eingeben und nur die Zeilen Schmid werden kopiert. Was muß ich ändern, um nur mit einem Teilwort alle zu kopieren?

Mein Makro
Code:
Sub Hersteller_erstellen()
    Dim wsDst As Worksheet     ' Die Zieltabelle
    Dim wsSrc As Worksheet     ' Die Quelltabelle
    Dim i As Long              ' Zeilennummer in der Quelle
    Dim j As Long              ' Zeilennummer im Ziel
    Dim k As Integer           ' Tabellenindex
    Dim strSearch As String    ' die zu suchende Kategorie
   
    strSearch = InputBox("Nach welchem Lieferant suchen?")
    strSearch = LCase(Trim(strSearch))
    'If Len(strSearch) = 0 Then Exit Sub
    Set wsDst = Worksheets(1)
    wsDst.Range("A2:Z150").Clear
    For k = 3 To 22
        Set wsSrc = Worksheets(k)
        For i = 1 To wsSrc.UsedRange.Row + wsSrc.UsedRange.Rows.Count - 1
            If LCase(wsSrc.Cells(i, 10).Value) = strSearch Then
                j = j + 2
                wsSrc.Rows(i).Copy wsDst.Rows(j)
            End If
        Next i
    Next k
End Sub
Ich freue mich auf die Lösung. Razz
Pj
Gast


Verfasst am:
14. Jun 2013, 13:49
Rufname:


AW: Teilwortsuche - AW: Teilwortsuche

Nach oben
       

Hallo Haley,

statt mit "="

Code:
If LCase(wsSrc.Cells(i, 10).Value) = strSearch Then


vergleichst du mit "like"

Code:
If LCase(wsSrc.Cells(i, 10).Value) Like "[]"&strSearch&"*" Then


Gruß
Pj
Haley
Gast


Verfasst am:
14. Jun 2013, 16:06
Rufname:

AW: Teilwortsuche - AW: Teilwortsuche

Nach oben
       

leider bekomme ich immer einen Komperlierfehler.
Wo kann das liegen? Embarassed
Haley
Gast



Verfasst am:
14. Jun 2013, 17:40
Rufname:

AW: Teilwortsuche - AW: Teilwortsuche

Nach oben
       

Ich habes herausbekommen. Es fehlten Klammern.


If LCase(wsSrc.Cells(i, 10).Value) Like ("[]" & strSearch & "*") Then
Pj
Gast


Verfasst am:
15. Jun 2013, 01:23
Rufname:

AW: Teilwortsuche - AW: Teilwortsuche

Nach oben
       Version: Office 2010

Hallo Haley,

Keiner ist perfekt Smile, aber gemeinsam sind wir unschlagbar.

Gruß
Pj
Haley
Gast


Verfasst am:
15. Jun 2013, 09:48
Rufname:


AW: Teilwortsuche - AW: Teilwortsuche

Nach oben
       

Aber nochmals vielen Dank!! Razz Razz
Haley
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: Wenn Dann "teilwortsuche" 2 white.sh4dow 618 31. Aug 2006, 19:08
white.sh4dow Wenn Dann "teilwortsuche"
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Access Tabellen