Anzeige
Archiv - Navigation
1560to1564
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
Zellwert finden und Label1.Caption eintragen
12.06.2017 22:27:53
Milan
Hallo Leute,
ich habe zwei Blätter
Blatt1 = Arbeitsblatt
Blatt2 = Webabfrage
In "Blatt1" lade ich eine UserForm in der sich Label'n befinden
und wenn ich Label1 anklicke soll der seine Caption in "Blatt2" eintragen.
Im "Blatt2" soll er zuerst ein "Gesuchtes Wort*" in Spalte A:A finden und danach in eine weitere
Zelle seine Caption eintragen.
Wenn "Gesuchtes Wort*" im "Blatt2" z.B. sich in A10 befindet dann im "Blatt2" in zehnte Zeile
darunter in Spalte A Label1.Caption eintragen soll.
Aber ich habe keine Ahnung wie ich das formulieren soll und währe
sehr, sehr Dankbar wenn mir jemand helfen könnte.
https://www.herber.de/bbs/user/114229.xlsm
Gruß

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellwert finden und Label1.Caption eintragen
12.06.2017 22:55:56
Juve
Salve!
Private Sub Label1_Click()
Dim Wort As Variant
Wort = InputBox("Welcher Text", "Suche", "Gesuchtes Wort")
If Len(Wort) = 0 Then Exit Sub
If WorksheetFunction.CountIf(Blatt2.Columns(1), Wort & "*") > 0 Then
Blatt2.Cells(Application.Match(Wort & "*", Blatt2.Columns(1), 0) + 10, 2) = Label1. _
Caption
End If
End Sub

AW: Zellwert finden und Label1.Caption eintragen
12.06.2017 23:40:40
Milan
Hallo Juve,
vielen Dank, aber meine Abfrage sollte nicht über einen InputBox laufen, sondern als Festwert.
Die Code soll nach ersten zwei Wörter in einem Satz in der x Zelle in der Spalte A:A Blatt2 suchen, ich
habe das als "Gesuchtes Wort*" gennant z.B Text in der Zelle könnte so lauten: "Gesuchtes Wort befindet sich im Buch xyz...". Daswegen ein Stern nach dem "Gesuchtes Wort*" damit soll der Formel den Rest vom Text ignorieren, und danach in der zente Zeile darunter Label1.Caption eintragen ohne zwieschenstop.
Label1 anklicken-Wert suchen, finden-Label1.Caption eintragen-fertig
Gruß
Anzeige
AW: Zellwert finden und Label1.Caption eintragen
12.06.2017 23:53:46
Milan
Hallo Juve,
noch mal vielen Dank,
Ich habe dein Formel umgebaut und läuft super. Ich bin damt Happy.

If WorksheetFunction.CountIf(Abfrage.Columns(1), "Gesuchtes Wort*") > 0 Then
Blatt2.Cells(Application.Match("Gesuchtes Wort*", Blatt2.Columns(1), 0) + 10, 1) = Label1.Caption
End If
Unload Me

Sei begrüßt

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige