Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
668to672
668to672
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wer kann mit einem Makro helfen!!

Forumthread: 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.
Anzeige

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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige