Thema Datum  Von Nutzer Rating
Antwort
16.03.2020 16:01:36 Sandra
Solved
16.03.2020 16:24:25 Werner
Solved
Rot Zelle suchen (Inhalt) und Nachbarzellen (variabele Anzahl) ausgeben
 16.03.2020 16:25:45 UweD
*****
Solved
16.03.2020 16:28:20 UweD
*****
Solved
16.03.2020 16:31:00 Crossposting
NotSolved

Ansicht des Beitrags:
Von:
UweD		 Datum:
16.03.2020 16:25:45		 Views:
1005		 Rating:
     
Antwort:
 Nein
Thema:
Zelle suchen (Inhalt) und Nachbarzellen (variabele Anzahl) ausgeben
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub Real()
    Dim TB1 As Worksheet, TB2 As Worksheet, Sp As Integer, Zeile As Long, ZielZ As Integer
    Dim Suchwort As String, LR As Long
     
    Set TB1 = Sheets("Phantasie")
    Set TB2 = Sheets("Realität")
    ZielZ = 1 'Zielzeile
    Sp = 1 'suchen in Spalte A
     
     
    Suchwort = InputBox("Was suchst du?")
     
    If Suchwort <> "" Then
        LR = TB1.Cells(TB1.Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte
     
        Zeile = WorksheetFunction.CountIf(TB1.Columns(Sp), Suchwort) 'ist das Wort überhaupt vorhanden?
         
        If Zeile > 0 Then
         
            TB2.UsedRange.Clear 'Reset
             
            Zeile = WorksheetFunction.Match(Suchwort, TB1.Columns(Sp), 0) 'in Zeile gefunden
             
            TB1.Rows(Zeile).Resize(LR - Zeile + 1).Copy TB2.Rows(ZielZ) 'Bereich kopieren
        End If
    End If
End Sub

LG UweD

Ihre Antwort
  • 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: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
16.03.2020 16:01:36 Sandra
Solved
16.03.2020 16:24:25 Werner
Solved
Rot Zelle suchen (Inhalt) und Nachbarzellen (variabele Anzahl) ausgeben
 16.03.2020 16:25:45 UweD
*****
Solved
16.03.2020 16:28:20 UweD
*****
Solved
16.03.2020 16:31:00 Crossposting
NotSolved