Office: Bestimmte Zellen Löschen

KatjaS87 · 9. März 2018

Hallo liebe Excel Community *Smilie

ich hätte da mal eine Frage *rolleyes.gif*

und zwar habe ich ein Tool das mir ähnlich wie im Anhang bloß deutlich umfangreicher eine Excel ausspuckt die möchte ich dann an andere Leute schicken aber nicht mit all diesen Informationen.

Mit

Worksheets("Tabelle1").Range("A1:C4").ClearContents

Lösche ich zwar einen gewissen Bereich möchte aber lieber und da kommt meine Frage ob es möglich ist das ich beispielsweise sage alle zellen unter Prio, Owner und Lieferant sollen gelöscht werden also das im Makro auch diese Namen fallen und somit es etwas übersichtlicher ist welche Infos wegfallen werden.

und die zweite Sache wäre das nach dem Löschen die Felder von rechts nach links aufrutschen also das sich die Tabelle sozusagen lückenlos aktualisiert.

Kann mir da jemand weiter helfen *biggrinlove

Beste Grüße

Katja *Smilie

:)

rastrans · 11. März 2018

Hallo Katja,

in c_Spaltennamen stehen die Spaltenüberschriften, deren Spalten dann nicht mehr existieren!

Gruß
rastrans Code:

Sub DeleteColumns()
Const c_Spaltennamen = "Prio Owner Lieferant"
Dim lngSpalte As Long

Application.ScreenUpdating = False
lngSpalte = 1
Do Until IsEmpty(Cells(1, lngSpalte))
If InStr(1, c_Spaltennamen, "*" & Cells(1, lngSpalte).Value & "*") > 0 Then
Columns(lngSpalte).Delete shift:=xlToLeft
Else
lngSpalte = lngSpalte + 1
End If
Loop
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

KatjaS87 · 11. März 2018

Hi rastrans

erstmal vielen Dank für die schnelle Antwort *knuddel

Der Aufbau mit den Spaltennamen finde ich einfach super aber leider passiert nichts wenn ich das Makro ausführe *frown.gif*
liegt das ganz einfach an meiner unfähigkeit mit Programmen ^^
oder siehst du einen Fehler in deinem Code oder hat der Editor irgendein wichtiges Zeichen geschluckt ?

Gruß Katja

Scorefun · 11. März 2018

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

If InStr(1, c_Spaltennamen, "*" & Cells(1, lngSpalte).Value & "*") > 0 Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Sternchen gehören da doch gar nicht hin

so geh'ts

Code:

If InStr(1, c_Spaltennamen, Cells(1, lngSpalte).Value) > 0 Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

KatjaS87 · 11. März 2018

Funktioniert jetz einwandfrei !!!

Ein riesengroßes Dankeschön an euch beiden. *10points

Gruß

Katja

rastrans · 11. März 2018

Hallo,

die Sternchen gehören da doch hin, jedoch habe ich sie in der Eile an anderer Stelle vergessen!

Zur Erklärung: Wenn es einen Spaltennamen Prio Owner oder rio geben würde, wäre auch diese Spalte weg. Das sollte aber nicht der Fall sein. Deswegen setze ich einfach ein Zeichen vor und hinter den Spaltennamen und damit ist dann klar, das ich das ganze Wort suche!

Unten nochmal der vollständige Code.

Viele Grüße
rastrans Code:

Sub DeleteColumns()
Const c_Spaltennamen = "*Prio*Owner*Lieferant*"
Dim lngSpalte As Long

Application.ScreenUpdating = False
lngSpalte = 1
Do Until IsEmpty(Cells(1, lngSpalte))
If InStr(1, c_Spaltennamen, "*" & Cells(1, lngSpalte).Value & "*") > 0 Then
Columns(lngSpalte).Delete Shift:=xlToLeft
Else
lngSpalte = lngSpalte + 1
End If
Loop
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Scorefun · 12. März 2018

aha..
ich kenne das: wenn's schnell gehen soll ;-)

Office: Bestimmte Zellen Löschen

Bestimmte Zellen Löschen

Bestimmte Zellen Löschen

Bestimmte Zellen Löschen

Bestimmte Zellen Löschen - Similar Threads - Bestimmte Zellen Löschen

Zeilen löschen wenn eine Zelle der Zeile einen bestimmten Inhalt hat

Bestimmte Ziffern in Zelle entfernen

Komischer Zahlen in der GUI + VBA bestimmte Zellen mit gewissen Inhalt nicht löschen

Letzte Zelle mit bestimmtem Text finden, Zeilen darunter löschen

Bestimmtes Wort aus Zelle löschen

wenn Inhalt Zelle X dann bestimmte Zellen kopieren (Werte) und Inhalt löschen

GEHT das den ? Formeln mit bestimmten Ergebnis aus Zelle löschen,