VBA mit For Schleife kopieren/einfügen
17.05.2008 22:17:00
olli
habe noch immer folgendes Problem:
ich möchte den Wert der Zelle J3 bei jedem Schleifendurchlauf um 1 erhöhen und jedes mal die Werte der Zellen D23:D33 in eine Tabelle schreiben. dabei sollen die werte transponiert werden. habe mir einen kleinen code versucht zu basteln (copy&paste ;-) ), aber leider funzt es nicht so wie ich will :-./
ich bekomme die ausgabetabelle nicht hin.....vielleicht kann mir ja jemand helfen....
Schonmal vielen Dank!!!
Gruß
Olli
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