ich habe ein kleines Problem bei dem ich mit meinen recht einfach gestrickten VBA-Kenntnissen nicht weiter komme.
Und zwar habe ich eine Tabelle in denen immer Daten eingefügt werden.
Diese hat 36 Zeilen. Es sollen die Daten aus den Spalten 2, 12 und 13, sowie Werte aus dem Tabellenblatt "Daten" aus der 2. Spalte eingelesen werden.
Folgender Lösungsansatz:
Code:
For L = 1 To 36
N(L, 1) = Cells(L, 2, ).Value
N(L, 2) = Worksheets("Daten").Cells(L, 2).Value
N(L, 3) = Cells(L, 12).Value
N(L, 4) = Cells(L, 13).Value
Next L
Die N(L, 3) und N(L, 4) sollen nun in ein anderes Tabellenblatt einsortiert werden. N(L, 1) entspricht dabei der Spaltennamen
N(L. 2) entspricht dabei den Zeilennamen
N(L, 4) soll immer rechts neben N(L, 3) eingetragen werden.
Mit Google habe ich mir dann diese "Fast-Lösung" gebastelt, bei der ich aber den Laufzeitfehler 1004: Anwendungs- oder objektdefinierter Fehler bekomme.
Dim N(36, 4)
Public Sub Daten()
For L = 1 To 36
N(L, 1) = Cells(L, 2).Value
N(L, 2) = Worksheets("Daten").Cells(L, 2).Value
N(L, 3) = Cells(L, 12).Value
N(L, 4) = Cells(L, 13).Value
Dim c As Range
With Worksheets("Zykluszeiten").Range("a3:a500")
Set c = .Find(N(L, 2), LookIn:=xlValues)
If Not c Is Nothing Then
e = c.Row
End If
End With
Dim d As Range
With Worksheets("Zykluszeiten").Range("c1:BU1")
Set d = .Find(N(L, 1), LookIn:=xlValues)
If Not d Is Nothing Then
f = d.Column
End If
End With
Worksheets("Zykluszeiten").Cells(e, f).Formula = N(L, 3)
Worksheets("Zykluszeiten").Cells(e, f + 1).Formula = N(L, 4)
Next L
End Sub
Ich hoffe es findet sich ein Begabter, der mir hilft.