Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1356to1360
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

VBA Schleife

VBA Schleife
05.05.2014 12:32:57
Andreas
Hallo zusammen,
ich bin ganz neu hier und habe direkt ein problem
bin Absoluter VBA - Neuling
folgendes:
Ich habe 2 Tabellenblätter
in Tabelle 1 habe ich Breite(Spalte A) und Länge(Spalte B)
in Tabelle 2 eine Preisberechnung (Paletten)
jetzt möchte ich aus Tab1 A1 & B1 nach Tab2 $A$2 & $B$2 Kopieren
und wieder zurück von Tab2 $J$18 & $K$18 nach Tab1 C1 & D1 Kopieren (Werte einfügen)
Das ganze soll als schleife laufen bis zur letzten beschriebenen Zeile in Tab1.
habe das ganze mal als makro aufgezeichnet funktioniert aber nur in zeile 1
Hoffe ihr könnt mir weiterhelfen!!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Schleife
05.05.2014 17:09:38
Crazy
Hallo Andreas
das könnte so aussehen
Sub test()
Dim lngZaehler As Long
For lngZaehler = 1 To Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Tabelle2").Range("A1") = Sheets("Tabelle1").Cells(lngZaehler, 1).Value
Sheets("Tabelle2").Range("B1") = Sheets("Tabelle1").Cells(lngZaehler, 2).Value
Sheets("Tabelle1").Cells(lngZaehler, 3) = Sheets("Tabelle2").Range("J18").Value
Sheets("Tabelle1").Cells(lngZaehler, 4) = Sheets("Tabelle2").Range("K18").Value
Next
End Sub
MfG Tom
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige