vba-Liste durchgehen

[Moppel]

Hallo VBA Experten,
ich nutze Excel schon einige Zeit, aber mit VBA habe ich bisher sehr wenig gemacht. Ich habe eine Frage;
In meinem Sheet "Modelle" habe ich beginnend in Spalte "B"bei "B2" eine Liste. Weiter habe ich bereits einen Code, welcher mir gewisse Daten einschreibt,- wenn ich aus dieser Liste mich für ein "Modell" entscheide.

Mein Anliegen:
Ich bräuchte ein VBA, welches die Liste von oben (beginnend bei "B2") abarbeitet.
1) Also, der erste Eintrag soll diesen Eintrag nochmals in die Zellen "C2" & "D2" eintragen.
2) es soll das Makro "TechnischeDaten" aufgerufen werden
3) nach ende von Makro "TechnischeDaten" soll der zweite Eintrag der Liste in die Zellen "C2" & "D2" eingetragen werden
4) Aufruf von "TechnischeDaten"
.... usw
.... bis ende der Liste.

Könnte mir jemand diese Routine" schreiben?

Liebe Grüße

[Steffl]

Hallo,

versuche es mal so

Code:

Sub prcKopieren()
   Dim wksBlatt As Worksheet
   Dim lngLastRow As Long
   Dim lngC As Long
  
   Set wksBlatt = ActiveSheet
  
   With wksBlatt
      lngLastRow = .Cells(.Rows.Count, 2).End(xlUp).Row
      For lngC = 2 To lngLastRow
         .Cells(lngC, 2).Copy .Cells(lngC, 3).Resize(, 2)
         Call TechnischeDaten
      Next lngC
   End With
End Sub

[Moppel]

Hallo Stefan,

das war schon einmal ein ganz große Hilfe für mich.
Allerdings werden die Einträge (in C2 +D2) nach jedem "Durchgang" eine Zeile drunter eingetragen. -- Die zwei Einträge sollen aber immer in "C2" und "D2" stattfinden.

Liebe Grüße

[Steffl]

Hallo,

dann so

Code:

Sub prcKopieren()
   Dim wksBlatt As Worksheet
   Dim lngLastRow As Long
   Dim lngC As Long
  
   Set wksBlatt = ActiveSheet
  
   With wksBlatt
      lngLastRow = .Cells(.Rows.Count, 2).End(xlUp).Row
      For lngC = 2 To lngLastRow
         .Cells(lngC, 2).Copy .Cells(2, 3).Resize(, 2)
         Call TechnischeDaten
      Next lngC
   End With
End Sub

[Moppel]

Danke Stefan!

.. als VBA-Änfänger stellt man(n) halt manchmal so simple Fragen
Danke für die Mühe!

Gruß