Schleifen verschachteln

Sub App_Match() Dim ws1 As Worksheet, ws2 As Worksheet Dim k As Long, vRow As Variant, i As Long Set ws1 = Sheets("Frank") Set ws2 = Sheets("caro") For k = 1 To 7 If Cells(k, 1) = "" Then ActiveCell.Value = "" Else vRow = Application.Match(ws1.Cells(k, 1).Value, ws2.Range("zeit").Columns(1), 0) If IsNumeric(vRow) Then ws1.Cells(k, 5).Value = ws2.Range("zeit").Cells(vRow, 6) Else ws1.Cells(k, 5).Value = "" End If End If Next k End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub App_Match() Dim ws1 As Worksheet, ws2 As Worksheet Dim k As Long, vRow As Variant, i As Long, l As Long, ze As Long Set ws1 = Sheets("Frank") Set ws2 = Sheets("caro") For ze = 0 To 550 Step 50 If ze = 0 Then ze = 1 For k = 1 To 7 If Cells(k, 1) = "" Then ActiveCell.Value = "" Else vRow = Application.Match(ws1.Cells(k, 1).Value, ws2.Range("zeit").Columns(1), 0) If IsNumeric(vRow) Then ws1.Cells(k, 5).Value = ws2.Range("zeit").Cells(vRow, 6) Else ws1.Cells(k, 5).Value = "" End If End If Next k vRow = vRow + 3 Next End Sub

Hallo Daniel,
es gibt immer einen Plan, womöglich aber umständlich ausgedrückt.
Ursprünglich stehen in dem Sheet Frank in der Spalte E -- 480 Sverweisfunktionen untereinander welche sich die Werte aus dem Sheet Caro holen.
Beispiel - in Sheet Frank Spalte 1 Zeile 1 beginnend stehen 40 Namen welche in Spalte E über Sverweis Werte eingelesen bekommen die in Sheet Caro Spalte F stehen.
Ab Zeile 50 stehen in Sheet Frank Spalte 1 dieselben Namen - bekommen diesmal in Spalte E die werte aus Caro Spalte I und das weitere 10mal entsprechend den Monaten.
Dies wollte ich mit VBA lösen. Untenstehender Code zeigt wie ich es mit vlookup für jan bis mar getätigt habe. Passt - bin mehr als zufrieden - wollte die Geschichte verfeinern und bin an meine Grenzen gestoßen!
Application.Match mit vRow wurde mir empfohlen wie ich es eleganter anstellen könnte. Habe die Schleife aber nicht hinbekommen wie ich 50 zeilen + vRow hochzählen sollte. Zeile 1 + 50 =51... dort kam ich nicht klar.
Ich wollte es nur übersichtlicher gestalten - will keinen fertigen Code. Bin genauso am lernen wie viele andere, bloß mit Häppchen Step 3 oder habs ausprobiert bei mir gehts ....
Ist garantiert Super gemeint, hilft uns Fachidioten aber nicht viel weiter.
Frank

Sub suchen()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim o, k, s As Integer
Set ws1 = Sheets("Frank")
Set ws2 = Sheets("Caro")
On Error Resume Next
k = 1
For o = 1 To 40
If Cells(k, 1) = "" Then
ActiveCell.Value = ""
Else
ws1.Cells(k, 5).Value = WorksheetFunction.vlookup(ws1.Cells(k, 1).Value, ws2.Range("zeit"), 6,  _
0)
End If
k = k + 1
Next o
k = 50
For o = 1 To 40
If Cells(k, 1) = "" Then
ActiveCell.Value = ""
Else
ws1.Cells(k, 5).Value = WorksheetFunction.vlookup(ws1.Cells(k, 1).Value, ws2.Range("zeit"), 9,  _
0)
End If
k = k + 1
Next o
k = 100
For o = 1 To 40
If Cells(k, 1) = "" Then
ActiveCell.Value = ""
Else
ws1.Cells(k, 5).Value = WorksheetFunction.vlookup(ws1.Cells(k, 1).Value, ws2.Range("zeit"), 12,  _
0)
End If
k = k + 1
Next o
End Sub

…wie die Geschichte von dem Mann, der in der Kirche dafür betet, im Lotto zu gewinnen…
Eines Tages ertönt eine Stimme aus himmlischer Höhe… Gib mir eine Chance, kaufe ein Los!
In deinem Fall…
Wenn man etwas pgmieren will, sollte man schon Ahnung von den wichtigsten Regeln und Elementen haben und sich nicht darauf verlassen, dass das alles irgendwie wie von Geisterhand zueinander passt und findet! Ein Pgm ist keine magische Formel, keine Esoterik, auch wenn es manchem so vorkommen mag, sondern knallharte Mathematik, Sparte Algorithmik! Hier gilt das Prinzip von Ursache und Wirkung und das allgemeine Bewegungsgesetz der Informatik: Putting shit in equals getting shit out!
Also, wenn du dich waschen willst, musst du dich auch nass machen — willst du pgmieren, musst du etwas darüber lernen, so einfach ist das! Da fragt man nicht dümmlich Hä, Step?, sondern schaut einfach mal in der VBE-Hilfe unter For… nach. Soviel Eigeninitiative sollte schon zu spüren sein, wenn du dir helfen lassen willst! Viel anders haben wir das einst auch nicht gelernt…
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread