Clever-Excel-Forum

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

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

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

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

Danke Stefan!

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

Gruß

Moppel

Steffl

Moppel

Steffl

Moppel