Thema Datum  Von Nutzer Rating
Antwort
Rot For-Schleife gibt wiederholt einen (falschen) Wert aus
 02.09.2016 12:49:16 Peter
NotSolved
02.09.2016 13:13:11 Crazy Tom
NotSolved
02.09.2016 14:17:02 Peter
NotSolved

Ansicht des Beitrags:
Von:
Peter		 Datum:
02.09.2016 12:49:16		 Views:
1185		 Rating:
     
Antwort:
  Ja
Thema:
For-Schleife gibt wiederholt einen (falschen) Wert aus

Servus miteiander,

folgende Aufgabenstellung:

Ich habe zwei Tabellen A & B. In Tabelle A ist eine Liste der relevanten Medien mit den dazugehörigen Basic-URLs (z.B. "aberwitzig.com").In Tabelle B (welche Variabel ist, da ich aus verschiedenen Tabellen Werte für meine Liste in Tabelle A finden will) befinden sich eine Vielzahl von Links (z.B. "http://www.aberwitzig.com/flachwitze.htm") verschiedener Online-Portale zu einem für meine Arbeit relevantem Thema. Zusätzlich zu den Links sind noch eine Vielzahl von Informationen gesammelt, unter anderem die Anzahl der Views die diese Seite im Monat hat. 

Um die Reichweiten aus Tabelle B in die Tabelle A zu bekommen, nehme ich die Basic-URL, kopiere sie in eine ungenutzte Zelle in Tabelle B und durchsuche dann die Spalte mit den Links nach diesem Wert. 

Das klappt an und für sich ganz gut, nur gibt mir die Funktion in unregelmäßigen Abständen EINEN wiederkehrenden Wert als Reichweite in Tabelle A wieder. Dieser Wert ist immer die Reichweite des ersten Links in Tabelle B. Dabei ist es unerheblich ob in Tabelle B die gesuchte Basic-URL enthalten ist oder nicht.

Ich hoffe das ist soweit verständlich. Ich danke für eure Mühe.

 

?
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
Sub neu()
 
Application.Workbooks("A.xlsx").Activate
 
' Die Länge der Tabelle A wird ermittelt
 
With Worksheets("Tabelle1")
            For peter = 2 To 500
                If Cells(peter, 12).Value = "" Then
                Exit For
                End If
            Next
        End With
Susi = peter - 1
 
 
Application.Workbooks("B.xlsx").Activate
 
' Länge der Tabelle B wird ermittelt
 
With Worksheets("TEMPLATE")
            For Ilka = 2 To 500
                If Cells(Ilka, 1).Value = "" Then
                Exit For
                End If
            Next
        End With
Herbert = Ilka - 1
 
Application.Workbooks("A.xlsx").Activate
 
' In Tabelle A wird der Link des Mediums ausgelesen
 
With Worksheets("Tabelle1")
    For Petra = 2 To Susi
        ' Der Link wird kopiert
        Cells(Petra, 13).Copy
        Application.Workbooks("B.xlsx").Activate
        'Der kopierte Wert wird in einer unbenutzen Zelle eingefügt
        Cells(1, 15).Select
        ActiveSheet.Paste
        'Jetzt soll die Liste durchgearbeitet werden, ob der Basis-Link in einem der längeren Links enthalten ist  
         With Workbooks("B.xlsx").Worksheets("TEMPLATE")
                For Georg = 2 To Herbert
                    Cells(Georg, 12).Select
                    'Falls das der Fall ist dann soll fünf Spalten nach links gesprungen werden, weil dort die Reichweite eingetragen ist
                    If InStr(ActiveCell.Value, Cells(1, 15).Value) > 0 Then
                        ActiveCell.Offset(0, -5).Select
                        ActiveCell.Copy
                        Application.Workbooks("A.xlsx").Activate
                        Cells(Petra, 14).Select
                        ActiveSheet.Paste
                         
                        Exit For
                    End If
                     
                Next
                 
            End With
          
    Next
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
Rot For-Schleife gibt wiederholt einen (falschen) Wert aus
 02.09.2016 12:49:16 Peter
NotSolved
02.09.2016 13:13:11 Crazy Tom
NotSolved
02.09.2016 14:17:02 Peter
NotSolved