Text aus Zelle unterhalb der aktiven Zelle
14.10.2007 14:40:54
Wolfgang
einmal mit irgendwelchen Fragen beschäftigt, stelle ich fest, dass immer neue Fragen hinzukommen. Den untenstehenden Code hatte ich hier aus diesem Forum. Er läuft auch soweit super. Mir ist nun nur aufgefallen, dass ich eigentlich den Text der aktiven Zelle nicht benötige, sondern nur den Text in der darunter befindlichen Zelle. Ich habe versucht, den Code umzustellen, bekomme aber immer nur den Text der aktiven Zelle oder wieder beide Texte (also, aus der aktiven und der darunterliegenden Zelle). Wie müßte der Code umgestellt werden, damit tatsächlich nur der Text der Zelle unter der aktiven Zelle übernommen wird? - Danke schon jetzt für die Rückmeldungen.
Gruß - Wolfgang
Sub Ergebnis()
Dim rngBereich As Range
Dim lngZeile As Long
Application.ScreenUpdating = False
Sheets("Inhalt").Select
Sheets("Druck").Unprotect ("a")
Set rngBereich = Sheets("Druck").Range("C4:C25")
lngZeile = rngBereich.Row
Do
lngZeile = lngZeile + 1
Loop Until Sheets("Druck").Cells(lngZeile, rngBereich.Column) = "" Or _
lngZeile > rngBereich.Row + rngBereich.Rows.Count
If lngZeile