Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
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
912to916
912to916
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen mit Text löschen

Forumthread: Zellen mit Text löschen

Zellen mit Text löschen
11.10.2007 10:52:00
DieterG
Hallo zusammen,
wie kann ich per VBA in einen bestimmten Bereich "B106:I115" alle Zellen löschen in denen ein Text vorkommt?
Zahlen sollen erhalten bleiben und anschließend in Spalte B neben den Text in Spalte A auftauchen.
Danke für die Hilfe
Gruß Dieter

Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen mit Text löschen
11.10.2007 11:07:07
Tino
Hallo Dieter,
sollen die Zahlen die aus dem Text übrig bleiben in eine Zelle
zusammengefasst werden in den Bereich A106 bis A115?
Gruß
Tino

AW: Zellen mit Text löschen
11.10.2007 11:13:24
DieterG
Hallo Tino,
Am Ende soll in B106, B107, B108, B109, B110, B111, B112, B113, B114, B115 eine Zahl stehen!
Gruß Dieter

Anzeige
AW: Zellen mit Text löschen
11.10.2007 11:31:08
Tino
hallo,
geht es mit diesen Code?

Function Zahl(STR As Variant) As Variant
Dim leng As Variant, Zähler As Variant, Zahlen As Variant
leng = Len(STR)
For Zähler = 1 To leng
If Mid(STR, Zähler, 1) >= "0" And Mid(STR, Zähler, 1) 



Sub LöscheZelle()
Dim Bereich As Range, Zähler As Variant, Zahlen As Variant
For Each Bereich In Range("B106:I115") 'Bereich Zahlen mit Buchstaben
For Zähler = 1 To Len(Bereich)
If LCase(Mid(Bereich, Zähler, 1)) >= "a" And LCase(Mid(Bereich, Zähler, 1))


Gruß
Tino

Anzeige
AW: Zellen mit Text löschen
11.10.2007 11:51:18
DieterG
Hallo Tino,
das funktioniert schon ganz gut, aber die Zahlen werden in Spalte D und nicht in Spalte B angezeigt!
Gruß Dieter

AW: Zellen mit Text löschen
11.10.2007 12:05:00
Tino
Hallo,
aber Spalte D dürfte nicht sein, Ausgabe bei mir war immer Spalte A
den Ausgabebereich kannst du in "Cells(Bereich.Row, 2) = Zahlen" ändern.
1 = Spalte A
2 = Spalte B
3 = Spalte C
usw.
hier der Code hier mit Spalte B

Function Zahl(STR As Variant) As Variant
Dim leng As Variant, Zähler As Variant, Zahlen As Variant
leng = Len(STR)
For Zähler = 1 To leng
If Mid(STR, Zähler, 1) >= "0" And Mid(STR, Zähler, 1) 



Sub LöscheZelle()
Dim Bereich As Range, Zähler As Variant, Zahlen As Variant
For Each Bereich In Range("B106:I115") 'Aufgabenbereich
For Zähler = 1 To Len(Bereich)
If LCase(Mid(Bereich, Zähler, 1)) >= "a" And LCase(Mid(Bereich, Zähler, 1))


Gruß
Tino

Anzeige
AW: Zellen mit Text löschen
11.10.2007 12:29:27
DieterG
Hallo Tino,
sorry, ich glaube ich hab mein Problem nicht optimal beschrieben.
Deshalb versuche ich jetzt ein Beispiel hochzuladen!
https://www.herber.de/bbs/user/46683.xls
Gruß Dieter

AW: Zellen mit Text löschen
11.10.2007 13:07:00
Tino
Hallo,
ja dachte auch es sind gemischte Zellen.
So ist es auch etwas einfacher.
https://www.herber.de/bbs/user/46686.xls
Gruss
Tino

Anzeige
AW: Zellen mit Text löschen
11.10.2007 14:03:00
DieterG
Hallo Tino,
das klappt leider immer noch nicht, der Text wird zwar gelöscht, aber die Zahlen landen nicht in Spalte B wie in meinen Beispiel "A15:B24".
Ich glaube anstatt nur den Text in den Zellen zu entfernen, müssten die Zellen komplett gelöscht werden,
dann rutschen die Zellen mit "Zahlen" automatisch nach links in die Spalte B!?
Gruß Dieter

Anzeige
AW: Zellen mit Text löschen
11.10.2007 17:43:00
DieterG
Hallo Tino,
genau so hab ich mir das gedacht!!
Danke nochmal für Deine Mühe
Gruß Dieter

AW: warum so umständlich ?
11.10.2007 22:18:30
Daniel
Hi
probier mal diesen Code hier, eine Zeile reicht, um das Problem zu lösen:

range("B106:I115").specialcells(xlcelltypeconstants, 2).delete shift:=xltoleft


du kannst es auch von Hand ohne Makro genaus machen:
- Bereich markieren
- BEARBEITEN - GEHE ZU - INHALTE - KONSTANTEN - TEXTE anklicken
- BEARBEITEN -ZELLEN LÖSCHEN - NACH LINKS klicken
Gruß, Daniel

Anzeige
;

Forumthreads zu verwandten Themen

Auswählen einer Zelle sofort mit X kennzeichnen.
Richard

Hallo,
ich habe folgenden Code geschrieben: Wenn ich Zelle A1 auswähle, dann soll er dort ein X reinsetzten, steht da schon ein X dann soll er es wieder rausnehmen.
Jetzt kommt 'ne ganz blöde Frage: Wie definiere ich einen ganzen Bereich indem er das machen soll? Zum Beispiel A1:B100. S...
22.08.2008 15:12:33
Thread-ID: 1003911
3 Beiträge
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
Zellen mit Text zählen
ric

Hallo,
ich habe Zellen, die Text enthalten und Zellen, welche eine Zahl enthalten. Wie kann ich die Anzahl der Zellen ermitteln, die nur Text enthalten.
Danke
25.11.2008 15:18:00
Thread-ID: 1027745
3 Beiträge
ADO in Excel mit Query nach Zellen
Gonzer

Hallo zusammen,
ich habe folgendes Makro gefunden und soweit abgewandelt:
Option Explicit
Public Sub data_import() ' author Dim oAdoConnection As Object, oAdoRecordset As Object Dim sAdoConnectString As String, sPfad As String Dim sQuery As String Dim oZielStartRange As Range On...
16.03.2009 19:11:19
Thread-ID: 1060893
3 Beiträge
Lange Matrixformel mittels VBA in Zelle eintragen
hoffi

Hallo zusammen,
auch nach einer längeren Internetrecherche konnte ich folgendes Problem leider nicht lösen.
Ich möchte in Excel 2003 mittels VBA eine Matrixformel in eine Zelle schreiben lassen. Der Programmiercode sieht vereinfacht so aus:
A = "=sum(if(XXX,YYY,ZZZ))"
Cells(1,1)...
25.03.2009 13:09:25
Thread-ID: 1063729
5 Beiträge
Letzte Zelle mit konstantem Wert in Excel
Daniel

Hallo zusammen,
mit welchem VBA-Befehl komme ich an die letzte Zeile mit einem konstantem Wert (KEINE Formel!!) in einem Excel-Blatt? (Mit Cells(Rows.Count,1).End(xlUp).Row bekomme ich ja die letzte Zeile mit einer Formel zurückgeliefert)
Vielen Dank für eine Antwort!
04.05.2009 14:37:38
Thread-ID: 1072763
18 Beiträge
Matrix (mit leeren zellen) in Liste umwandeln
Wolfango

Hallo nochmal,
(diese Frage knüpft an die vorhin gestellte Frage an; nur diesmal mit einem anderen Ansatz)
Wie kann ich die in der angehängten Matrix (noch) vorhandenen Werte, über Formeln sauber in einer Liste (Spalte) zusammenführen?
Die Datei https://www.herber.de/bbs/user/61614...
05.05.2009 11:55:18
Thread-ID: 1073036
5 Beiträge
Nur Zellen mit Text kopieren
Peter

Hallo
ich bin gerade dabei eine Excel Tabelle zu bearbeiten und haben ein Auswahltabellenblatt wo ich über
Kontrollkästchen verschiedene Options auswählen kann, bzw noch die Anzahl angeben kann.
In einen Datentabellenblatt werden mir untereinander die Daten ausgegeben.
Das heißt...
15.06.2009 12:58:41
Thread-ID: 1081552
21 Beiträge
Zellen mit Farbe füllen
Karsten

Hallo,
ich möchte, wenn in der aktiven Zelle "Montag" steht, dass sie und die linken 11 Zellen sich mit Farbe 38 füllen. Steht Dienstag, dann dasselbe, nur mi Farbe 8.
Kann mir da jemand mit dem richtigen Befehl weiterhelfen?
Gruß
Karsten
25.07.2009 15:05:43
Thread-ID: 1091238
18 Beiträge
Zellen mit Textfarbe zählen?
dieter(drummer)

Excel/VBA SoLaLa
Hi Exel/VBA Profis,
Ausgangspunkt: In den Zellen B3 bis U22 sind Buchstaben (immer nur 1 Buchstabe je Zelle!). Einige davon werden manuell auf Schriftfarbe ROT gesetzt.
Mein Problem: Wie erhalte ich die Summe der Zellen (Anzahl) im Bereich B3 bis U22 der aktiven Ta...
16.09.2009 17:12:59
Thread-ID: 1103294
8 Beiträge
Text mit Zahl in neue Zelle auslesen
Lemmi

Hallo zusammen,
ich habe einen Text ais einer Datenbank den ich Teilweise auslesen möchte.
z. B. Text
A) in A1 : Büro ABC Hamburg 1256 zu Hause
B) in A2 : Büro Berlin 12345 in Straße XXX
Nun möchte ich das Wort Hamburg in B1 auslesen! soweit hat man mir bereits vor...
16.09.2009 21:47:50
Thread-ID: 1103375
17 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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