Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 14:03:38
Http-Request (POST) für GraphQL API-Abfrage
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1204to1208
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
1204to1208
1204to1208
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Löschen der Zellen zwischen erster & letzter Zelle

Löschen der Zellen zwischen erster & letzter Zelle
F.
Hallo,
eine Kollegin von mir hat folgendes Problem, bei dem ich ihr nicht helfen kann:
Ihr Dokument besteht aus 10000+ Zeilen und jede Zeile enthält 1 oder 2 nichtleere Zellen. Diese verteilen sich auf die Spalten von A bis circa BT.
Nun möchte Sie, dass jede Zeile durchlaufen wird. Dabei sollen die Zellen ab der ersten nichtleeren Zelle bis zur letzten nichtleeren bzw. der zweiten Zelle gelöscht werden. Besonders dabei ist, am Ende soll der zweite Wert genau an die Stelle des ersten Wertes rücken. Dies ist ihr sehr wichtig.
Wenn nur eine nichtleere Zelle in der Zeile steht, soll diese natürlich übersprungen werden.
Meine Kenntnisse übersteigt das, weiß jemand Rat? Oder einen Link wo ich mich selbst da ranarbeiten kann?
Beste Grüße F.
AW: Löschen der Zellen zwischen erster & letzter Zelle
08.03.2011 14:43:50
mpb
Hallo,
kannst Du eine Beispieldatei mit "vorher" und gewünschten "nachher" hochladen? Oder ein konkretes Beispiel beschreiben.
Gruß
Martin
OT freut mich daß ich nicht der einzige...
08.03.2011 14:51:58
Reinhard
...Nichtversteher bin :-))
Hallo martin,
sowas beruhigt ungemein mein Ego oder was das ist *gg*
Gruß
Reinhard
AW: Löschen der Zellen zwischen erster & letzter Zelle
08.03.2011 14:49:40
Reinhard
Hallo F.,
circa BT? Kommt rechts von BT noch Inhalt der nicht beachtet, also so bleiben soll?
Oder "enden" die zeilen mal bei BT oder halt kürzer, länger?
Kann man die Anfrage so formulieren als Pseudocode,
Durchlaufe alle Zeilen.
ist keine oder nur eine leere Zelle im befüllten Zellbereich so mache nix.
Ansonsten schließe alle "Lücken" in der zeile durch Aufrückung von Zellinhalten nach links.
?
Gruß
Reinhard
Anzeige
AW: Löschen der Zellen zwischen erster & letzter Zelle
08.03.2011 14:57:53
F.
Hallo mpb,
danke für deine Antwort, hier ist das Beispiel:
https://www.herber.de/bbs/user/73889.xls
Hallo Reinhard,
auch danke für deine Antwort:
Rechts von BT kommen in keiner Zeile mehr Werte, ist der Rand der Tabelle.
Zu deinem Formulierungsvorschlag: In meinem obenstehenden Bspl wird es denk ich klarer. Gegeben der Fall die Zeile enthält 2 nicht-leere Zellen, sollen die Zellen zwischen diesen beiden Zellen gelöscht werden und die zweite Zelle an die Stelle der ersten Zelle rücken.
AW: Löschen der Zellen zwischen erster & letzter Zelle
08.03.2011 15:11:23
Reinhard
Hallo F.,
ist das IMMER so, daß da nur 1 oder zwei Werte in einer Zeile stehen?
Gruß
Reinhard
Anzeige
AW: Löschen der Zellen zwischen erster & letzter Zelle
08.03.2011 15:17:15
F.
Hallo Reinhard,
ja, daß ist IMMER so. :)
AW: Löschen der Zellen zwischen erster & letzter Zelle
08.03.2011 15:37:08
Reinhard
Hallo Frederike :-), 
Option Explicit
Sub Komprimieren()
Dim Zei As Long, Erste As Range, Zweite As Range
Application.ScreenUpdating = False
With Worksheets("Tabelle2")   'Anpassen
For Zei = 1 To .UsedRange.SpecialCells(xlCellTypeLastCell).Row
Select Case Application.CountBlank(.Rows(Zei))
Case .Columns.Count
'nix
Case .Columns.Count - 1
'nix
Case .Columns.Count - 2
Set Erste = Rows(Zei).Find("*")
Set Zweite = Rows(Zei).FindNext(Erste)
Erste.Value = Zweite.Value
Zweite.ClearContents
Case Else
MsgBox "F. hat gelogen :-)"
End Select
Next Zei
End With
Application.ScreenUpdating = True
End Sub

Gruß
Reinhard
Anzeige
AW: Löschen der Zellen zwischen erster & letzter Zelle
08.03.2011 15:31:08
mpb
Hallo,
Sub Zusammenfassen()
Application.ScreenUpdating = False
z = Cells.SpecialCells(xlCellTypeLastCell).Row
For i = 4 To z
Set rg = Range(Cells(i, 2), Cells(i, 13))
If Application.WorksheetFunction.CountA(rg) = 2 Then
Rows(i).SpecialCells(xlCellTypeConstants, 23).Cells(1, 1) = Rows(i).SpecialCells( _
xlCellTypeConstants, 23).End(xlToRight)
Rows(i).SpecialCells(xlCellTypeConstants, 23).End(xlToRight).Clear
End If
Next i
Application.ScreenUpdating = True
End Sub
Startzeile ist auf 4 gesetzt, ggf. noch anpassen.
Gruß
Martin
AW: ups ...
08.03.2011 15:33:30
mpb
... da ist noch etwas aus meinen Tests stehen geblieben. Statt
Cells(i, 13)
Cells(i, 72)
Gruß
Martin
Anzeige
AW: ups ...
08.03.2011 17:34:15
F.
Hallo,
die Lösung funktioniert sehr gut. Das mit Cells(i, 72) hatte ich mir gedacht. ;)
Vielen Dank!

300 Forumthreads zu ähnlichen Themen

zählenwenn nur auf Teil einer Zelle basierend?
Sascha

Hallöchen,
folgendes Problem,
ich habe eine Artikelerfolgsauflistung (Alpha-Numerisch gefüllte Zellen) über den Bereich Tabelle3!A2-G99.
Über eine Lagerbestandsliste in Tabelle1!B2-B99, die ich per copy/paste täglich aktualisieren kann zählt mir das Programm automatisch die Menge, i...
13.11.2008 12:08:25
Thread-ID: 1024134
10 Beiträge
Anzeige
Teile einer Zelle tiefstellen
Larass

Moins!
ich würde gerne Teile einer Zelle tiefgestellt haben, finde aber keine Einstellung dazu.
Bisher bekomme ich das nur hin, indem ich den Text so wie er sein soll von Word aus in die Zelle kopiere.
Geht das nicht auch einfacher?
Gruß, Lars
15.12.2008 09:54:08
Thread-ID: 1032941
6 Beiträge
Ausgabe der ersten 4 Zeichen aus anderer Zelle
Eddie

Mahlzeit an alle,
habe wohl ne ganz einfache Sache .. ich suche ne kleine Formel, womit ich in A1 die ersten 4 Zeichen in der Zelle B1 wieder anzeige, also kopiert wird
Danke und gruß Eddie
05.01.2009 14:39:00
Thread-ID: 1036984
4 Beiträge
Anzeige
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Zugriff auf auf Teilinhalte einer Zelle
Der

Hallo da Draußen!
Habe mal wieder ein Problem mit meiner VBA Programmierung. Ich möchte innerhalb einer Exceltabelle auf einzelne Zellen zugreifen, die ein bestimmtes Merkmal haben. Der Inhalt der Zelle beginnt mit einer Zahl (in diesem fall mit einer Postleitzahl). Ich möchte also meine Ab...
20.03.2009 14:52:09
Thread-ID: 1062230
5 Beiträge
Teil einer Formel in Zelle einlesen
Bernd

Hallo Freaks,
ich bastle nun schon geraume Zeit an einem Code, der mir in eine Zelle den Teil einer Formel (Kostenstellennamen) aus einer anderen Zelle schreibt.
Der nachstehene Code (von einem ausgeschiedenen Kollegen) ersetzt einen KST-Namen in einem Link mit einem neuen KST-Namen aus...
13.04.2009 12:55:24
Thread-ID: 1068432
6 Beiträge
Formel zum entfernen von Leerzeichen
Leerzeichen

Hallo zusammen,
ich habe folgendes Problem und es wäre toll wenn mir jemand helfen könnte:
Ich habe in Spalte C2 mehrere Werte (z.B. 3; 4; 5) die durch ";" getrennt sind. Zwischen dem ";" und den Werten ist jeweils ein Leerzeichen.
Nun hätte ich gerne in C3 die selben Werte, ebenfa...
16.04.2009 09:58:49
Thread-ID: 1068995
5 Beiträge
Die ersten 2 Zeichen entfernen
MikeM

Hallo,
ich suche nach einer Möglichkeit per FORMEL die ersten 2 Zeichen eines Textes zu löschen.
Z.B.:
ABCDE soll werden: CDE
ABCD soll werden: CD
Text in Spalten ist klar, will das aber per Formel machen.
Und um das ganze noch einfacher zu machen: Die ersten beiden Z...
20.04.2009 08:53:00
Thread-ID: 1069716
7 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
3
5
3
4
7
4
5
4
6
1
2
3
4
2
9
7
5
4
4
4
2
5
6
5