Arbeitsblatt über VBA füllen
05.06.2007 12:44:19
Verena
Ich habe eine tabelle "F", in die Daten eingegeben werden. Diese Daten sollen dann umgerechnet werden und in Blatt "A" übergeben werden. Dazu hab ich folgende Sub:
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
spalte = 0
For z = 7 To 100
x = 15
Sheets("A").Range("A" & z) = Sheets("F").Range("A" & z + 10)
Sheets("A").Range("B" & z) = Sheets("F").Range("B" & z + 10)
Sheets("A").Range("C" & z) = Sheets("F").Range("C" & z + 10)
Sheets("A").Range("D" & z) = Sheets("F").Range("D" & z + 10)
If Sheets("F").Range("E" & x) = "" Then
x = x + 1
End If
Sheets("A").Range("E" & z).Value = Sheets("F").Range("E" & x).Value * Sheets("F").Range("E" & _
_
z + 10).Value
Next
Application.ScreenUpdating = True
End Sub
Das funktioniert auch soweit. Aber der Abschnitt
If Sheets("F").Range("E" & x) = "" Then
x = x + 1
End If
Sheets("A").Range("E" & z).Value = Sheets("F").Range("E" & x).Value * Sheets("F").Range("E" & z + 10).Value
soll so für Spalte E bis L gemacht werden. Nun weiß ich aber nicht, wie ich dem Programm sage "Gehe eine Spalte weiter und mache da das gleiche". Kann mir jemand weiterhelfen?
Gruß
Verena
Anzeige