Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1608to1612
1608to1612
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Intelligente Tabelle Spalten über Makro löschen

Forumthread: Intelligente Tabelle Spalten über Makro löschen

Intelligente Tabelle Spalten über Makro löschen
02.03.2018 10:13:12
JayJay
Hallo zusammen,
ich bin völlig neu hier im Forum - deswegen bitte ich direkt mal sämtliches "Fehlverhalten" zu entschuldigen :)
Ich benötige mal eine kurze Hilfe zur Programmierung in VBA.
Ich habe auf einem Tabellenblatt eine intelligente Tabelle formatiert, die über ein Makro automatisch die letzte Spalte löschen soll (also die Tabelle quasi um eine Spalte verkleinern soll).
Ich habe mich schon durch das gesamt www gesucht, jedoch nichts passendes gefunden.
Was ich gefunden habe, wäre genau der andere Weg, nämlich automatisch über ein Makro eine Spalte hinzuzufügen:

Dim wrksht As Worksheet
Dim oListCol As ListColumn
Set wrksht = ActiveWorkbook.Worksheets("Tabelle1")
Set oListCol = wrksht.ListObjects(1).ListColumns.Add
Das funktioniert auch wunderbar.
Mein Ansatz zum Löschen war es, dass ich das ".Add" durch ein ".Delete" tausche - leider ohne Erfolg.
Kann mir hier jemand weiterhelfen?
Beste Grüße
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Intelligente Tabelle Spalten über Makro löschen
02.03.2018 10:25:53
Luschi
Hallo JayJay,
bei mir klappt das so: ActiveSheet.ListObjects("Tabelle1").ListColumns(3).Delete
Gruß von Luschi
aus klein-Paris
AW: Intelligente Tabelle Spalten über Makro löschen
02.03.2018 10:36:41
JayJay
Hallo Luschi,
danke für deine schnelle Hilfe - das funktioniert einwandfrei! Ich bin begeistert :)
Hast du für die umgekehrte Variante (Spalte hinzufügen) auch eine kürzere Möglichkeit als meine?
Beste Grüße
JayJay
Anzeige
AW: Intelligente Tabelle Spalten über Makro löschen
02.03.2018 11:03:15
Werner
Hallo,
oberer Code löscht immer die letzte Spalte der intelligenten Tabelle, unterer Code fügt eine neue Spalte dazu. 
Public Löschen()
'löscht immer die letzte Spalte
With ActiveSheet.ListObjects("Tabelle1")
.ListColumns.Add
End With
End Sub
Public Neue_Spalte()
'fügt neue Spalte dazu
With ActiveSheet.ListObjects("Tabelle1")
.ListColumns(.ListColumns.Count).Delete
End With
Gruß Werner
Anzeige
AW: Intelligente Tabelle Spalten über Makro löschen
02.03.2018 11:29:59
JayJay
Hallo Werner,
dankeschön - funktioniert super!
Nur hast du bei deinen Codes "Delete" und "Add" vertauscht.
Beste Grüße
Gerne u. Danke für die Rückmeldung.
02.03.2018 11:47:55
Werner
Hallo,
du hast es ja bemerkt.
Gruß Werner

Forumthreads zu verwandten Themen

Spaltenwerte ausgewählter Tabellen kopieren
obelix-xxl

Hallo,
in mehreren Tabellen habe ich in der gleichen Spalte X11:X100 Summenwerte eingetragen.
Die Spaltenbeschriftung ist in der Zelle X10 und ist gleich dem Tabellennamen, z.B. -1.234.
Zur weiteren Verwendung möchte ich nur die Ergebnisse der markierten Tabellenblätter in eine neu...
07.09.2008 08:42:00
Thread-ID: 1007926
2 Beiträge
Spalten aus einem Tabellenblatt auslesen
Kiewel

Hallo,
bin seit langem Nutzer des Forums und der CD, komme nun aber nicht mehr weiter. Villeicht kann mir ja einer von Euch Profis weiterhelfen.
Ich habe ein Tabellenblatt mit folgendem Aufbau:
Datum /Uhrzeit von/Uhrzeit bis/Team /Thema1/Thema2/Thema3
04...
05.01.2009 16:20:25
Thread-ID: 1037009
7 Beiträge
eine Tabelle aus Spalten
Sina

Hallo zusammen,
ich habe eine Datei erstellt mit aktuellen Handys und einigen Merkmalen, wie z.B. Standbyzeit, Betriebszeit, Kamera Megapixel usw.
Die Merkmale der Handys stehen in der Spalte von oben nach unten A1-A41 weil es so übersichtlicher ist. Übersichtlicher und kleiner, als di...
11.03.2009 10:02:42
Thread-ID: 1058977
9 Beiträge
Listbox Einträge aus Tabelle entfernen
Frank

Hallo Zusammen!
Mittels folgendem Code wird eine ListBox gefüllt!
Dim i As Integer
With frmDaten
.ListBox1.Clear
Sheets("CD_Archiv").Activate
i = 0
For lng = 5101 To ActiveSheet.UsedRange.Rows.Count
If Cells(lng, 158).Value = CDbl(.TextBox2) Then
.ListBox1.Ad...
14.12.2012 13:11:10
Thread-ID: 1290884
6 Beiträge
Anzeige
Spalte X aus 20+ Blättern in einer Tabelle kopiere
Jones

Hallo,
ich muss regelmäßig aus einer Exceltabelle, Text aus bestimmten Blättern kopieren und die Wörter mit Notepad++ zählen.
Ich suche eine Möglichkeit entweder:
1. die betroffenen Spalten aus den betroffenen Blättern zu kopieren
und in eine neue Tabelle einfügen und dann den d...
05.02.2013 11:26:39
Thread-ID: 1297710
10 Beiträge
Zeichen über der Raute aus Tabelle entfernen
ropa

Hallo,
ich habe eine Tabelle in der mehrere Spalten mit Zahlen an der ersten STelle
das Zeichen auf der Rautentaste hat-
Jetzt kann ich mit den Werten nicht rechnen.
Wie kann ich dieses Zeichen entfernen.
Grüße
Roland
13.02.2013 17:28:34
Thread-ID: 1299197
15 Beiträge
Beliebige Spalten aus Tabelle1 in Tabelle2
Tobiii

Hallo Zusammen,
=Tabelle1!A1 diese Formel füge ich in Tabelle2 A1 ein. Jetzt müsste ich diese per Hand nach unten ziehen.
Meine Frage:
Ist es möglich diese automatisch zu machen - mit Überprüfung wieviele Zeilen sind in Tabelle1 gefüllt? Beispiele sind in Tabelle1 die Zeilen A1-A100...
13.06.2013 15:12:16
Thread-ID: 1317561
3 Beiträge
bestimmte Datensätze aus Tabelle entfernen
Selina

Guten Tag
In einer Excel-Tabelle hab ich untereinander mehrere Datensätze
In der Spalte E steht jeweils ein mehrzeiliger Text
Ich suche nun nach einer Möglichkeit, alle auf der Tabelle enthaltenen Datensätze in der Spalte E zu durchsuchen.
Und zwar sollen allen Datensätze gelösc...
27.02.2014 11:02:06
Thread-ID: 1351432
7 Beiträge
jede 11. Spalte aus Tabellenbl. in neues Tabellenb
Bärbel

Hallo und guten Tag,
ich kriegs leider nicht alleine hin:
Ich will aus einem Tabellenblatt (beginnend bei Spalte H, Zeile 3) jeden 11.folgenden Wert in eine neue Tabelle (Spalte B, Zeile 3) übernehmen.
Verzweifelt hab ich versucht die Index-Formel hinzukriegen, - ohne Erfolg.
K...
09.05.2014 17:43:10
Thread-ID: 1360793
12 Beiträge
aus Tabelle Dublikate entfernen
walter

Hallo Excelfreunde,
In eine Tabelle schreibe ich, für jeden Sportverein eine Spalte, die Torschützen.
Kann man per Formel aus diesen Torschützen die Dublikate entfernen und
in eine Spalte schreiben?
Gruß
Walter
05.10.2015 19:13:58
Thread-ID: 1450893
17 Beiträge
Anzeige
Makros aus vielen Tabellen entfernen
Chrischan

Hallo miteinander,
Ich möchte gerne aus vielen *xlsm Dateien die Makros löschen. (und ein Tabellenblatt ausblenden, wobei der Teil dann einfach sein sollte) Dazu gibt es eine "Masterdatei", in welcher ein Makro gestartet wird, von wo aus dann die anderen Tabellen geöffnet, bearbeitet und da...
08.10.2015 17:22:24
Thread-ID: 1451463
12 Beiträge
Spalten aus Tabelle lesen
Patrick

Moin Leute, ich habe folgendes Problem:
Ich habe eine Zeile Z mit 256 Spalten(1x256)
nun habe ich eine Matrix M_Spalte (16x16) in der die Spaltennummern stehen. Ich möchte also wieder eine 16x16 Matrix erstellen, die die Werte aus der o.g. Zeile(1x256) in Abhängigkeit der Spalte, enthäl...
12.12.2015 23:11:59
Thread-ID: 1464056
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Intelligente Tabelle Spalten über Makro löschen

Schritt-für-Schritt-Anleitung

Um eine Spalte in einer intelligenten Tabelle über ein Makro zu löschen, gehe wie folgt vor:

  1. Öffne Excel und gehe zu dem Blatt, das die intelligente Tabelle enthält.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  4. Füge den folgenden Code in das Modul ein:

    Sub SpalteLoeschen()
   ActiveSheet.ListObjects("Tabelle1").ListColumns(ActiveSheet.ListObjects("Tabelle1").ListColumns.Count).Delete
End Sub

  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Führe das Makro aus, um die letzte Spalte der intelligenten Tabelle zu löschen.

Wenn du die Tabelle um mehr als eine Spalte verkleinern möchtest, kannst du die Zahl im .ListColumns-Argument anpassen.

Häufige Fehler und Lösungen

  • Fehler: Das Makro funktioniert nicht und gibt einen Fehler aus.

    • Lösung: Stelle sicher, dass der Name der intelligenten Tabelle korrekt ist. Du kannst den Namen im Tabellentool unter "Entwurf" überprüfen.

  • Fehler: Die falsche Spalte wird gelöscht.

    • Lösung: Ändere die Zahl in ListColumns(n) zu der Position der Spalte, die du tatsächlich löschen möchtest.

Alternative Methoden

Eine alternative Methode, um eine Spalte aus einer intelligenten Tabelle zu entfernen, ist die Verwendung des Excel-Datenfilters.

  1. Wähle die intelligente Tabelle aus.
  2. Klicke auf Daten und dann auf Filter.
  3. Wähle die Spalte aus, die du löschen möchtest, und filtere die Daten.
  4. Lösche die gefilterten Zeilen, wenn du sie nicht mehr benötigst.

Diese Methode ist besonders nützlich, wenn du eine Excel-Daten Tabelle löschen möchtest, anstatt sie über ein Makro zu bearbeiten.

Praktische Beispiele

  • Beispiel 1: Um die zweite Spalte zu löschen, ändere den Code wie folgt:

    Sub ZweiteSpalteLoeschen()
   ActiveSheet.ListObjects("Tabelle1").ListColumns(2).Delete
End Sub

  • Beispiel 2: Wenn du eine intelligente Tabelle entfernen möchtest, kannst du folgenden Code verwenden:

    Sub IntelligenteTabelleEntfernen()
   ActiveSheet.ListObjects("Tabelle1").Delete
End Sub

Tipps für Profis

  • Nutze die Möglichkeit, mehrere Spalten auf einmal zu löschen, indem du eine Schleife verwendest:

    Sub MehrereSpaltenLoeschen()
   Dim i As Integer
   For i = 1 To 3 ' Löscht die ersten drei Spalten
       ActiveSheet.ListObjects("Tabelle1").ListColumns(1).Delete
   Next i
End Sub

  • Bevor du Änderungen vornimmst, solltest du die Tabelle sichern, um eine intelligente Tabelle rückgängig machen zu können, falls etwas schiefgeht.

FAQ: Häufige Fragen

1. Wie kann ich eine intelligente Tabelle in Excel entfernen?
Um eine intelligente Tabelle zu entfernen, wähle die Tabelle aus, gehe zu Tabellentools, klicke auf Entwurf und wähle Tabelle löschen.

2. Kann ich eine gelöschte Spalte wiederherstellen?
Das ist nur möglich, wenn du die Änderungen noch nicht gespeichert hast. Andernfalls musst du die Spalte manuell wieder hinzufügen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige