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

Makro zum Löschen von Tabellenblättern und Inhalte

Forumthread: Makro zum Löschen von Tabellenblättern und Inhalte

Makro zum Löschen von Tabellenblättern und Inhalte
09.11.2012 13:03:39
Tabellenblättern
Hallo ich habe ein Problem in Excel.
In der angefügten Datei benötige ich ein Makro um das Dateneinlesen zu beschleunigen. Ich habe aber keine Ahnung ob so etwas überhaupt funktioniert.
Die Daten des Tabellenblattes „Werte vorher“ sollen gelöscht werden. (spalte B, C und D)
Dann sollen die Werte des Tabellenblattes „Werte aktuell“ in das Tabellenblatt „Werte vorher“ eingefügt werden. (Spalte B, C und D)
Dann sollen die Werte aus dem Tabellenblatt „Werte aktuell“ gelöscht werden. (Spalte B, C und D)
Analog soll dies mit den Tabellenblättern „Datengrundl aktuell“ und „Datengrundl vorher“ erfolgen. (Hier soll die Formel der Spalte A erhalten bleiben bleiben)
Ferner sollen alle Tabellenblätter die Tabelle heißen („Tabelle1“ bis „Tabelle5“) gelöscht werden.
Außerdem sollen alle Tabellenblätter, die „Daten einfügen“ heißen, geleert werden (nur Zeile 1 soll erhalten bleiben)
Vielen Dank für Eure Hilfe!
https://www.herber.de/bbs/user/82547.xls

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro zum Löschen von Tabellenblättern und Inhalte
10.11.2012 12:52:44
Tabellenblättern
Hallo Mustermann83,
in der Textdatei sind entsprechende Makros zur Aufbereitung der Daten.
https://www.herber.de/bbs/user/82562.txt
Gruß
Franz

AW: Makro zum Löschen von Tabellenblättern und Inhalte
10.11.2012 20:40:32
Tabellenblättern
Vielen Dank im großen und ganzen funktioniert das Makro.
aber ich habe im Tabellenblatt aktuell und vorher vielmehr Spalten in der richtigen Datei. Leider löscht es nur bis Spalte F so wie in der Beispieltabelle.

Anzeige
AW: Makro zum Löschen von Tabellenblättern und Inhalte
10.11.2012 20:56:05
Tabellenblättern
Außerdem löscht es Spalte A in der Tabelle Datengrdl vorher und die Formeln aus dem Tabellenblatt Werte vorher, wenn die Daten (Spalte B, C, D) nicht weiter als z.B. Zeile 48 gehen. Die Formeln sind aber bis z.B. Zeile 10000 hinterlegt.

AW: Makro zum Löschen von Tabellenblättern und Inhalte
11.11.2012 17:50:16
Tabellenblättern
Hallo,
ich habe mich jetzt noch mal mit dem Makro beschäftigt, das zweite Problem mit den Spalten aus dem Tabellenblatt Werte aktuell und vorher hat sich glaube ich gelöst, weil es immer genauso viele Zeilen kopiert.
Jetzt habe ich nur noch das Problem, mit der Spaltenanzahl in dem Tabellenblatt Datengrdl vorher und nachher, da es ja nicht nur F Spalten wie im Beispiel sind.
Außerdem löscht es mir Spalte A (hier sind Formeln hinterlegt) in dem Tabellenblatt Datengrdl nachher. In der Beispieldatei, die ich hochgeladen habe ist das glaube ich nicht so.
Danke für Eure Hilfe

Anzeige
AW: Makro zum Löschen von Tabellenblättern und Inhalte
11.11.2012 18:01:19
Tabellenblättern
So jetzt habe ich meinen Fehler gefunden, da in der ersten Zelle und Spalte keine Formel hinterlegt war, hat es mir im Tabellenblatt Datengrundl nachher alle Formeln gelöscht. Jetzt besteht nur noch das Problem, das es mir nur die Daten bis Spalte F aus dem Tabellenblatt Datengrdl vorher in Datengrdl nachher kopiert. Welchen Parameter muss ich denn da jetzt im Makro ändern?

Anzeige
AW: Makro zum Löschen von Tabellenblättern und Inhalte
11.11.2012 18:31:44
Tabellenblättern
Hallo Mustermann,
meiner Meinung nach macht es wenig Sinn, die Vorher-Tabellen mit mehreren 10000 Formeln vorzubelegen. Hier kann man die Formeln auch an den tatsächlichen Datenbestand anpassen.
Ansonsten hier die beiden Makros mit den notwendigen Anpassungen, so dass in Werte nur Spalten B:D Inhalte gelöscht und wieder aufgefüllt werden und bei Datengrdl jeweils alle Daten ab Spalte B bis zu letzten Spalte kopiert/gelöscht werden.
Gruß
Franz 
Private Sub Aufbereiten_Werte()
Dim wks_Q As Worksheet
Dim wks_Z As Worksheet
Dim lngZeile As Long
Set wks_Q = Worksheets("Werte aktuell")
Set wks_Z = Worksheets("Werte vorher")
With wks_Z
lngZeile = .Cells.SpecialCells(xlCellTypeLastCell).Row
.Range(.Cells(1, 2), .Cells(lngZeile, 4)).ClearContents
With wks_Q
lngZeile = .Cells(.Rows.Count, 3).End(xlUp).Row
.Range(.Cells(1, 2), .Cells(lngZeile, 4)).Copy
wks_Z.Cells(1, 2).PasteSpecial Paste:=xlPasteValues
End With
End With
With wks_Q
.Range("B:D").ClearContents
End With
End Sub
Private Sub Aufbereiten_Datengrdl()
Dim wks_Q As Worksheet
Dim wks_Z As Worksheet, lngZeile As Long, lngSpalte As Long
Set wks_Q = Worksheets("Datengrdl aktuell")
Set wks_Z = Worksheets("Datengrdl vorher")
With wks_Z
lngZeile = .Cells.SpecialCells(xlCellTypeLastCell).Row
lngSpalte = .Cells.SpecialCells(xlCellTypeLastCell).Column
If lngSpalte >= 2 Then
.Range(.Cells(1, 2), .Cells(lngZeile, lngSpalte)).ClearContents
End If
With wks_Q
lngZeile = .Cells.SpecialCells(xlCellTypeLastCell).Row
lngSpalte = .Cells.SpecialCells(xlCellTypeLastCell).Column
If lngSpalte >= 2 Then
.Range(.Cells(1, 2), .Cells(lngZeile, lngSpalte)).Copy
wks_Z.Cells(1, 2).PasteSpecial Paste:=xlPasteValues
.Range(.Cells(1, 2), .Cells(lngZeile, lngSpalte)).ClearContents
End If
End With
End With
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

VBA;Alle Zellen in Spalte A untereinander
Günter

Schönen guten Tag,
habe schon einiges recherchiert. Aber folgendes finde ich nicht:
Ein Makro soll mir alle vorhandenen Zellen (ab Spalte B)
in Spalte A kopieren. Alles müßte in Spalte A untereinander stehen.
Vielen Dank
Gruß
Günter
09.12.2009 15:14:12
Thread-ID: 1122647
9 Beiträge
Tabellenblätter mit Inhaltsverzeichnis löschen | Herbers Excel-Forum
Heinz
Hallo
Ich suche seit geraumer Zeit nach der Lösung folgenden Problems:
Ich arbeite mit einer Arbeitsmappe mit ca. 100 verschiedenen Tabellenblättern. Für jede Einzelarbeit brauche ich davon ca. 10-30 Blätter. Die nicht benötigten Blätter möchte ich mittels Makro am Ende löschen.
Mittels...
04.01.2010 18:33:06
Thread-ID: 1127121
6 Beiträge
Pivot VBA Tabellenblatt löschen
murat

Halllo,
ich möchte ein erzeugtes tabellenblatt, das durch pivot doppelklick entstanden ist wieder löschen.
ich habe folgendes Makro
Private Sub CommandButton1_Click() Dim letzteZelle As Long letzteZelle = Worksheets("Tabelle42").Cells.Find(What:="*", _ After:=[A1], SearchDirection:=...
24.01.2010 21:10:25
Thread-ID: 1132506
5 Beiträge
VBA alles löschen am XDatum ;-) ?
Marcy

Hallo,
ist es möglich mit VBA einen Streich zu spielen?
Ich habe einem Kollegen eine recht umfangreiche (für meine Verhältnisse :-) ) Tabelle gemacht.
Diese wollte ich dem zum Test zuschicken, dass er mal etwas damit rum spielen kann.
Jetzt fände ich es recht lustig, wenn z.B. a...
04.03.2011 12:45:37
Thread-ID: 1204216
14 Beiträge
Anzeige
per VBA zellen kopieren und löschen
Willi

Hallo Leute,
ich brauche mal wieder eure Hilfe.
Die Tabelle (https://www.herber.de/bbs/user/81194.xlsm). Das mit den Zellen färben ist soweit OK. Jetzt will ich aber, wenn in M6 ein Kreuz gesetzt wird, dass das Kreuz in L6 verschwindet und das aktuelle Datum vom Tag in N6 eingetragen wi...
30.07.2012 00:01:49
Thread-ID: 1273054
3 Beiträge
VBA Zellen löschen mit Bedingung
WalterK

Hallo,
den folgenden Code habe ich in der Recherche gefunden, er entfernt die Zeilen, bei denen die Zelle in Spalte W leer ist.
Benötige Hilfe für folgende Änderung im Code:
1.) von "W6:W" & LzL sollte er nicht nur die leeren Zellen sondern auch die Zellen mit einer eingetragene...
24.03.2013 13:04:36
Thread-ID: 1305755
3 Beiträge
Anzeige
1. Zeichen aller Zellen in einem Bereich löschen
Stephan

Habe Daten über eine Export-Funktion erhalten, die als erstes Zeichen immer ein Leerzeichen haben, um somit die Formatierung als Text zu erzwingen.
Ich möchte nun aber darin enthaltenen Zahlen berechnen. Hierzu muss ich zuerst das erste Zeichen (Leerzeichen) der Zellen löschen und danach al...
18.04.2013 14:59:00
Thread-ID: 1309406
7 Beiträge
Inhalt je Tabellenblatt per VBA in andere Datei
janesch

Hallo Excel Freunde,
benötige mal Eure Hilfe beim folgenden Problem.
Zur Überprüfung der Ergebnisse (mögliche Formelnmanipulation) muss ich die Eingabedaten je Tabellenblatt in die Ursprungstabelle vornehmen.
Die 2 Dateien sind gleich aufgebaut(Anzahl der Tabellenblätter = 72 ) und...
07.08.2013 10:24:17
Thread-ID: 1326002
5 Beiträge
Anzeige
Formatierungen aus allen Leerzellen löschen
Dieter(Drummer)

Guten Tag, VBA Spezialisten,
mit meinem Makro werden alle Formatierungen, aus allen Leerzellen gelöscht.
Habe ich alles richtig in der Reihenfolge? Es soll ja auch ohne "select" gehen, aber da weiß ich nicht, wie ich das dann schreiben muss. Es fuktioniert schon wie gewollt.
Mit der...
27.12.2015 12:03:16
Thread-ID: 1466111
5 Beiträge
Anzeige
löschen von Tabelle2 VBA
Tabelle2

Hallo zusammen,
ich habe in der Tabelle 1
Nummern und texte vergeben
Spalte A2
1-01-01-10
1-01-02-20,08
1-01-02-20,07
1-80-01-10
1-80-01-10,01
1-55-09-30
In der Tabelle 2
D2
stehen plätze oder Texte drin die in der Tabelle 1 gelöscht ( komplette...
13.02.2016 08:48:36
Thread-ID: 1475215
5 Beiträge
VBA: alle leeren Zellen mit Formeln leeren
Honigdachs

Liebes Forum,
ich will die erste leere Zelle in Spalte A finden (Mit leer meine ich hier leer vom Inhalt, aber nicht echt leer.) und alle leeren, aber mit Formeln befüllten Spalten und Reihen rechts daneben und darunter leeren, also die Formeln rauslöschen.
Mein Ansatz ist:
With She...
27.05.2016 13:43:46
Thread-ID: 1495578
10 Beiträge
VBA alle doppelten Zeilen löschen
Mimi

Hallo alle zusammen :)
ich habe folgendes Problem:
Ich habe eine Tabelle mit Vertragsnummern, mit 1000 oder mehr Einträgen. Die Vertragsnummern können aber durch Veränderungen doppelt eingetragen werden.
Ich möchte ein Makro schreiben, dass 1. prüft, ob die Vertragsnummer doppelt v...
06.07.2016 13:00:14
Thread-ID: 1502856
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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