hi leute, ich habe gerade erst angefangen VBA zu programmieren und hab nicht wirklich einen durchblick. ich möchte eine unbekannte anzahl von daten(Zeilen) von einem tabellenblatt auslesen, in felder schreiben und auf einem anderem tabellenblatt wieder eintragen. leider kommt bei mir immer der fehler "sub oder funktion nicht deklariert".
Function Felderzeugen()
Dim Feld As String
Dim n As String
'max. Feldanzahl
Dim LetzteBenutzteZeile As Long
'letzter Wert
LetzteBenutzteZeile = ActiveWorkbook.Worksheets("Tabelle1").UsedRange.Rows.Count + ActiveWorkbook.Worksheets("Tabelle1").UsedRange.Row - 1
'ermitteln der Zeile mit letztem Wert
n = Worksheet("Tabelle2").Cells(2, 8)
Application.Worksheets("Tabelle1").Range("A1:letztebenutztezeile" & EndE) = Feld()
For i = LBound(Feld) To i = LetzteBenutzteZeile
ReDim Preserve Feld(DSatzNr)
'legt Feld an, behält Werte
Line Input, Feld(DSatzNr)
'schreibt Daten in Feld
Next i
End Function |