den untenstehenden Code habe ich in Recherche entdeckt; er bewirkt wohl offensichtlich, das das gesuchte Ergebnis aus der Tabelle Inhalt in die Tabelle Ergebnis eingefügt wird. Hierbei wird, wenn ich das richtig interpretiere, der Zellbereich C6/C7 angesprochen. Wie müßte der Code geändert werden, wenn schon beispielweise Text in C6 (Stichwort) und C7 (Text zum Stichwort) steht, damit dieser nicht gelöscht wird, sondern der neue Text in C8/C9 usw. eingefügt wird? - Also, Excel eigentlich in einem vorbestimmten Bereich z.B. C6 bis C26 die nächste freie Zelle sucht und darin den jeweiligen Text einfügt? - Wenn C26 dann erreicht ist, eine MsgBox. mit dem Hinweis erfolgt? - Danke schon jetzt allen wieder für die Rückmeldung.
Herzliche Grüße
Wolfgang
Sub Ergebnis()
Application.ScreenUpdating = False
j = 0
Sheets("Ergebnis").Select
ActiveSheet.Unprotect ("a21")
Range("C:C").ClearContents
Sheets("Inhalt").Select
ActiveCell.Offset(0, 0).Range("a1").Select
Selection.Copy
Sheets("Ergebnis").Select
Range("C6").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("a1").Select
Sheets("Inhalt").Select
Do
ActiveCell.Offset(1, 0).Range("a1").Select
Selection.Copy
Sheets("Ergebnis").Select
ActiveSheet.Paste
ActiveCell.Offset(1, 0).Range("a1").Select
Sheets("Inhalt").Select
If ActiveCell.FormulaR1C1 = "" Then j = j + 1
Loop While j