Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
668to672
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
668to672
668to672
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Wer kann mit einem Makro helfen!!

Wer kann mit einem Makro helfen!!
16.09.2005 07:55:24
Achim
Hallo Excel Freunde
Wer kann mir ein Makro erstellen:
Makiere den Bereich von A5:A500
Suche in dem Bereich nach Inhalte
Die gefundenen Inhalte kopieren und diese Inhalte
eine Zelle höher als gefunden einfügen.
_______________________________________________________
Meine Tabelle sieht so aus
A5 leer
A6 Inhalt
A7 leer
A8 Inhalt
A9 leer
A10 Leer
A11 Inhalt
usw.
Danke Gruß Achim H.
usw.

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

Betreff
Datum
Anwender
Anzeige
AW: Wer kann mit einem Makro helfen!!
16.09.2005 08:30:34
Volker
Hallo Achim,
mit anderen Worten, alles soll eine Zeile nach oben rutschen.
Dann reicht es doch völlig, Zelle A4 zu löschen und, wenn nötig, unter A499 eine Zelle einzufügen.
Cells(4, 1).Delete
Cells(499, 1).Insert
Gruß
Volker
AW: Wer kann mit einem Makro helfen!!
Manfred
Hallo zusammen,
Ich glaube nicht daß Achim es so gemeint hat. Ich gehe davon daß er eine "echte" Kopie
in die obere Zeile wünscht. Dann geht folgender Code

Sub Kopiere()
Dim xx As Worksheet, i As Integer
Set xx = Worksheets("Tabelle1")
For i = 5 To 500
If xx.Cells(i, 1) <> "" Then
If xx.Cells(i - 1, 1) = "" Then
xx.Cells(i - 1, 1) = xx.Cells(i, 1)
End If
End If
Next
End Sub

Gruß Manfred
Anzeige
AW: Wer kann mit einem Makro helfen!!
16.09.2005 08:45:57
Achim
Hallo Manfred
Danke für deine Lösung. Hurra "Goldrichtig" :-)
Gruß Achim H.
AW: Wer kann mit einem Makro helfen!!
16.09.2005 08:39:24
Achim
Die bestehenden Inhalte (A5:A500)sollen erhalten kopiert nur jewiels eine Zelle höher.
Gruß achim H.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige