Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
09.09.2017 01:11:30 |
Mandy |
|
|
|
09.09.2017 06:17:33 |
Werner |
|
|
|
10.09.2017 00:01:14 |
Gast4947 |
|
|
|
10.09.2017 00:26:29 |
Werner |
|
|
Keywords in zelle suchen |
10.09.2017 18:39:42 |
Gast31247 |
|
|
|
10.09.2017 21:29:31 |
Werner |
|
|
Von:
Gast31247 |
Datum:
10.09.2017 18:39:42 |
Views:
641 |
Rating:
|
Antwort:
|
Thema:
Keywords in zelle suchen |
Hallo Werner, ich glaube irgend wie erkläre ich es nicht richtig :-( . Habe mal was hier gefunden vielleicht kann mir jemand helfen den Code so zu ändern, den die Wörter die gesich werden stehen nicht in "A1" sondern in tabelle 2 A1:A...
Das heisst jedes Wort aus tabelle 2 Spalte A soll in tabelle 1 Spalte 6 gesucht werden bei übereinstimmung soll in spalte 7 ein "B" rein.
Sub Spalte_durchsuchen()
Dim Suche As Range
Dim SuchSpalte As Integer, SuchZeileVon As Integer, SuchZeileBis As Integer, SuchNummer As Integer
Dim SuchWertZelle As String
'### Diese Werte anpassen ###
SuchSpalte = 6
SuchZeileVon = 2
SuchZeileBis = ThisWorkbook.Worksheets("Tabelle1").Cells(Rows.Count, SuchSpalte).End(xlUp).Row
SuchWertZelle = "A1"
'### Diese Werte anpassen ###
SuchNummer = CInt(Worksheets("Tabelle1").Range(SuchWertZelle).Value)
Set Suche = ThisWorkbook.Worksheets("Tabelle1").Range(Cells(SuchZeileVon, SuchSpalte), _
Cells(SuchZeileBis, SuchSpalte)).Find(SuchNummer, LookIn:=xlValues)
If Suche Is Nothing Then
MsgBox "Nichts gefunden!", , "Suche nach: " & CStr(SuchNummer)
'Else
' MsgBox "Gefunden in " & Chr((Suche.Column Mod 26) + 64) & CStr(Suche.Row) & ".", , _
' "Suche nach: " & CStr(SuchNummer)
End If
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
09.09.2017 01:11:30 |
Mandy |
|
|
|
09.09.2017 06:17:33 |
Werner |
|
|
|
10.09.2017 00:01:14 |
Gast4947 |
|
|
|
10.09.2017 00:26:29 |
Werner |
|
|
Keywords in zelle suchen |
10.09.2017 18:39:42 |
Gast31247 |
|
|
|
10.09.2017 21:29:31 |
Werner |
|
|