Spaltenauswahl über Liste

Sub MarkiereSpalte() On Error GoTo hell Dim sText As String Dim iCol As Integer Dim lRow As Long 'nach dieser Überschrift suchen! sText = "description" 'in dieser Zeile stehen die Überschriften! lRow = 1 iCol = Application.WorksheetFunction.Match(sText, Cells(lRow, 1).EntireRow, False) Cells(1, iCol).EntireColumn.Select GoTo heaven hell: MsgBox ("Überschrift " & sText & " nicht vorhanden!") heaven: 'Skript-Ersteller Klaus M.vdT. End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Hajo,
vielen Dank das du mir zur Seite stehst.
Ich habe deinen Rat beherzigt und eine Demomappe erstellt (die Originaldaten stehen gerade nicht zur Verfügung da ich nicht Zuhause bin)
https://www.herber.de/bbs/user/140925.xlsx
Bearbeitet werden soll ein Output von einem Programm der mehrere Spalten umfasst, die vom Namen (erster Wert der Spalte) her immer gleich sind aber die Positionen sind ändern kann.
Ich weiß die Namen der Spalten die ich ausgeblendet/gelöscht haben will und ich habe den das Skript von Klaus M.vdT. mit dem ich ich eine Spalte über die Überschrift finde und auswählen kann.
Wie kann diese Funktion nun auf eine vorhandene Liste angewendet werden?
Liste der Spalten die ausgeblendet werden sollen:
"2 - vorerst nicht benötigt","9 - vorerst nicht benötigt","10 - vorerst nicht benötigt","12 - vorerst nicht benötigt","13 - vorerst nicht benötigt"
Liste der Spalten die gelöscht werden sollen:
"4 - irrelevant Spalte","7 - irrelevant Spalte","11 - irrelevant Spalte"
Ich hoffe das ich mein Vorhaben nun besser verdeutlichen konnte.

Hallo Daniel,
deine "Liste" mit den Spaltennamen die ausgeblendet/gelöscht werden sollen auf ein gesondertes Tabellenblatt "Tabelle2".
Die Spaltenüberschriften die ausgeblendet werden sollen in Spalte A (untereinander) beginnend ab A1.
Die Spaltenüberschriften die gelöscht werden sollen in Spalte B (untereinander) beginnend ab B1.
Code:

Option Explicit
Public Sub Ausblenden_Löschen()
Dim i As Long, z As Long, raAusblenden As Range
Dim raLöschen As Range, wsListe As Worksheet
Application.ScreenUpdating = False
Set wsListe = ThisWorkbook.Worksheets("Tabelle2")
With Worksheets("Tabelle1")
For i = 1 To .Cells(1, .Columns.Count).End(xlToLeft).Column
For z = 1 To wsListe.Cells(wsListe.Cells.Rows.Count, "A").End(xlUp).Row
If .Cells(1, i) = wsListe.Cells(z, "A") Then
If raAusblenden Is Nothing Then
Set raAusblenden = .Cells(1, i)
Else
Set raAusblenden = Union(raAusblenden, .Cells(1, i))
End If
End If
Next z
Next i
If Not raAusblenden Is Nothing Then
raAusblenden.EntireColumn.Hidden = True
End If
For i = 1 To .Cells(1, .Columns.Count).End(xlToLeft).Column
For z = 1 To wsListe.Cells(wsListe.Cells.Rows.Count, "B").End(xlUp).Row
If .Cells(1, i) = wsListe.Cells(z, "B") Then
If raLöschen Is Nothing Then
Set raLöschen = .Cells(1, i)
Else
Set raLöschen = Union(raLöschen, .Cells(1, i))
End If
End If
Next z
Next i
If Not raLöschen Is Nothing Then
raLöschen.EntireColumn.Delete
End If
End With
Set wsListe = Nothing: Set raAusblenden = Nothing: Set raLöschen = Nothing
End Sub

Gruß Werner

Option Explicit Public Sub Ausblenden_Löschen() Dim i As Long, raAusblenden As Range, raLöschen As Range Application.ScreenUpdating = False With Worksheets("Tabelle1") For i = 1 To .Cells(1, .Columns.Count).End(xlToLeft).Column Select Case .Cells(1, i) Case "2 - vorerst nicht benötigt", "9 - vorerst nicht benötigt", _ "10 - vorerst nicht benötigt", "12 - vorerst nicht benötigt", _ "13 - vorerst nicht benötigt" If raAusblenden Is Nothing Then Set raAusblenden = .Cells(1, i) Else Set raAusblenden = Union(raAusblenden, .Cells(1, i)) End If Case Else End Select Next i If Not raAusblenden Is Nothing Then raAusblenden.EntireColumn.Hidden = True End If For i = 1 To .Cells(1, .Columns.Count).End(xlToLeft).Column Select Case .Cells(1, i) Case "4 - irrelevant Spalte", "7 - irrelevant Spalte", "11 - irrelevant Spalte" If raLöschen Is Nothing Then Set raLöschen = .Cells(1, i) Else Set raLöschen = Union(raLöschen, .Cells(1, i)) End If Case Else End Select Next i If Not raLöschen Is Nothing Then raLöschen.EntireColumn.Delete End If End With Set raAusblenden = Nothing: Set raLöschen = Nothing End Sub

dim C as Range For each C in active sheet.usedrange. rows(1).cells Select Case C.Text Case "A", "B", "C" C.EntireColumn.delete Case "E", "F", "G" C.EntireColumn.Hidden = True Case Else End Select Next

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread