Hilfe bei VBA-Code
16.06.2004 15:20:07
Mike
bin mit meinem Problem schon etwas weiter, kann mir aber bitte jemand mitteilen, wie ich über die For Next - Schleife nun auch die Spalten anspreche? Bis jetzt müßte ich immer manuell von A auf B, C, D, E usw. ändern. Die Werte der Spalten B2 bis AY 50 wird in die Inputzelle D12 in Tabelle1 eingegeben.
Sub Test()
Application.ScreenUpdating = False
Sheets("Tabelle2").Select
For y = 3 To 102
Range("A" & y).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle1").Select
Range("C12").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
'Das ist die Zielzelle für das erste Input-Feld, DAS ZWEITE (D12) FEHLT NOCH!
Range("L12").Select
Application.CutCopyMode = False
Selection.Copy
' Das ist die Ergebnis-Zelle
Sheets("Tabelle2").Select
Range("b" & y).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Next
Sheets("Präsentation").Select
Range("D12").Select
End Sub
Danke und Gruß
Mike