VBA mit For Schleife kopieren/einfügen

Sub Schaltfläche6_BeiKlick() wieoft = InputBox("Wieviele Meldungen?", "Anzahl", 300) If IsNumeric(wieoft) = False Then MsgBox "Eine Zahl eingeben!", vbOKOnly + vbInformation, "Zahl" Exit Sub End If For i = 1 To wieoft ActiveCell.FormulaR1C1 = i Range("J3").Select Range("D23:D33").Select Selection.Copy Range("H23").Select Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=True i = i+1 MsgBox "Das ist der " & i & ". Durchlauf", vbOKOnly + vbCritical, "Durchlaufzähler" Next End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Olli,
so 100% weiß ich noch nicht, was du willst.
Aber mal ein paar Anmerkungen
Diese Zeile kannst du dir sparen - da sie durch die nachfolgende Zeile "aufgehoben" wird
--> Range("J3").Select
Diese Zeile benötigst du nicht, da NEXT automatisch um 1 hochzählt
--> i = i+1
Solltest du nicht um 1 sondern z.B. um 2 hochzählen wollen schreibst du
-->For I = 1 To wieoft Step 2
Der Korrektheit halber - deine MsgBox gibt NACH dem ersten Durchlauf bereits an, dass sie jetzt im zweiten Durchlauf ist
Hier mal ein erstes Beispiel - allerdings: es wird immer im gleichen Tabellenblatt nach H23 geschrieben
Im zweiten Beispiel lasse ich dann noch eine Variable für die Tabellenblätter mitlaufen und kopiere so nacheinander in unterschiedliche Blätter. Das kannst du auch ändern und in andere Workbooks kopieren.
Fallweise musst du noch dafür sorgen, dass die Tabellenblätter auch angelegt werden
Und dann kann man den Code noch anhübschen - SELECT-Anweisungen sind unschön


Sub test1()
Dim wieoft, i
wieoft = InputBox("Wieviele Meldungen?", "Anzahl", 300)
If IsNumeric(wieoft) = False Then
MsgBox "Eine Zahl eingeben!", vbOKOnly + vbInformation, "Zahl"
Exit Sub
End If
For i = 1 To wieoft
ActiveCell.FormulaR1C1 = i
Range("D23:D33").Select
Selection.Copy
Range("H23").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=True
MsgBox "Das war der " & i & ". Durchlauf", vbOKOnly + vbCritical, "Durchlaufzähler"
Next
End Sub


Sub test2()
Dim wieoft, i, j
wieoft = InputBox("Wieviele Meldungen?", "Anzahl", 300)
If IsNumeric(wieoft) = False Then
MsgBox "Eine Zahl eingeben!", vbOKOnly + vbInformation, "Zahl"
Exit Sub
End If
For i = 1 To wieoft
MsgBox "Das ist der " & i & ". Durchlauf", vbOKOnly + vbCritical, "Durchlaufzähler"
Worksheets("Tabelle1").Activate
Range("D23:D33").Select
Selection.Copy
j = i + 1
Worksheets(j).Activate
Range("H23").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=True
MsgBox "Das war der " & i & ". Durchlauf", vbOKOnly + vbCritical, "Durchlaufzähler"
Next
End Sub

Beliebteste Forumthreads (12 Monate)

VBA mit For Schleife kopieren/einfügen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA mit For Schleife kopieren/einfügen

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

312 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread