Thema Datum  Von Nutzer Rating
Antwort
04.05.2021 10:48:56 Hermdaddy
NotSolved
04.05.2021 14:41:46 Gast65871
NotSolved
04.05.2021 20:41:01 Gast12827
NotSolved
Blau Bestimmte Inhalte + Umgebung detektieren
 10.05.2021 12:25:00 Hermdaddy
NotSolved

Ansicht des Beitrags:
Von:
Hermdaddy		 Datum:
10.05.2021 12:25:00		 Views:
646		 Rating:
     
Antwort:
  Ja
Thema:
Bestimmte Inhalte + Umgebung detektieren

Hallo,

 

erst einmal danke für die Antwort(en). Wie bereits oben beschrieben habe ich mich bereits durch Foren durchgelesen, konnte so etwas leider nicht finden. Wenn ihr da einen passenden Thread auf die Schnelle parat habt, schickt ihn mir doch gern. Für konstruktive Hilfe bin ich stets offen.

 

Selbstredend suche ich nicht nach einer Fertiglösung für mein Problem!

 

Ich habe an dem oben geposteten Code weitergearbeitet, da er nach der ersten Zeile, in der er die 58 gefunden hat, die Suche beendet.

 

1) Zum einen soll er das gesamte Dokument nach der 58 durchsuchen

 

2) Zum anderen soll der entsprechende Bereich kopiert und in Tabelle 2 eingefügt werden.

Leider bin ich nicht so erfahren im Umgang mit VBA, für mich ist das alles nicht so leicht nachvollziehbar wie bspw. mit Python.

 

?
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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Option Explicit
 
   
 
Sub Test()
 
     
 
  Dim rngCell As Excel.Range
 
  Dim ws As Worksheet, wsZiel As Worksheet
 
  Dim iSpalte  As Integer
 
     
 
  Set wsZiel = Worksheets("Tabelle2")
 
  Set ws = Worksheets("Tabelle1")
 
     
 
  Set rngCell = Worksheets("Tabelle1").UsedRange.Find( _
 
                      What:=58, _
 
                      LookIn:=xlValues, _
 
                      LookAt:=xlWhole, _
 
                      SearchOrder:=XlSearchOrder.xlByRows, _
 
                      MatchCase:=False)
 
    With ThisWorkbook.Worksheets("Tabelle1")
 
        For iSpalte = 1 To 32
 
            If Not rngCell Is Nothing Then
 
       
 
        'die Zelle in der der Suchbegriff gefunden wurde
 
                Debug.Print "rngCell  : "; rngCell.Address.Copy Destination:=ThisWorkbook.Worksheets("Tabelle2").Range("A3")
 
        'Zelle eins links davon
 
                Debug.Print "O(0, -1) : "; rngCell.Offset(0, -1).Address.Copy Destination:= _
 
               ThisWorkbook.Worksheets("Tabelle2").Range("A2")
 
        'Zelle zwei links davon
 
                Debug.Print "O(0, -2) : "; rngCell.Offset(0, -2).Address.Copy Destination:= _
 
               ThisWorkbook.Worksheets("Tabelle2").Range("A1")
 
        'Zelle eins rechts davon
 
                Debug.Print "O(0, 1)  : "; rngCell.Offset(0, 1).Address.Copy Destination:= _
 
               ThisWorkbook.Worksheets("Tabelle2").Range("A4")
 
       
 
            End If
 
        Exit For
 
    End With
 
End Sub

 

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
04.05.2021 10:48:56 Hermdaddy
NotSolved
04.05.2021 14:41:46 Gast65871
NotSolved
04.05.2021 20:41:01 Gast12827
NotSolved
Blau Bestimmte Inhalte + Umgebung detektieren
 10.05.2021 12:25:00 Hermdaddy
NotSolved