Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1552to1556
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
1552to1556
1552to1556
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Löschen von Werten per Formel

Löschen von Werten per Formel
13.04.2017 11:33:35
Werten
Hallo,
ich habe einen Tabelle mit Eintrag in Spalte a1 bspw:
249-251,828-829-844,828-829-883,1659,1670-1684-1808,828-829-883,1957-1941-1932
Übrig bleiben sollen kommagetrennt nur noch Werte, die nicht mit 828 anfangen:
Also:
249-251,1659,1670-1684-1808,1957-1941-1932
Ist das irgendwie per Formel möglich?
Danke und Grüße
Stefan

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Löschen von Werten per Formel
13.04.2017 12:14:49
Werten
Hallo Stefan,
probiers mal damit: 
Sub Wandel()
Dim ls As Double
Dim i As Integer
Dim Wert As Double
ls = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To ls
If IsEmpty(Cells(1, i)) Then
Else
Wert = Left(Cells(1, i).Value, 3)
If Wert = 828 Then
Range(Cells(1, i), Cells(1, i)).Select
Selection.Delete
i = i - 1
End If
End If
Next i
End Sub
Gruß Jonas
VERBESSERTE VERSION
13.04.2017 12:23:17
Jonas
Hier noch mal eine verbesserte Version um Fehlern vorzubeugen. 
Sub Wandel()
Dim ls As Double
Dim i As Integer
Dim Wert As Double
ls = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To ls
If IsEmpty(Cells(1, i)) Then
If IsEmpty(Cells(1, i + 1)) Then
Else
Range(Cells(1, i), Cells(1, i)).Select
Selection.Delete Shift:=xlToLeft
End If
Else
Wert = Left(Cells(1, i).Value, 3)
If Wert = 828 Then
Range(Cells(1, i), Cells(1, i)).Select
Selection.Delete Shift:=xlToLeft
i = i - 1
End If
End If
Next i
End Sub

Anzeige
AW: VERBESSERTE VERSION
13.04.2017 15:37:29
Stefan
Hi,
erst einmal vielen Dank!
Bei mir stopptr das mit dem HinweiS
LAUFZEITFEHLER, 13
Typen unverträglich
Wenn ich auf Debuggen gehe, wird die Zeile
Wert = Left(Cells(1, i).Value, 3)
markiert.
Ich hänge mal mein Dokument an.
https://www.herber.de/bbs/user/112861.xlsx
Vielen Dank nochmals für Dein eHilfe.
Grüße
Stefan
AW: VERBESSERTE VERSION
13.04.2017 15:52:09
Jonas
Hallo Stefan,
das liegt vermutlich daran das die Werte alle in einer Zelle stehen.
Das tut mir leid das habe ich überlesen.
Ich bin davon ausgegangen das das die Werte in einzelnen Zellen stehen.
Gibt jetzt zwei Möglichkeiten:
1. Du importierst die kommagetrennten aus einer .csv dann sieht Excel das als Zellenbegrenzung und liest das in einzelne Zellen. Dann lässt du die Makro laufen und dann exportierst du das ganze wieder und sagst das es kommagetrennt exportiert werden soll.
2. Ich schreib nen anderen Code :) (Ist denk ich einfacher)
Und Entschuldige das ich das falsch verstanden habe.
Gruß Jonas
Anzeige
AW: VERBESSERTE VERSION
13.04.2017 16:25:09
Jonas
Ok nimm am besten den Code von Hansueli
der ist um Längen besser ;)
AW: Löschen von Werten per Formel
13.04.2017 16:01:59
Werten
Hallo Stefan,
Ich glaub nicht mit einer einfachen Formel. Ev. mit einem Formelmonster.
Einfacher wäre hier eine UDF, diesen Code in ein Modul 
Function RemoveBeginn(Bezug As Range, NichtBeginnendMit As String) As Variant
Dim tmp, Lx As Long, outputText As Variant
tmp = Split(Bezug, ",")
For Lx = LBound(tmp) To UBound(tmp)
If Not Left(tmp(Lx), Len(NichtBeginnendMit)) = NichtBeginnendMit Then
outputText = outputText & tmp(Lx) & ","
End If
Next Lx
RemoveBeginn = Left(outputText, Len(outputText) - 1)
End Function

Dann mit der Formel (ab A2) =RemoveBeginn(A2;828) und runterkopieren.
Gruess Hansueli
Anzeige
AW: Löschen von Werten per Formel
13.04.2017 16:35:36
Werten
Dankeschön! Ich teste das mal!
Euch allen ein schönes Osterfest!
Stefan

102 Forumthreads zu ähnlichen Themen

Doppelte Zahlwerte löschen
Gregor

Hallo zusammen
In Spalte E habe ich folgende möglichze Zahlen:
1114539.4
1114539
1114539.4-2
1114539.1
1114539.3
1114539.3-1
Nun möchte ich die Zeile mit der Zahl 1114539 löschen. Das heisst, bei mehrfach gleichen Zahlen vor dem Punkt soll immer die Zahl ohne Pun...
17.06.2009 10:22:49
Thread-ID: 1082148
3 Beiträge
Anzeige
Doppelte Zelleneinträge dann ZEILE löschen
Wolle

Hallo alle zusammen,
habe noch ein Problem:
Wenn Zelleneinträge doppelt vorhanden sind, soll der doppelte eintrag gelöscht werden, wenn diese direkt untereinander stehen.
Bereich: B:B
Beispiel:
B1 = 100
B2 = 500 ..... bleibt stehen
B3 = 500 ..... ZEILE löschen
08.07.2009 12:32:46
Thread-ID: 1087167
5 Beiträge
Doppelte Einträge filtern
Rüdiger

Hallo zusammen!
Ich habe einen Datenbereich
Hier ein verkürztes Beispiel (A1-D100): Aufgebaut mit A1=Name, B1= Vorname, C1 = Straße, D1 = Wohnort)
Nun gibt es doppelte Datensätze. Ich möchte nun, dass ein neues Registerblatt erstellt wird in der Arbeitsmappe und dort die „gefiltert...
12.11.2009 13:12:54
Thread-ID: 1116509
5 Beiträge
Anzeige
VBA Schleife - elimieren von doppelten Werten
doppelten

Hallo Forum,
ich möchte doppelte Werte (siehe Anhang) aus Spalte A inhaltlich löschen (sind vorher sortiert).
Leider funktioniert meine Schleife nicht.
Kann mir jemand helfen?
Vielen Dank im voraus.
https://www.herber.de/bbs/user/68477.xls
Grüße
Karen
09.03.2010 11:06:49
Thread-ID: 1144532
9 Beiträge
Doppelte Einträge summieren + löschen
ben

Hallo zusammen,
ich habe eine Excel Liste mit versch. Einträgen, bei denen in der Spalte C (ID Nummer) einige Einträge doppelt sind. Diese doppelten Einträge werden per VBA Code gelöscht.
Jetzt sollen aber die Mengen in Spalte E der gelöschten Einträge aufsummiert werden.
Bsp.: alle...
12.04.2010 21:02:46
Thread-ID: 1151310
14 Beiträge
Doppelte Zellen löschen
Claudia

Hallo zusammen,
ich habe ein großes Problem. Genauer gesagt habe ich eine Tabelle, in der sich die Überschriften in Zeile 1 befinden. In Spalte A befinden sich ab Zeile 2 die Kundennummern.
Ab Spalte B bis AZ befinden sich Artikel - darunter auch viele, die mehrfach vorkommen. Diese dop...
15.06.2010 19:20:30
Thread-ID: 1162030
10 Beiträge
Makro um doppelte Einträge zu suchen und zu filtern
Excelneuling2

Hallo Zusammen,
ich bin ein Excelneuling und habe dementsprechend noch nie ein Makro programmiert und hoffe auf Hilfe.
Mein Problem:
Ich habe eine Datenbank (siehe Beispieltabelle) in der x Zeilen und y Spalten vorhanden sind. Ich möchte ein Makro schreiben, welches doppelte Zeilen...
31.07.2010 16:44:49
Thread-ID: 1169831
10 Beiträge
Liste von allen doppelten Einträgen befreien
allen

Hallo,
ichh habe hier ein wahrscheinlich sehr simples Problem. Da ich aber leider keine Makros programmieren kann, für mich ein nicht lösbares.
Ich habe hier eine Excel-Liste, die aus zwei Tabellen mit leicht unterschiedlichen Spalten auf je einem eigenen Arbeitsblatt besteht.
Auf d...
28.12.2010 17:07:48
Thread-ID: 1193075
4 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
2
1
4
4
3
8
13
9
9
3
12
2
5
13
2
2
2
4
1
7
2
4
10
4
1