Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA code felerhaft

VBA code felerhaft
15.02.2007 09:31:16
Minka
Hallo
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA code felerhaft
15.02.2007 09:54:38
Rudi
Hallo,

Sub tt()
Dim wks1 As Worksheet
Dim iZeile As Integer, iSpalte As Integer, iCount As Integer
Set wks1 = Worksheets(1)
For iZeile = 2 To Cells(Rows.Count, 1).End(xlUp).Row
For iSpalte = 2 To Cells(1, Columns.Count).End(xlToLeft).Column
If Cells(iZeile, iSpalte) <> "" Then
For iCount = 1 To Cells(iZeile, iSpalte).Value
With wks1.Cells(Rows.Count, 1).End(xlUp)
.Offset(1, 0) = Cells(iZeile, 1)
.Offset(1, 1) = Cells(1, iSpalte)
End With
Next iCount
End If
Next iSpalte
Next iZeile
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Anzeige
AW: VBA code felerhaft
15.02.2007 10:05:00
Minka
Vielen Dank Rüdi
jetzt gehts mir gleich viel besser :)
danke
Minka

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige