Falls Zeichenkette in Excelspalte vorhanden, spalte löschen

Question

Guten morgen zusammen,

gibt es eine Möglichkeit folgendes in EXCEL 2003
umzusetzen ?

Es gibt Zeichenketten die in den Spalten J bisN
auftreten (Wiederkehrend).
Es soll geprüft werden, ob bestimmte Zeichenketten,
wie z.B. "A1" "F" "CH06" usw. dort vorhanden sind.
Wenn ja, soll die Spalte dann markiert und gelöscht werden.

Ich habe leider keine Erfahrung in EXCEL.
Könnt Ihr mir dazu etwas empfehlen ?

Im voraus herzlichen Dank für Eure Hilfe,

LG
unwissend

Answer 1

Hallo,

zwei Lösungswege möglich:

1. mit Autofilter, aus meiner Sicht deine Lösung

2. per VBA, aus meiner Sicht für dich ungeeignet, da hier entsprechende Kenntnisse fehlen.

zu 1.

Unter "Daten" findest du "Autofilter" da kannst du deine Suchwerte eingegeben und anschliesend alle Zeilen die, die Bedingungen Erfüllen löschen

Gruß

Helmut

Answer 2

Hi,

willst du wirklich die Spalten löschen (also J bis N bei Vorhandensein des Suchbegriffs) oder nicht eher die Zeilen, in denen die Suchbegriffe vorkommen? Kann jeder Begriff in unterschiedlichen Spalten vorkommen oder jeder immer nur in einer bestimmten?

Bis später,
Karin

Answer 3

Hallo und danke schonmal für
diese Hinweise.

an Saarbauer: Wenn sich so Spalten entfernen lassen,
ist das ja interessant.

an Beverly:
Also, es sollen sicher die jeweiligen Spalten und nicht
einzelne Zellen entfernt werden. Dadurch sollen nicht
benötigtten Spalten weg, damit der Ausdruck auf ein
Blatt A4-Querformat passt.
Werte wie "A1" oder "A2" gibt es bur in Spalte "I",
"CHxx" nur in Spalte "N", "F" oder "K" nur Spalte "K".

Hoffe, ich konnte das verständlich erklären,

Gruß
unwissend

Answer 4

hallo,

ich bin vinón einer Entfernung der entsprechenden Zeilen ausgegangen, da anders alle anderen werte in dieser Spalte verloren sind, aber darüber kannst du feststellen ob deine Löschwerte vorhanden sind und entsprechend dann löschen.

Oft wird von den Schreibern Spalte und Zeile verwechselt.

Gruß

Helmut

Answer 5

Hallo Saarbauer,

danke dir trotzdem für den Hinweis,
wer weiss, ob ich den nicht schon
bei meiner nächsten Aufgabe verwenden kann.

Gruß

Answer 6

Hi,

mit diesem Code kannst du die Spalten von N bis I rückwärts löschen, falls einer der Suchbegriffe mindestens 1 Mal in der laufendne Spalte vorkommt:

Sub SpaltenLoeschen()
Dim intSpalte As Integer
For intSpalte = 14 To 9 Step -1
If Application.CountIf(Columns(intSpalte), "A1") > 0 Or _
Application.CountIf(Columns(intSpalte), "A2") > 0 Or _
Application.CountIf(Columns(intSpalte), "CHxx") > 0 Or _
Application.CountIf(Columns(intSpalte), "F") > 0 Or _
Application.CountIf(Columns(intSpalte), "K") > 0 _
Then Columns(intSpalte).Delete
Next intSpalte
End Sub

Du musst allerdings die Anweisung entsprechend erweitern, falls noch weitere Begriffe vorkommen können.

Bis später,
Karin

Answer 7

Hallo Beverly;

das werde ich direkt mal testen.
Ich melde ich dann wieder.

LG

Answer 8

YuHUUUU,

mensch Karin, Du bist ´ne WUCHT!
Das geht ja echt SUPER !

Vielen lieben Dank dafür,

Gruß
Heinz

Answer 9

Uppss,,

jetz bin ich aber verblüfft...
Wollte ich die Antwort markieren als
Diese Antwort hat mein Problem gelöst
werde ich auf die LOGIN-Seite geschickt.......
Extra registriert, dann eingeloggt, kommt die Meldung:
Nur der Fragesteller kann das.

Kann bitte ein MOD oder Admin, das markieren ?
ICH darf es wohl nicht. Danke schonmal.

Gruß
Heinz

P.S. google-apis und Facebook gedönse wird bei uns
nicht durchgelassen, hat es damit was zu tun ?

Answer 10

@Excl, du kannst dass schon, sofern du einen Thread auch angemeldet (als Member) eröffnet hast, was diesmal nicht der Fall war. Jetzt kannst du z.B. problemlos noch eine "gute Antwort" vergeben und bei deiner nächsten Anfrage dann auch die Lösung setzen.

Gruß
Mic

[sup]Bei Eingriffen ins System, die Registry oder Dateien erst eine Sicherung vornehmen©[/sup]