Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
612to616
612to616
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Untere Zeile kopieren

Forumthread: Untere Zeile kopieren

Untere Zeile kopieren
19.05.2005 16:06:00
Tom
Hallo,
ein Problem, dass schwer zu beschrieben ist - daher anbei eine Bsp-Mappe.
https://www.herber.de/bbs/user/22960.xls
Vielleicht hat jemand ne Lösung.
Gruß
Tom
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Untere Zeile kopieren
19.05.2005 16:07:46
Hajo_Zi
Hallo Tom.
schaue mal auf meine Homepage da ist ein Beispiel auf der Seite VBA.
Beispieldatei
Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Home und Excel Version XP 2003 SP1.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3..



"Wer Rechtschreibfehler findet, darf sie behalten!"

"Wer Rechtschreibfehler findet, darf sie behalten!"
Dies gilt auch für Bert.
Anzeige
AW: Untere Zeile kopieren
19.05.2005 17:39:41
Tom
Danke !! werde es testen !
AW: Untere Zeile kopieren
19.05.2005 18:06:39
Erich
Hallo Tom,
Vorschlag für ein Makro: 
Sub Umwand_spez()
Dim ws1 As Worksheet, ws2 As Worksheet, cc As Range, sp%
Set ws1 = ActiveSheet           ' (Original muss aktives Blatt sein)
Sheets.Add
Set ws2 = ActiveSheet
For Each cc In ws1.UsedRange.Columns(1).Cells
If IsEmpty(cc) Then
sp = 0
Else
sp = sp + 1
ws2.Cells(cc.Row - sp + 1, sp) = cc
End If
Next cc
End Sub
Grüße aus Kamp-Lintfort
Erich
Anzeige
AW: Untere Zeile kopieren
19.05.2005 18:26:42
Tom
Hi Erich,
klappt super - Danke auch Dir !!
Tom
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige