Herbers Excel/VBA-Archiv

Letztbefüllte Spalte verschieben ?!

• Letztbefüllte Spalte verschieben ?! von peppi81_ vom 09.09.2004 10:28:06
• AW: Letztbefüllte Spalte verschieben ?! - von Harald E am 09.09.2004 12:02:33

Betrifft: Letztbefüllte Spalte verschieben ?! von: peppi81_
Geschrieben am: 09.09.2004 10:28:06

Heho,

ich hab ein kleines Problem ...
Ich habe mehrere Zeilen, die über unterschiedlich viele Spalten verfügen.
Nun soll aus jeder Zeile der Inhalt der letztbefüllten Spalte in eine dahinterliegende Spalte kopiert werden.
Bei einer kleinen Erklärung, wie Links zu verwenden sind, könnte ich ein Beispiel hochladen.

Thx schon im Voraus

peppi81_

Betrifft: AW: Letztbefüllte Spalte verschieben ?! von: Harald E
Geschrieben am: 09.09.2004 12:02:33

Hallo Peppi81 :-0

Option Explicit

Sub LetzterEintraginSpalte()
  Dim i%
  Dim zielspalte As Long
  
  For i = 1 To 20
  
  zielspalte = zielspalte + 1
   Rows(i).SpecialCells(xlBlanks).Cells(1).Offset(0, -1).Copy Sheets("Tabelle1").Cells(zielspalte, 9)
  Next i
  
End Sub

Diesen Code in das Tabellenblatt 1 ( bzw. Namen im Code anpassen)
Voraussetzung: Spalte A ist gefüllt. Es werden 20 Zeilen nach der ersten Zeile vor einer Leerzelle durchsucht. Diese werden dann in Spalte I (=9) reinkopiert.
Mehr Zeilen ? For i = 1 To Zeilenzahl eingeben
Zielspalte woanders ? (zielspalte, 9) die 9 ändern

Gruß
Harald

Beiträge aus den Excel-Beispielen zum Thema "Letztbefüllte Spalte verschieben ?!"