mit VBA intelligente Tabelle ansprechen

Enno · 2016-08-29T14:38:54+00:00

Hallo Forumler, ich beginne gerade mir ein paar VBA-Kenntnisse anzueignen, um mir das Leben mit Excel zu vereinfachen. Ein paar Dinge klappen auch schon, wobei mir sicherlich auch Grundlagenwissen fehlt. Problem: Ich habe eine intelligente Tabelle erstellt und möchte diese per VBA ansprechen und in ein neues Tabellenblatt kopieren. Die Ausgangstabelle heißt "Wg_Umlauf" und befindet sich in einem eigenen Tabellenblatt. Die Überschrift steht in der Zeile 11, es werden die Spalten A bis AV benötigt. In dieser Tabelle werden Daten aus einer Datenbank eingelesen (wird schon per Makro ausgeführt :-)) - daher ändert sich auch die Anzahl der Zeilen innerhalb dieser Tabelle. Im Internet, aber auch in einem Excelbuch finde ich leider nur Hinweise, wie man ein ganzes Tabellenblatt kopieren kann, aber nichts wie ich eine solche Tabelle ansprechen kann. Ich möchte auch gern per VBA alle Daten in bestimmten Spalten löschen (Spalte "Korrektur Datum" und "Werkstattzeit"). Könnt Ihr mir bitte helfen? Vielen Dank schon mal im Voraus Dort leider weiß ich nicht, wie ich diese Tabelle ansprechen kann

Hallo Enno,
das kopieren der Tabelle / des ListObjects kannst du wie folgt umsetzen.
Gruß
Franz

Sub prcGet_Data_from_Text_File()
Dim wksZiel As Worksheet
Dim varText, wkbText As Workbook, wksText As Worksheet
varText = Application.GetOpenFilename("Textfile (*.txt),*.txt", _
Title:="Bitte zu importierende Textdatei auswählen", _
MultiSelect:=False)
If varText = False Then Exit Sub
Set wksZiel = ActiveSheet
Application.ScreenUpdating = False
Application.Workbooks.OpenText Filename:=varText, _
Startrow:=1, _
DataType:=xlDelimited, _
Tab:=False, Semicolon:=True, Comma:=False, Space:=False, Other:=False, _
local:=True
Set wkbText = Application.Workbooks(Mid(varText, InStrRev(varText, "\") + 1))
Set wksText = wkbText.Sheets(1)
wksZiel.Range("A3:AD100").ClearContents
With wksText
.Range(.Cells(1, 1), .Cells(.UsedRange.Row + .UsedRange.Rows.Count - 1, 30)).Copy
End With
wksZiel.Range("A3").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
wkbText.Close savechanges:=False
Range("A3").Select
Application.ScreenUpdating = True
End Sub
Sub prcCopy_ListObject()
Dim objList As ListObject
Dim wksNeu As Worksheet, rngZiel As Range
'ListObject setzen und neues Tabellenblatt anlegen
With ActiveWorkbook
Set objList = .Worksheets(2).ListObjects(1)
'oder auch
Set objList = .Worksheets("Tabelle2").ListObjects("Wg_Umlauf")
Set wksNeu = .Worksheets.Add(After:=objList.Parent)
Set rngZiel = wksNeu.Range("A3") 'Zelle ab der Tabelle/ListObject eingefügt werden soll
End With
'Datenbereich des ListObjects koperen
With objList.Range
.Copy
rngZiel.PasteSpecial Paste:=xlPasteColumnWidths
.Application.CutCopyMode = False
.Copy Destination:=rngZiel
.Application.CutCopyMode = False
End With
'Blatt umbenennen und ListObject neu setzen
With wksNeu
.Name = "Copy WgUmlauf"
Set objList = .ListObjects(1)
objList.Name = "WgUmlauf_Neu"
End With
'Einzelne Spalten löschen
Set rngZiel = objList.Range.Rows(1).Find(what:="Korrektur Datum", LookIn:=xlValues, _
lookat:=xlWhole)
If Not rngZiel Is Nothing Then
rngZiel.EntireColumn.Delete
End If
Set rngZiel = objList.Range.Rows(1).Find(what:="Werkstattzeit", LookIn:=xlValues, _
lookat:=xlWhole)
If Not rngZiel Is Nothing Then
rngZiel.EntireColumn.Delete
End If
End Sub

Hallo Enno,
wenn nur die Daten in den betreffenden Spalten gelöscht werden sollen, dann ändert sich das Makro wie folgt.
Gruß
Frant

Sub prcCopy_ListObject()
Dim objList As ListObject
Dim wksNeu As Worksheet, rngZiel As Range
'ListObject setzen und neues Tabellenblatt anlegen
With ActiveWorkbook
Set objList = .Worksheets(2).ListObjects(1)
'oder auch
Set objList = .Worksheets("Tabelle2").ListObjects("Wg_Umlauf")
Set wksNeu = .Worksheets.Add(after:=.Sheets(.Sheets.Count))
Set rngZiel = wksNeu.Range("A3") 'Zelle ab der Tabelle/ListObject eingefügt werden soll
End With
'Datenbereich des ListObjects koperen
With objList.Range
.Copy
rngZiel.PasteSpecial Paste:=xlPasteColumnWidths
.Application.CutCopyMode = False
.Copy Destination:=rngZiel
.Application.CutCopyMode = False
End With
'Blatt umbenennen und ListObject neu setzen
With wksNeu
.Name = "Copy WgUmlauf"
Set objList = .ListObjects(1)
objList.Name = "WgUmlauf_Neu"
End With
'Inhalt einzelner Spalten der Tabelle löschen
'Spaltentitel suchen
Set rngZiel = objList.Range.Rows(1).Find(what:="Korrektur Datum", LookIn:=xlValues, _
lookat:=xlWhole)
'Daten in Spalte löschen
If Not rngZiel Is Nothing Then
wksNeu.Range(objList.Name & "[Korrektur Datum]").ClearContents
End If
Set rngZiel = objList.Range.Rows(1).Find(what:="Werkstattzeit", LookIn:=xlValues, _
lookat:=xlWhole)
If Not rngZiel Is Nothing Then
wksNeu.Range(objList.Name & "[Werkstattzeit]").ClearContents
End If
End Sub

mit VBA intelligente Tabelle ansprechen

Forumthread: mit VBA intelligente Tabelle ansprechen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Mit VBA intelligente Tabellen in Excel ansprechen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

mit VBA intelligente Tabelle ansprechen

Forumthread: mit VBA intelligente Tabelle ansprechen

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Mit VBA intelligente Tabellen in Excel ansprechen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread