Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1688to1692
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
1688to1692
1688to1692
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Volle Zellen in leere Zellen verschieben

Volle Zellen in leere Zellen verschieben
29.04.2019 11:23:43
Sammy
Hallo,
Da ich noch ein absoluter VBA anfänger bin, bräuchte ich mal eure Hilfe.
Ich benötige einen Makro, das alle Zellen inhalte in Spalte A, sofern die Zelle voll ist, in leere Zellen in Spalte B verschiebt.
als Beispiel:
In Spalte A sind die ersten 3 Zellen voll geschrieben.
In Spalte B sind die Zellen 4-6 voll geschrieben und 1-3 leer.
jetzt möchte ich die Zellen 1-3 aus Spalte A in die leeren Zellen von Spalte B (1-3), mit Hilfe eines Makros, verschieben.
Vielen Dank im Voraus.
Gruß Sammy

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Volle Zellen in leere Zellen verschieben
29.04.2019 11:39:20
UweD
hallo
so?
Sub verschieben()
    Dim TB, i As Long
    Dim Sp As Integer, ZE As Integer, LR As Long, LC As Integer
    
    Set TB = Sheets("Tabelle1")
    ZE = 1 'Ab Zeile... 
    
    LR = TB.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile des gesamten Blattes 
    LC = TB.Cells.SpecialCells(xlCellTypeLastCell).Column 'Letzte Spalte des gesamten Blattes 

    For i = ZE To LR
        With TB.Cells(i, LC)
            If .Value = "" Then
                .Value = .Offset(0, -1)
                .Offset(0, -1) = ""
                    
            End If
        End With
    Next
    
End Sub

LG UweD
Anzeige
AW: Volle Zellen in leere Zellen verschieben
29.04.2019 11:41:58
Sammy
hallo,
beim ausführen tut sich nichts, muss ich irgendwo noch meine gewünschten Spalten eintragen?
Musterdatei?
29.04.2019 11:57:57
UweD
AW: Musterdatei?
29.04.2019 12:50:31
UweD
Klappt Bestens
Vorraussetzung B ist die Letzte beschriebenen Spalte ist.
Vorher
Userbild
Nachher
Userbild
https://www.herber.de/bbs/user/129473.xlsm
LG UweD
Anzeige
AW: Musterdatei?
29.04.2019 12:53:40
Sammy
In der wahren Tabelle sind es Spalte I und J, was muss ich dann an deinem Code ändern?
Danke im Voraus :)
AW: Musterdatei?
29.04.2019 13:02:29
UweD
Hi
gar nichts ändern.
durch 

LC = TB.Cells.SpecialCells(xlCellTypeLastCell).Column 'Letzte Spalte des gesamten Blattes
wird die letzte Spalte J= 10 erkannt
Und der Code arbeitet ab da.
LG UweD
AW: Musterdatei?
29.04.2019 13:06:31
Sammy
J ist aber nicht die letzte Spalte.
W ist die letzte, aber die Verschiebung muss von I zu M laufen, nicht J, hab mich verschrieben. Also die Inhalte aus Spalte M sollen ind Spalte
AW: Musterdatei?
29.04.2019 13:31:52
UweD
Hi
Das mag ich so....
1) zuerst war es A und B
2) im Beispiel dann auch so
3) Dann I und J
4) Jetzt ist W die Letzte, aber nun nicht mehr J sondern M 
Sub verschieben()
    Dim TB, i As Long
    Dim Sp As Integer, ZE As Integer, LR As Long, LC As Integer, Off As Integer
    
    Set TB = Sheets("Tabelle1")
    ZE = 1 'Ab Zeile... 
    
    LR = TB.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile des gesamten Blattes 
    LC = 13 'Zielspalte M 
    Off = -3 'Vorziehen aus x Spalten vorher; hier aus 10=J 
    
    
    For i = ZE To LR
        With TB.Cells(i, LC)
            If .Value = "" Then
                .Value = .Offset(0, Off)
                .Offset(0, Off) = ""
                    
            End If
        End With
    Next
    
End Sub

LG UweD
Anzeige

299 Forumthreads zu ähnlichen Themen

An Zellengröße anpassen in Verbundenen Zellen
Kai

Hallo
Ich habe folgendes Problem.
Ich habe die Zellen D12-G23 verbunden.
Darin soll ein längerer Text stehen, welcher mit sverweis geholt wird.
Wenn ich die Zelle mit Zeilenumbruch formatiere, dann ist der Text zu lang (unten fehlt was).
Wenn ich den Text mit "An Zellengröße...
18.08.2008 17:09:00
Thread-ID: 1002694
3 Beiträge
Anzeige
Bei Eintrag in Zelle Eintrag i. anderer Zelle prüf
Josef

Guten Morgen!
Wenn ich z. B. in der Spalte K ein Datum eintrage, soll in der Spalte N in der gleichen Zeile folgendes geprüft werden:
Ist ein Wert in der Spalte N vorhanden dann soll dieser gelöscht und die Zelle rot gefärbt werden.
Wenn ich jedoch ein Datum in der Spalte K lösche,...
26.08.2008 06:17:08
Thread-ID: 1004645
3 Beiträge
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Anzeige
Bild von Zelle in Zelle verlinken
Zelle

Hi Leute
Ich habe in Tabelle1 Zelle A1 einen Text, und danach habe ich in die Zelle ein Bild eingefügt
Nun möchte ich die gesamte Zelle A1 (Bild und Text) in Zelle Z17 haben.
Bei normalen Texten geht es ja mit =A1 (wenn ich in Zelle Z17 stehe)
Gibt es diesen Befehl auch für mein...
04.11.2008 16:19:07
Thread-ID: 1021687
4 Beiträge
Inhalt einer Zelle aufteilen in Zellen untereinand
thorsten

Hallo,
bitte schaut Euch mal die Liste an
https://www.herber.de/bbs/user/56516.xls
Es geht darum, dass in einer Zelle mehrere email Adressen angegeben sind - getrennt durch ein Semikolon.
Gibt es eine Möglichkeit diese untereinander darzustellen - je eine Adresse in einer zelle...
05.11.2008 12:35:00
Thread-ID: 1021856
4 Beiträge
mehreren Zellen in einer Zelle mit Absätzen
Christian

1. Ist es möglich, die markierten Zeilen von Screenshot 1 per Formel/Makro so zu übernehmen, das diese wie in Screenshot 2 übernommen werden? Solche Felder kommen aber öfters und auch mit einzelnen Zeilen dazwischen vor. Die Formatierung (bei Zahlen mit ,00 soll ein langer Strich stehen) sollte...
28.11.2008 15:53:49
Thread-ID: 1028725
3 Beiträge
mehrere Zellen in einer Zelle mit Absätzen II
Christian

Hi
Wir brauchen etwas ähnliches wie in diesem Script von Daniel (der uns schon sehr weitergeholfen hat!):
https://www.herber.de/bbs/user/57225.xls
Zeilen sollen zusammengefasst werden, wenn die Bezeichnung in Spalte A und B gleich sind (siehe Screenshots).
https://www.herber.de...
05.12.2008 15:47:00
Thread-ID: 1030485
7 Beiträge
Inhalt einer Zelle in anderer Zelle als Formel
Elias

Guten Morgen,
ich bin auf der Suche nach einer Lösung für folgenden Sachverhalt.
In einer Tabelle wird aus dem Inhalt verschiedener Zellen über Verketten eine Zeichenfolge gebildet, die in einer anderen Tabelle als Formel herhalten soll.
(Kurzes) Beispiel, das Original ist furchtbar...
11.01.2009 06:01:22
Thread-ID: 1038572
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
16
2
5
2
3
3
2
6
5
2
8
4
2
3
3
6
10
2
3
2
4
3
8
1