Ich glaube, ich habe ein etwas komplizierteres Problem. Ich habe 3 Tabellenblätter: Deckblatt, Übersicht, und Seriennummer. Auf dem Tabellenblatt Deckblatt wählt man aus, wie viele Felder es in dem Tabellenblatt Übersicht gibt. Dazu wird die sechstletzte Spalte kopiert und vervielfacht.
Die aktuelle Anzahl an Feldern bestimme ich in dem Feld A1 auf dem Blatt Übersicht, in dem jedes Feld mit dem Ausdruck "=E" gezählt wird(So lautet die Feldbezeichnung). Den Code dafür habe ich bereits:
Sub duplizieren()
Dim Feldhinzu, lngSpa As Integer
Dim Anzahl, i As Integer
Anzahl = Worksheets("Deckblatt").Range("B10") - Worksheets("Übersicht").Range("A1")
If Anzahl
Nun kommt das eigentliche Problem:In der Zeile 2 steht die Feldbezeichnung "=Exx" (xx-fortlaufende Nummer). Darunter wird der Feldname per Hand eingegeben.
In dem Tabellenblatt Seriennummer sollen nun alle Felder hinzugefügt werden, in denen nicht "Reserve" als Feldname steht.
Es wäre schön, wenn jemand dazu eine Lösung parat hätte.
Bei Fragen zum Verständnis versuche ich schnellstmöglich zu Antworten!
Gruß,
Friedrich