Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1160to1164
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
1160to1164
1160to1164
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

letzte gefüllte Zelle mit Inhalt verschieben

letzte gefüllte Zelle mit Inhalt verschieben
Lemmi
https://www.herber.de/bbs/user/69909.xlsx
Hallo zusammen,
ich möchte die Inhalte ab C6 (Ausgangszustand) so ändern, dass der letzte Zelleninhalt der jeweiligen Zeile soweit nach hinten geschoben wird bis eine __geschlossene__ Spalte mit Text und Zahlen entsteht (Zielzustand ab C6). Es wird nur der letzte Zelleninhalt verschoben!
Leerzeilen finden natürlicherweise keine Berücksichtigung
(Makro 1)
Das zweite Marko soll diesen Ablauf in umgekehrte Reihenfolge durchführen und der --Zielzustand ab C6-- wird auf den __Ausgangszustand ab C6__ wieder zurück geführt!
Gruß
Lemmi
Ich freue mich schon auf Eure Unterstützung!
verstehe nix, Frage offen
05.06.2010 16:45:57
Tino
Hallo,
also ich versteh nur Bahnhof.
Soll Spalte C bis F Verkettet und in Spalte G ausgegeben werden?
Umgekehrt Spalte G aufteilen von C bis F, in jede Zelle ein Wert also Splitten.
Aus Deinem Beispiel geht dies irgendwie nicht hervor, im Zielzustand steht in G ein f dabei, dieses f kann ich nirgends finden?
Ich lass mal offen, vielleicht bin ich nur begriffsstutzig. ;-)
Gruß Tino
AW: letzte gefüllte Zelle mit Inhalt verschieben
05.06.2010 17:58:26
jowe
Hallo Lemmi,
Makro1: 
Private Sub aufraeumen()
For zeile = 7 To 21
For spalte = 6 To 3 Step -1
If Cells(zeile, 7)  "" Then Exit For
If Cells(zeile, spalte)  "" Then
Cells(zeile, 7) = Cells(zeile, spalte)
Cells(zeile, spalte).ClearContents
Exit For
End If
Next
Next
End Sub

Vor Makro1 mach einfach eine Kopie der Tabelle (kannst Du als Makro aufzeichnen).
Wenn Du dann wieder zurück willst, kopiere einfach den Inhalt aus der Sicherungskopie zurück
Gruß
Jochen
Anzeige
AW: letzte gefüllte Zelle mit Inhalt verschieben
05.06.2010 22:37:51
Lemmi
Hallo Jochen,
das Marko "aufräumen" funktioniert so wie ich es mir vorstelle!
Vielen Dank!
Könnte das Marko noch erweitert bzw. angepasst werden?
Das Makro ist mit den Spalten und Zeilen begrenzt!
Kannst Du alle festen Einstellungen variabel ausgestalten?
Ich habe Tabellen die mal 3 aber auch mal 30 Spaltenbreit ist!
.. und eine Tabelle die mal 10 aber auch mal 150 Zeilen hat!
(Durchführung ab C6)
Gruß
Lemmi
AW: letzte gefüllte Zelle mit Inhalt verschieben
06.06.2010 10:21:08
fcs
Hallo Lemmi,
funktioniert, wenn du Kriterien hast, wie die letzte Spalte/Zeile ermittelt werden kann.
Nachfolgende Beispiel - für die 1. Variante muss du ggf. die Nummer der Zeile/Spalte anpassen, in der die letzte Spalte/Zeile mit Daten ermittelt werden soll.
Gruß
Franz 
Private Sub aufraeumen()
Dim ZeileMax As Long, SpalteMax As Long
Dim Zeile As Long, Spalte As Long
With ActiveSheet
'Letzte Zeile Spalte 1
ZeileMax = .Cells(.Rows.Count, 1).End(xlUp).Row
'Letzte Spalte Zeile 1
SpalteMax = .Cells(1, .Columns.Count).End(xlToLeft).Column
End With
'oder
With ActiveSheet
'Zeile der letzten benutzten Zelle
ZeileMax = .Cells.SpecialCells(xlCellTypeLastCell).Row
'Spalte der letzten benutzten Zelle
SpalteMax = .Cells.SpecialCells(xlCellTypeLastCell).Column
End With
For Zeile = 7 To ZeileMax
For Spalte = SpalteMax - 1 To 3 Step -1
If Cells(Zeile, SpalteMax)  "" Then Exit For
If Cells(Zeile, Spalte)  "" Then
Cells(Zeile, SpalteMax) = Cells(Zeile, Spalte)
Cells(Zeile, Spalte).ClearContents
Exit For
End If
Next
Next
End Sub

Anzeige
AW: letzte gefüllte Zelle mit Inhalt verschieben
06.06.2010 19:19:05
jowe
Jep, genau so hätte ich es auch gemacht
Gruß
Jochen
AW: letzte gefüllte Zelle mit Inhalt verschieben
07.06.2010 21:32:16
Lemmi
Hallo Franz,
beide Marko' s funktionieen an der Beispeildatei! Vielen Dank!
Nun habe ich ein andere Beispieldatei zum Testen aufgebaut und muste feststellen, dass eine Tabelle und die Markos genau das tuen was Sie sollten. Die andere Tabelle hingegen nicht!.. obwohl fast der selbe Inhalt vorhanden ist!
Ich habe schon mehrer male die Tabelle neu aufgebaut, kann aber keinen Fehler finden!
Tabelle n.iO: Das Marko aufräumen schiebt die aufgeräumte Spalte eine Spalte weiter als" erlaubt" weg!
Alle Inhalte landen in H obwohl Sie in G abgesetzt werden müsten!
Tabelle i.O.: Das Makro aufräumen schiebt alles in Spalte G. alles ist so wie es sein sollte!
Marko Aufräumen_zurück arbeitet einwandfrei!
https://www.herber.de/bbs/user/69949.xlsm
Kannst Du nochmal nachsehen?
Gruß Lemmi
Anzeige
AW: letzte gefüllte Zelle mit Inhalt verschieben
08.06.2010 09:57:31
fcs
Hallo Lemmi,
habe hier kein Excel 2007 zur Verfügung.
Das Ergebnis kann von der Methode abhängen mit der du ZeileMax und SpalteMax berechnest.
Die 2. Methode (mit SpecialCells) berücksichtigt auch Zellen außerhalb des eigentlichen Wertebereichs, wenn diese Formatiert wurden oder wenn ein Wert eingetragen und dann wieder gelöscht wurde.
Hier alle Spalten rechts der Daten markieren und Löschen-Alles. Danach Datei speichern , schliessen und wieder öffnen. Dann sollte es funkionieren.
Falls die 1. Methode (mit End) verwendet wird, dann können scheinbar leere Zellen stören, die Leerzeichen oder Formeln enthalten.
Gruß
Franz
Anzeige
AW: letzte gefüllte Zelle mit Inhalt verschieben
08.06.2010 19:50:07
Lemmi
Hallo Franz,
vielen Dank für Dein Marko und Deine Analyse!
Ich werde erst ein mal ausgiebig testen!
Gruß
Lemmi
AW: letzte gefüllte Zelle mit Inhalt verschieben
06.06.2010 21:09:01
Lemmi
Hallo Fanz,
Hallo Jowe,
klappa alles prima! Vielen Dank!
Jetzt benötige ich nur noch das die verschobenen Zelleninhalte wieder zurück geschoben werden können!
Für meine Strukturtabellen benötige ich diesen Vorgang reversibel!
Soll dazu ggf. ein neues Thread geöffnet werden oder darf ich Euch noch einmal bemühen!
Vielen Dank, schon einmal im Voraus!
Lemmi
AW: letzte gefüllte Zelle mit Inhalt verschieben
07.06.2010 11:53:23
fcs
Hallo Lemmi,
hier die Umkehrung des Umsetzens des Inhalts in der letzten Spalte
Gruß
Franz 
Sub aufraeumen_rueckwaerts()
Dim ZeileMax As Long, SpalteMax As Long
Dim Spalte As Long, Zelle As Range
With ActiveSheet
'Letzte Zeile Spalte 1
ZeileMax = .Cells(.Rows.Count, 1).End(xlUp).Row
'Letzte Spalte Zeile 1
SpalteMax = .Cells(1, .Columns.Count).End(xlToLeft).Column
End With
'oder
With ActiveSheet
'Zeile der letzten benutzten Zelle
ZeileMax = .Cells.SpecialCells(xlCellTypeLastCell).Row
'Spalte der letzten benutzten Zelle
SpalteMax = .Cells.SpecialCells(xlCellTypeLastCell).Column
End With
For Zeile = 7 To ZeileMax
If IsEmpty(Cells(Zeile, SpalteMax - 1)) Then
Set Zelle = Cells(Zeile, SpalteMax).End(xlToLeft)
If Zelle.Column >= 3 Then
Zelle.Offset(0, 1).Value = Cells(Zeile, SpalteMax).Value
Else
Cells(Zeile, 3).Value = Cells(Zeile, SpalteMax).Value
End If
Cells(Zeile, SpalteMax).ClearContents
End If
Next
End Sub

Anzeige

320 Forumthreads zu ähnlichen Themen

Letzte beschriebene Zeile suchen
Thomas3

Guten Morgen zusammen,
ich muß aus über 1000 Listen Daten auslesen. Das ist kein Problem.
Jede Liste sollte so beschrieben werden, dass ab Zeile 13 bis je nach Eintragungen x-Zeile Spalte O gefüllt ist.
In der Spalte 1 ist in der Datenliste eine Formel hinterlegt, die sichtbar aut...
19.08.2008 08:29:00
Thread-ID: 1002780
10 Beiträge
Anzeige
Letzter Eintrag von Zeile in Spalte A übernehmen
Zeile

Guten Tag
Ich suche nach einer Formel, die mir den letzten eingetragenen Wert (Wert aus hinterster Spalte) von verschiedenen Zeilen jeweils in die gleiche Zeile in Spalte A einträgt.
Hat mir jemanden einen Tipp?
Danke, Peter
03.09.2008 12:58:17
Thread-ID: 1007081
3 Beiträge
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Anzeige
Letzte Zeile Finden und Daten einfügen
Eddie

Hallo @ all ...
Ich würde gerne in meinen aktiven Sheet die letzte Zeile Finden, wo etwas steht, und dann 5 Zeilen tiefer noch den Text 'ENDE' in der A'ten Spalte einfügen
Da mit den Suchen ist ja kein Problem, aber Ihn dann sagen das er 5 Zeilen runter gehen soll schon :-)
Sub su...
20.10.2008 15:28:24
Thread-ID: 1017698
2 Beiträge
VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
Erste und letzte Zelle finden
Frank

Guten morgen,
ich möchte die Zellen finden indem für Start die 06:00 und für Ende die 14:00 steht.
Beispiel:
In der Zelle A100 steht 06:00
In der Zelle A1000 steht 14:00
Wenn die Startzelle und die Endzelle gefunden wurden, dann möchte ich den Zellenbezug in G übernehme und...
18.11.2008 09:38:00
Thread-ID: 1025505
10 Beiträge
Werte in einer Spalte(5zeilig) suchen und löschen!
adrian

Hi,
kann mir jemand erklären warum das nicht funzt funktioniert?
liegt es daran, dass ich "SpalteR" als range deklariert habe, anstatt als string?
nur wie durchsuche ich dann den "string"?
Möchte nur folgendes:
Falls Werte in der Spalte (Bereich von nur 5 zeilen) sind, lösch...
24.11.2008 12:04:00
Thread-ID: 1027253
5 Beiträge
Letzte Zeile mit bestimmten Wert finden
Harald

Hallo und schönen Abend
Ich suche in einer Spalte die Zeile mit dem letzten Vorkommen eines bestimmten Wertes. Im Netz habe ich folgenden Code gefunden.
Sub suchen() Set Ws1 = Sheets("Dummy") Call Find_Last("9999999999.999") End Sub
Sub Find_Last(FindString As String) Dim Rng A...
07.12.2008 19:37:02
Thread-ID: 1030899
3 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
9
8
2
4
3
1
2
9
4
2
8
4
5
5
1
7
2
1
6
5
6
4
5
8
17