Zeilen kopieren

Hallo Zusammen,
habe ein kleines Problem mit einer Zeile in der in verschiedenen Spalten Text mit Zahlen steht.
In A1 steht: Tagesration
D1010 Tagesration 173 H1010 Tagesration 174 L1010 Tagesration 175 P1010 Tagesration 176
Wenn ich jetzt diese Zeile in eine andere x beliebige Zeile kopiere, sollten dann die Werte der Spalten immer um eins erhöht werden.
D1018 Tagesration 177 H1018 Tagesration 178 L1018 Tagesration 179 P1018 Tagesration 180
mit dieser Formel:=WENN($A$1="Tagesration ";WECHSELN(P$1010;TEIL(P$1010;FINDEN("#";WECHSELN(P$1010;" ";"#";LÄNGE(P$1010)-LÄNGE(WECHSELN(P$1010;" ";""))))+1;99);TEIL(P$1010;FINDEN("#";WECHSELN(P$1010;" ";"#";LÄNGE(P$1010)-LÄNGE(WECHSELN(P$1010;" ";""))))+1;99)*1+1);"")
erreiche ich das zwar, aber ich muss dann immer händisch nach justieren und zwar "WECHSELN(P$1010" muss immer abgeändert werden und zwar in meinem Falle auf "WECHSELN(P$1018) damit der neue Wert in der neuen Zeile übernommen werden kann. Dieses Problem mit einer Formel oder einem Makro zu lösen wäre schön und dazu bräuchte ich wiedermal die Hilfe vom Forum.
Vielen Dank schon einmal im voraus.
Elfriede

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Werner,
zuerst Danke für Deine Antwort.
Ich habe jetzt mal eine Datei hoch geladen, wo man das vielleicht besser nach vollziehen kann, was ich meine. Wie ersichtlich werden hier die verzehrten Lebensmittel von unterschiedlichen Tagen abgespeichert. Das können mal mehr aber auch mal weniger sein. Deshalb kann ich auch nicht immer die gleiche Zeilenanzahl verwenden, brauche also was flexibles.
Die ersten Zeilen Überschriften bis "Tagesration 176" habe ich immer von Hand in die in Frage kommenden Zeilen kopiert und dann von Hand den Wert um 1 erhöht. Dann habe ich mir Gedanken darüber gemacht, ob man das nicht automatisieren könnte, was mir aber nur zum Teil gelungen ist. Ich kann zwar die "Zeilen Überschriften" in die nächsten vorgesehenen Zeilen kopieren, aber es muss auch wieder nach korrigiert werden. Wenn ich also in meiner Beispieldatei die Zeile 100 in die Zeile 110 kopiert habe, sollten sich dann auch automatisch die Werte "Tagesration ?" immer um "1" erhöhen. Wie in meinem Fall.
Das macht es aber nur, weil ich von "P$100" den "absoluten Zellbezug" übernommen und in D110, in die Formel eingetragen habe. Dadurch werden die Spalten H110, L110 & P110 angepasst. Aber wie immer erst durch die Änderung in der "Spalte D?" durch die Übernahme des "absoluten Zellbezug" aus der vorherigen "Spalte P?".
Meine Vorstellung wäre, wenn sich das machen lässt, dass wenn ich die Zeile mit den "Tagesration ?" Werten kopiere, einfach die Werte in der neuen Zeile automatisch immer fortlaufend aktualisiert werden würden.
Vielen Dank im voraus.
Grüße von Elfriede
https://www.herber.de/bbs/user/147592.xlsm

Public Function Nächster(Text As String) As String Dim R Nächster = Text & " 1" 'Defaultvalue With ActiveSheet Set R = .Cells.Find(What:="Tagesration", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _ MatchCase:=False, SearchFormat:=False) If Not R Is Nothing Then Nächster = Text & " " & CLng(Mid(CStr(R.Value), Len(Text) + 1)) + 1 End If End With End Function

Beliebteste Forumthreads (12 Monate)

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread