Office: Makro: Spaltensuche, bei Treffer Wert kopieren

Hallo Zusammen,

hier meine Probleme:

1)
Ich möchte über eine Userform, welche ein Textfeld enthält, eine Email aus der Spalte A suchen. Also der Benutzer gibt in die Userform die email-addy ein, diese wird gesucht und gefunden.
Weiter soll jetzt aus der gefundenen Zeile die 6. Spalte (F) kopiert werden und in G1 eingefügt.

2)
Eine Zeile, in meinem Fall Row 10, soll nach gewissen Schlagwörtern untersucht werden. Wenn in einer Zelle der Suchbegriff auftaucht, soll diese gelöscht werden. Die anliegenden Zellen sollten nach links verschoben werden.

Das erste Problem habe ich versucht per Makro aufnehmen zu lösen, aber bin immer wieder damit gescheitert.

Vielen Dank für eure Mühe!

VG
weisch


ps. Die Userform steht schon und gibt die eingegebenen Werte auch korrekt als Variable weiter. Mein Problem ist die Suche der email-addy und das rauskopieren der 5. zelle

thx

 

Hallo Weisch,

im Anhang findest du eine Datei mit 2 Tabellenblättern: "Aufgabe1" und "Aufgabe2".

Beide habe ich exemplarisch gelöst. Schau dir das mögliche Vorgehen einfach mal an. Habe auch nicht alle möglichen Fehler abgefangen.

Viel Erfolg.

 

Hallo fridgenep,

immer wieder schön von dir zu hören :)

Die Aufgabe1 ist kapiert, muss noch ein wenig dran rumpoppeln und anpassen, aber die Idee dahinter ist verstanden.

Mit Aufgabe2 befass ich mich sobald Nr. 1 steht, meld mich dann nochmal.

VG
weisch

 

Hallo fridgenep,

Aufgabe1 ist Geschichte. Bei der Nr.2 hab ich nur noch ein kleines Problem:

Hier der Code:

Code:

Private Sub 

CommandButton1_Click()
    Dim strAdd      As String
    Dim varWert     As Variant
    Dim lngI        As Long

 For lngI = 1 To 3
    strAdd = Cells(lngI, 1).Value
    Set varWert = Rows(10).Find(strAdd, LookIn:=xlValues)
    If Not varWert Is Nothing Then Cells(10, varWert.Column).Delete Shift:=xlToLeft
 Next lngI
End Sub

Die gesuchten Begriffe sind Teil der Zelle, also brauche ich "enthält suchbegriff".
Die Lösung müsste ja mit * funktionieren, aber wie vba das nun genau will find ich nicht raus.

VG
weisch

 

Hallo Weisch,

Code:

Find("*" & strAdd & "*", LookIn:=xlValues)

 

Hallo fridgenep,

also ich versuch grad deine lösung zu nr.2 umzubauen, was sich irgendwie als schwierig erweist.
könntest du mir einen lösungvorschlag ohne die "lng1 as long" machen.
also ich will nach einem bestimmten wort suchen, nämlich "review". ich kann review auch gar nicht in das arbeitsblatt schreiben, um wie nach deiner methode danach zu suchen.
müsste eigenltich nur review als variable deklarieren, aber das bekomm ich nicht richtig hin mit deinem beispiel.

VG
weisch

 

Hallo,

kommt das Wort in Zeile 10 nur einmal vor, oder mehrmals?