Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1052to1056
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
1052to1056
1052to1056
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen m. Zahlen finden u. mit Leerzeilen ersetzen

Zeilen m. Zahlen finden u. mit Leerzeilen ersetzen
26.02.2009 16:05:37
Till
Hallo Leute,
hab mal wieder ein (hoffentlich nicht zu kompliziertes) Problem.
In einer Datei gibt es Spalten mit Zahlen. D.h. hier kommen wirklich nur Zahlen vor, und interessieren einfach nicht.
Welches Makro kann man jetzt ablaufen lassen, um die Zellen zu finden wo "NUR Zahlen" enthalten sind und diese dann Löschen und mit Leerzeilen austauschen?
Gleichzeitig sollen die stets 6-stelligen Zahlen am rechten Rand noch per Makro eliminiert werden.
Hoffe, es gibt eine Lösung!
Hier mal zur Hilfe ein Screenshot der Datei (zur besseren Vorstellung)
Userbild
Die gelben Zahlen sollen als Leerzeilen erhalten bleiben und die roten Zahlen sollen weg!
Danke schon mal!
Gruß Till
P.S.: Hintergrund: ich versuche gerade selbst ein D83-Importprogramm für Ausschreibungstexte zu bauen, was aber gar nicht so einfach ist. Evtl. hat jemand aber auch ein D83-Import Makro....um nicht teure Software kaufen zu müssen ;-)

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen m. Zahlen finden u. mit Leerzeilen ersetzen
26.02.2009 16:35:08
Josef
Hallo Till,
lade doch ein Beispiel deienr Tabelle hoch.
Gruß Sepp

AW: Zeilen m. Zahlen finden u. mit Leerzeilen ersetzen
26.02.2009 17:18:20
Till
Hallo Leute,
vielen Dank für die vielen Lösungsansätze.
Ja die Tabelle ist eigentlich eine in Excel importierte d83 Datei, die es nun gilt auseinanderzuklamüsern.
Anbei die Datei und das Makro...was aber noch sehr anfänglich ist!
Makro:
https://www.herber.de/bbs/user/59817.xls
D83-Datei (bitte umnennen!):
https://www.herber.de/bbs/user/59818.xls
Bitte die D83-GAEB-Format- Datei beim Testen wieder zurück in .d83 verwandeln.
Danke!
Ansonsten klappt die Lösung von Udo für die Eliminierung der "Zahlen"-Zeilen schon mal!
Danke dafür!
Gruß Till
Anzeige
Zeilen m. Zahlen finden u. mit Leerzeilen ersetzen
26.02.2009 16:36:51
Uwe
Hi Till,
das Du VBA gut bist sollte:

Dim Zelle As Range
For Each Zelle In Range("A1:A100")
If IsNumeric(Zelle) Then Zelle.ClearContents
Next Zelle


kein Problem für Dich sein. Wo ist also das Problem dabei?
Zu den anderen Zahlen:
Aus Deinem Screenprint ist nicht ersichtlich wo diese Zahlen stehen. Sind das etwa verbundene Zellen? Dann wäre das mit right(...) zu lösen.
(Mit D38 kann ich garnichts anfangen, deshalb bleibt die Frage offen)
Gruß
Uwe
(:o)

AW: Zeilen m. Zahlen finden u. mit Leerzeilen ersetzen
26.02.2009 16:46:34
Tino
Hallo,
eine Beispieldatei wäre besser gewesen, damit hätte man testen können.
Eine Nachgebaute Version sieht bei mir so aus.
Teste mal, vielleicht funzt es ja.
Sub TestCode()
Dim Bereich As Range

Set Bereich = Tabelle1.UsedRange

'aus Deiner Grafik geht hervor, 
'dass zwischen Text und Zahlen mehr als 2 Leerzeichen sind 
Bereich.Replace "  ?*", "", xlPart, xlByRows, False, , False, False
'aus Deiner Grafik geht hervor, 
'dass sich die Zahlen in Spalte 1 befinden 
Bereich.Columns(1).SpecialCells(xlCellTypeConstants, 1).Value = ""

End Sub


Gruß Tino

Anzeige
besser so...
26.02.2009 16:59:48
Tino
Hallo,
eine überprüfung muss noch eingbaut werden,
sollte es in Spalte 1 keine Zahlen geben, kommt es zum Fehler.
Sub TestCode()
Dim Bereich As Range

Set Bereich = Tabelle1.UsedRange

'aus Deiner Grafik geht hervor, 
'dass zwischen Text und Zahlen mehr als 2 Leerzeichen sind 
Bereich.Replace "  ?*", "", xlPart, xlByRows, False, , False, False
'aus Deiner Grafik geht hervor, 
'dass sich die Zahlen in Spalte 1 befinden 
If Application.WorksheetFunction.Count(Bereich.Columns(1)) > 0 Then
 Bereich.Columns(1).SpecialCells(xlCellTypeConstants, 1).Value = ""
End If

End Sub


Gruß Tino

Anzeige

323 Forumthreads zu ähnlichen Themen

Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Anzeige
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
Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Anzeige
Mittelwertberechn. mit var. Spaltenlänge
Falk

Hallo,
Zur Situation
in einer Excelspalte (z.B. A) füge ich - aus einem anderen Programm - kopierte Zahlen ein. Excel schreibt die, in Spalte A, eingefügten Zahlen untereinander. In der Spalte B berechne ich dann den Mittelwert wie folgt: =SUMME(A2:A1872)/1871
Mein Problem
Weil...
15.09.2008 11:21:00
Thread-ID: 1009725
5 Beiträge
Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
Text verbinden und den Inhalt der Zelle ausgeben
Jörg

Hallo,
ich benötige etwas Hilfe, vermutlich für euch kein Problem:
in Zelle A1 möchte ich den Spaltenbuchstaben eintragen
in Zelle A2 möchte ich eine Zeilennummer eintragen
in Zelle A3 fehlt mir nun die Formel, mit der ich A1undA2 verbinden kann UND dann den Inhalt der Zelle aus...
19.09.2008 11:42:31
Thread-ID: 1010969
6 Beiträge
Spalte mit x = Wert möglich ?
Petra

Hallo
Ich möchte gerne wenn in Spalte B3 ein x eingetragen wird, das dann in Spalte B3 der Wert aus Spalte B1 eingetragen wird.
Ich weiß das es per Formel =Wenn(B3="x";B1;0) geht, aber dann müßten wir hier Behelfsspalten einbauen was nicht gewünscht wird.
Habe es per Bedingter Forma...
23.09.2008 15:34:17
Thread-ID: 1011775
21 Beiträge
In Textfile bestimmte Zeile suchen
Pascal

In einem Textfile soll nach einer bestimmten Zeile (immer der gleiche Text) gesucht werden.
Wird dieser Text gefunden, so soll alles vom Beginn weg des Textfiles bis und mit dieser Zeile (plus zusätzlich noch die nächste Zeile) gelöscht werden.
Geht das irgendwie ?
Wenn ja, wie ?
24.09.2008 16:14:00
Thread-ID: 1012111
8 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
8
5
4
2
4
4
2
5
20
7
3
10
3
1
4
6
6
12
11
2
3
6
4
5
4