Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
17.04.2024 16:56:58
Stunden addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
612to616
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
AW: Untere Zeile kopieren
19.05.2005 18:26:42
Tom
Hi Erich,
klappt super - Danke auch Dir !!
Tom

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige