Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1344to1348
1344to1348
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellinhalte löschen wenn in Spalte Text

Forumthread: Zellinhalte löschen wenn in Spalte Text

Zellinhalte löschen wenn in Spalte Text
13.01.2014 11:27:22
Daniel
Hallo,
ich habe eine Liste mit Formeln, die aus unterschiedlichen Tabellenblättern eine Liste generiert. Diese Liste umfasst ca. 10.000 Zeilen.
Ich habe nun die Problematik, dass Texte in Beschriftungen in Zellen zu lang sind und aufgrund von Formeln in der Zelle rechts daneben umgebrochen werden müssen, damit der Text vollständig angezeigt wird.
Hier ein Beispiel: https://www.herber.de/bbs/user/88781.xlsx
A1 bis E6 zeigt den aktuellen Stand.
H8 bis L13 zeigt das Ziel.
Erster Lösungsansatz ist ein Makro, dem ich sagen kann:
Wenn in Spalte XY (Variabel) Text,
von Zeile XY(Variabel) bis Zeile YY(Variabel)
dann lösche in XY Spalten rechts daneben (Anzahl Variabel)den Zelleninhalt.
Falls noch andere Ideen vorhanden sind gerne willkommen.
Besten Dank
Daniel

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellinhalte löschen wenn in Spalte Text
13.01.2014 14:06:31
Rudi
Hallo,
als Ansatz: 
Sub aaa()
Dim lLast As Long, lRow As Long, lCol As Long
lLast = Cells.Find("*", [A1], , , , xlPrevious).Row
Application.ScreenUpdating = False
For lRow = 1 To lLast
For lCol = Cells(lRow, Columns.Count).End(xlToLeft).Column To 1 Step -1
If Not Cells(lRow, lCol).HasFormula Then
Range(Cells(lRow, lCol + 1), Cells(lRow, Columns.Count)).Clear
Exit For
End If
Next
Next
Cells.WrapText = False
End Sub

Gruß
Rudi

Anzeige
AW: Zellinhalte löschen wenn in Spalte Text
13.01.2014 14:14:00
Daniel
Hallo Rudi,
danke das du dich der Sache angenommen hast, wärst du so nett und gibst mir noch die Unterstützung, wo ich
a) die Spalte eintragen kann, in der Text steht und auf diese Zeile sich es bezieht
b) die Zeilen von bis eintragen kann, in denen das Makro arbeiten soll
c) die Anzahl der Zellen rechts neben dem Text bzw. die Anzahl spalten
Bin leider kein guter VBA Kenner wie du merkst :)
Schöne Grüsse
Daniel

Anzeige
AW: Zellinhalte löschen wenn in Spalte Text
13.01.2014 14:24:07
fcs
Hallo Daniel,
hier ein Ansatz für ein Makro, wie man es umsetzen könnte.
Die variablen Werte werden via Zellauswahl in Inputboxen ausgewählt oder vom Makro berechnet.
Das Makro fügst du in einem allgemeinen Modul der Datei mit den Formeln ein oder in deiner persönlichem Makroarbeitsmappe.
Gruß
Franz 
Sub Aufbereiten_Zellen_mit_Text()
Dim wks As Worksheet
Dim lngZeile As Long, lngZeile_L
Dim lngSpalte As Long, lngSpalte_L As Long
Dim varEingabe As Range
On Error GoTo Fehler
Set wks = ActiveSheet
'Auswahl der 1. zu prüfenden Zelle
Set varEingabe = Application.InputBox( _
"Bitte 1. Zelle auswählen, die geprüft werden soll", _
Title:="Aufbereiten Zeilen mit Text", _
Default:=ActiveCell.Address, Type:=8)
lngSpalte = varEingabe.Column 'Spalte die geprüft werden soll
lngZeile1 = varEingabe.Row    'Zeile ab der geprüft werden soll
'Auswahl der Spalte bis zu der gelöscht werden soll
Auswahl_Spalte_L:
Set varEingabe = Application.InputBox( _
"Bitte Zelle in Spalte auswählen bis zu der gelöscht werden soll", _
Title:="Aufbereiten Zeilen mit Text", _
Default:=varEingabe.Offset(0, 1).Address, Type:=8)
lngSpalte_L = varEingabe.Column
If lngSpalte_L  "" Then
.Range(.Cells(lngZeile, lngSpalte + 1), _
.Cells(lngZeile, lngSpalte_L)).ClearContents
End If
Next
'Zellen im Prüfbereich ohne Zeilenumbruch formatieren
With .Range(.Cells(lngZeile1, lngSpalte), .Cells(lngZeile_L, lngSpalte))
.WrapText = False
End With
End With
Application.ScreenUpdating = True
Fehler:
With Err
Select Case .Number
Case 0
'Alles OK
Case 424
'Zellauswahl wurde abgebrochen
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
End Sub

Anzeige
AW: Zellinhalte löschen wenn in Spalte Text
14.01.2014 09:54:48
Daniel
Hallo Franz,
funktioniert soweit schonmal gut, nun noch ein paar kleine Feintunings bitte:
1.
Ich gebe in der Inputbox die letzte Zelle (Zeile, Spalte) an, bis zu der gelöscht werden soll. Das Makro löscht aber auch in den weiteren Zeilen die Formeln.
...Ziel: Das Makro sollte in der Zeile, die in der Inputbox genannt ist, aufhören und in den Folgezeilen keine Formeln mehr löschen.
2.
Es scheint als ob das Arbeitsblatt danach geschützt ist, jedenfalls gibt mir Excel die Rückmeldung bei der "ERsetzen-Funktion", dass dies nicht funktioniert aus diesem Grund.
...Lässt sich dies umgehen, dass das Arbeitsblatt nicht geschützt ist nach Ausführen des Makros?
Besten dank.
VG, Daniel

Anzeige
AW: Zellinhalte löschen wenn in Spalte Text
14.01.2014 12:11:52
fcs
Hallo Daniel,
Frage 1:
Da muss dann die letzte Zeile auch aus der gewählten Zelle ermittelt werden.
Ich hab das Makro in diese Richtung angepasst.
Frage 2:
Das Makro ändert nichts an den Einstellungen für den Blattschutz
Da muss etwas anderes die Ursache sein.
Gruß
Franz
Sub Aufbereiten_Zellen_mit_Text()
Dim wks As Worksheet
Dim lngZeile As Long, lngZeile_L
Dim lngSpalte As Long, lngSpalte_L As Long
Dim varEingabe As Range
On Error GoTo Fehler
Set wks = ActiveSheet
'Auswahl der 1. zu prüfenden Zelle
Set varEingabe = Application.InputBox( _
"Bitte 1. Zelle auswählen, die geprüft werden soll", _
Title:="Aufbereiten Zeilen mit Text", _
Default:=ActiveCell.Address, Type:=8)
lngSpalte = varEingabe.Column 'Spalte die geprüft werden soll
lngzeile1 = varEingabe.Row    'Zeile ab der geprüft werden soll
'Auswahl der Spalte/Zeile bis zu der gelöscht werden soll
Auswahl_Spalte_L:
Set varEingabe = Application.InputBox( _
"Bitte Zelle in Spalte auswählen bis zu der gelöscht werden soll", _
Title:="Aufbereiten Zeilen mit Text", _
Default:=varEingabe.Offset(0, 1).Address, Type:=8)
lngSpalte_L = varEingabe.Column
lngZeile_L = varEingabe.Row
If lngSpalte_L  "" Then
.Range(.Cells(lngZeile, lngSpalte + 1), _
.Cells(lngZeile, lngSpalte_L)).ClearContents
End If
Next
'Zellen im Prüfbereich ohne Zeilenumbruch formatieren
With .Range(.Cells(lngzeile1, lngSpalte), .Cells(lngZeile_L, lngSpalte))
.WrapText = False
End With
End With
Application.ScreenUpdating = True
Fehler:
With Err
Select Case .Number
Case 0
'Alles OK
Case 424
'Zellauswahl wurde abgebrochen
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
End Sub

Anzeige
AW: Zellinhalte löschen wenn in Spalte Text
14.01.2014 12:39:31
Daniel
Funktioniert, Danke fürs Anpassen.
Netten Tag noch.
VG, Daniel
;

Forumthreads zu verwandten Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Letzen wert in Zeile(nicht Spalte)
hary

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...
28.08.2008 21:25:00
Thread-ID: 1005592
5 Beiträge
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Anzeige
Wenn Wert weniger, in anderer Zelle um d.Wert erh.
Josef

Guten Morgen!
Ich habe z.B. in der Zelle A1 den Wert 5 stehen. Wird dieser Wert z.B. um die Zahl 3 verringert, dann soll der vorhandene Wert in der Zelle B1 um die Zahl 3 erhöht werden. Wie würde hier bitte eine Formellösung dafür lauten?
Danke
Josef
09.09.2008 05:49:00
Thread-ID: 1008272
2 Beiträge
Anzeige
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
Werte löschen beim Eintrag in andere Spalte ?
Selma

Hallo Leute,
wie kann ich folgendes ab Zeile 5 für aktive Zeile über VBA erreichen:
1. Wird der Wert in aktive Zeile in Spalte H eingetragen, dann sollen die Werte in Zellen der Spalte D und E gelöscht werden.
2. Wird der Wert in aktive Zeile in Splate D oder E eingetragen, dann sol...
12.10.2008 17:05:00
Thread-ID: 1015877
5 Beiträge
Anzeige
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Wenn Eintrag in ListBoxspalte dann Eintrag in lbl
Josef

Guten Morgen!
In eine mehrspaltige ListBox werden eine Menge Datensätze eingelesen.
Ich möchte nun folgendes erreichen:
Wenn ich einen Datensatz in der ListBox markiere oder anklicke und wenn jetzt z.B. in der 2.Spalte in der ListBox ein "J" steht, dann soll ein vordefinierter Text...
29.10.2008 07:57:42
Thread-ID: 1020127
3 Beiträge
Wenn in Spalte C etwas steht loesche mir die ZEILE
maxx_1985

Guten Morgen zusammen,
meine kleine Frage. :-) Excel soll das folgende tun:
Gehe die ganze Spalte I durch. Wenn du da irgendwas findest (Datum), dann loesche bitte die betroffene ZEILE.
Das waere Spitze, wenn das ginge. :-) Muss dazu sagen, dass englisches Excel habe. Macht das e...
10.11.2008 15:45:00
Thread-ID: 1023237
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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