VBA code felerhaft
15.02.2007 09:31:16
Minka
brauch hillfe beim code.
so sieht die Tabelle aus:
in Zeile A1 bis A6 Stehen die Datentypen, zb. bmw
in weiteren Spalten bis f stehen die komponeten zb. verkabelung ca so:
A1--------- B2 -----------C3
Auto ---Scheiben---- Reifen
bmw -----3 --------------2
audi ------2 ----------3
toyota.----- 4 ------2
die Zahlen sind die Anzahl der vorhandenen Scheiben bzw Reifen.
das ganze sollte dann ca so aussehen.
a1^ b2
bmw scheiben
bmw scheiben
bmw scheiben
bmw reifen
bmw reifen
audi scheiben
audi scheiben
audi reifen
(usw.)
dazu ist folgendes Skript:
Option Explicit
Private Sub CommandButton1_Click()
Dim Zeile As Long
Dim Spalte As Integer
Dim Anz As Integer
Dim longSZeile As Integer
longSZeile = 1
For Zeile = 2 To 85
For Spalte = 2 To 16
For Anz = 1 To Cells(Zeile, Spalte).Value
Worksheets(1).Activate
Worksheets(1).Select
Worksheets(1).Cells(longSZeile, 1).Value = Cells(Zeile, 1).Value
Worksheets(1).Cells(longSZeile, 2).Value = Cells(1, Spalte).Value
longSZeile = longSZeile + 1
Next Anz
Next Spalte
Next Zeile
End Sub
zu diesem Skript kommt: lLaufzeitfehler 13, Typen unverträglich.
Kann mir jemand helfen?
danke und Gruß Minka