Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1756to1760
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1756to1760
1756to1760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Nicht zusammenhäng. Zellen leeren

VBA Nicht zusammenhäng. Zellen leeren
06.05.2020 09:03:49
Butter
Hallo liebe Excel/VBA Cracks,
nachdem ich jahrelang auf die Inhalte des Forums zugegriffen habe (und eigentlich immer weiter gekommen bin),
hab ich nun doch einen Fall, den ich nicht finde - weder hier noch über G00gle...oder ich suche falsch :-(
Ich möchte ein einer Excel Mappe auf verschiedenen Blättern verschiedene Zellen (nicht oder nur teilweise zusammenhängend) über einen Button auf Seite 1 leeren. Button erstellt, Makro aufgezeichnet, klappt nicht.
Codefragmente dann umgeschrieben (nach meinem bescheidenen Verständnis), klappt nicht.
Hier der Code: 
Sub CommandButton1_Click()
Sheets("1. Deckblatt").Select
Range("B6,B7,B8,B9,B10,B13,B20,B22,B25,C4").Select
Selection.ClearContents
Sheets("1.1 Notizen").Select
Range.Cells.Select
Selection.ClearContents
Sheets("2. Daten2").Select
Range.Cells.Select
Selection.ClearContents
Sheets("3. Auswertung").Select
Range("B3:E8,G3:G8,D12:G17,E21:G26,C29:H38,J3:J8,J12:J17,J21:J26").Select
Selection.ClearContents
Sheets("4. Resume").Select
Range("G7:G42,J7:J42,M7:M42,P7:P42;S7:S42,V7:V42").Select
Selection.ClearContents
End Sub
Wahrscheinlich banale(r) Fehler, wäre aber trotzdem nett, wenn mir wer auf die Sprünge helfen könnte.
Vielen Dank im Voraus.
LG Butter

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Nicht zusammenhäng. Zellen leeren
06.05.2020 09:24:57
MRUTor
Hallo Butter,
ausser, dass man sich die ganze Selektiererei sparen kann, kann ich nichts falsches erkennen. Kann hoechstens sein, dass die Tabellenblatt Namen nicht korrekt sind? 

Sub CommandButton1_Click()
With Sheets("1. Deckblatt").Range("B6:B10,B13,B20,B22,B25,C4")
.ClearContents
End With
With Sheets("1.1 Notizen").Range.Cells
.ClearContents
End With
With Sheets("2. Daten2").Range.Cells
.ClearContents
End With
With Sheets("3. Auswertung").Range("B3:E8,G3:G8,D12:G17,E21:G26,C29:H38,J3:J8,J12:J17,J21:J26")
.ClearContents
End With
With Sheets("4. Resume").Range("G7:G42,J7:J42,M7:M42,P7:P42;S7:S42,V7:V42")
.ClearContents
End With
End Sub

Gruss Tor
Anzeige
AW: VBA Nicht zusammenhäng. Zellen leeren
06.05.2020 09:29:31
MRUTor
Doch noch ein kleines Problemchen entdeckt:
Bei diesen beiden willst du das gesamte Blatt bereinigen?

Sheets("1.1 Notizen")
Sheets("2. Daten2")

Dann ohne Range: 

With Sheets("1.1 Notizen").Cells
.ClearContents
End With
With Sheets("2. Daten2").Cells
.ClearContents
End With

AW: VBA Nicht zusammenhäng. Zellen leeren
06.05.2020 09:40:04
MCO
Hallo Tor!
Hier hat sich ein Semikolon versteckt
 Range("G7:G42,J7:J42,M7:M42,P7:P42;S7:S42,V7:V42").Select
Deine (nachfolgende) Frage mit dem vollständigen Zellbereich ist allerdings berechtigt...
Gruß, MCO
Anzeige
AW: VBA Nicht zusammenhäng. Zellen leeren
06.05.2020 10:03:35
Butter
Moin MRUTor, vielen Dank schonmal - hab es mal umgestrickt und direkt das Semicolon entfernt.
Leider schmeisst er mir noch einen Laufzeitfehler 1004 aus "Anwendungs- oder objektorientierter Fehler".
Blattnamen hab ich jetzt auch mehrfach geprüft - passt soweit. Und die beiden Blätter sollen wirklich komplett geleert werden, da die User dort frei Ihre Daten eintragen können.
AW: VBA Nicht zusammenhäng. Zellen leeren
06.05.2020 09:38:01
MCO
Hallo Butter!
Das sollte klappen: 
Sub CommandButton1_Click()
Dim rng As Range, sh_array As Variant
sh_array = Array("Tabelle1", "1. Deckblatt", "1.1 Notizen", "2. Daten2")
For sheet_no = 0 To UBound(sh_array)
Set rng = Sheets(sh_array(sheet_no)).Range("B6:B10,B13,B20,B22,B25,C4")
rng.ClearContents
Next
Sheets("3. Auswertung").Range("B3:E8,G3:G8,D12:G17,E21:G26,C29:H38,J3:J8,J12:J17,J21:J26"). _
ClearContents
Sheets("4. Resume").Range("G7:G42,J7:J42,M7:M42,P7:P42,S7:S42,V7:V42").ClearContents
End Sub
Im letzten Range hast du noch ein Semikolon eingebaut, das lief auf Fehler.
SELECT ist, wenn möglich zu vermeiden
RANGE.CELLS ist doppelt gemoppelt bzw falsch dargestellt.
Viel Erfolg!
Gruß, MCO
Anzeige
AW: VBA Nicht zusammenhäng. Zellen leeren
06.05.2020 10:09:26
Butter
Hi MCO,
Danke für das fixe Feedback - deine Lösung checke ich nicht ganz...Du hast ein Array aus den Blättern und arbeitest es dann zyklisch ab (?) - checke aber nicht ganz, wie die verschiedenen Bereiche dann da einfliessen...
Das Semicolon hab ich direkt gekillt - Danke.
AW: VBA Nicht zusammenhäng. Zellen leeren
06.05.2020 10:35:18
MCO
Sorry, hatte meine Testtabelle im Array stehen lassen.
Da ja jetzt der Bereich doch nicht für die ersten 3 Sheets steht, ergibt sich dann folgender Code
    Sheets("1. Deckblatt").Range("B6:B10,B13,B20,B22,B25,C4").ClearContents
Sheets("1.1 Notizen").Cells.ClearContents
Sheets("2. Daten2").Cells.ClearContents
Sheets("3. Auswertung").Range("B3:E8,G3:G8,D12:G17,E21:G26,C29:H38,J3:J8,J12:J17,J21:J26"). _
ClearContents
Sheets("4. Resume").Range("G7:G42,J7:J42,M7:M42,P7:P42,S7:S42,V7:V42").ClearContents
Der Fehler war, dass immer noch Range.cells. drin stand.
Gruß, MCO
Anzeige
AW: VBA Nicht zusammenhäng. Zellen leeren
06.05.2020 11:15:48
Butter
Top - dann gecheckt. Glaube, ich habe mein Problem identifiziert....
Ich kann mit dem Befehl keine "Verbundenen" Zellen leeren? müsste ich dann die verbundene Zelle mit den ganzen EInzelzellen aufführen?
AW: VBA Nicht zusammenhäng. Zellen leeren
06.05.2020 12:23:10
Butter
Selbst gelöst - wenn z.B. B25 eine verbundene Zelle ist, müssen alle Zellen B25:B28 eingetragen werden. Funzt einwandfrei.
Vielen Dank euch^^

324 Forumthreads zu ähnlichen Themen

Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
VBA - Zellen löschen
gegs2

Hallo,
ich bin auf der Suche nach einem Makro welches mir Zellen aus meiner Tabelle löscht. Es soll bei Spalte C von oben her anfangen zu suchen (bis Spalte AF), und alle Zellen löschen und nach oben verschieben bei welchen der Inhalt der Zelle nicht mit einem kleinen "c" beginnt.
Ist s...
22.06.2009 16:24:03
Thread-ID: 1083531
5 Beiträge
Zelleinhalt mittels VBA in Programm einfügen
marspoki

Hallo,
ich möchte mittels VB in einem externen Programm eine Bummer einfügen.
mein Code sieht zur Zeit so aus.
Private Sub Form_Load() AnwID = Shell("notepad.exe", 1) SendKeys "TTTTTTTTT", True End Sub
Jetzt werden ja die TTTTTTTTT eingefügt.
Das funktioniert auch gut.
29.06.2009 16:47:14
Thread-ID: 1085187
3 Beiträge
Anzeige
Zelleninhalt ab Ziffer löschen
Helmut

Hallo,
wer kann mir bei meinem Problem helfen?
Folgendes ich habe Zellen mit dem Inhalt z. B.:
Wort Wort Wort Ziffer mehrere Buchstaben oder Wort Wort Wort (Wort) Ziffer mehrere Buchstaben.
Die Wortanzahl kann variieren.
Ich will dass in der Zelle nur noch die Wörter stehen...
28.01.2010 19:19:49
Thread-ID: 1133917
5 Beiträge
Inhalt mehrerer Zellen in einer Zelle vereinen
flo

Hallo zusammen,
ich habe folgendes Problem:
Ich habe in einer Spalte viele Zellen mit Text. Die gesamten Zellen möchte ich nun in einer Zelle vereinen.
Weiß zufällig jemand wie ich das mache? Wenn ich die Zellen nur verbinde klappt das nicht, da die Inhalte dann gelöscht werden?!
01.02.2010 15:43:48
Thread-ID: 1134874
6 Beiträge
Inhalt Zelle löschen
jo_cindy

Hallo,
habe folgendes Problem. Ich bekomme Daten aus einer Web-Applikation in Excel exportiert. Es handelt sich um Buchungszeiten aus einer Zeitwirtschaft. Jeder Buchungssatz hat ein Tagesdatum. Dieses Datum wird aber in Excel nicht als solches erkannt. Da ich die Wochentage benötige, habe...
05.03.2010 11:48:52
Thread-ID: 1143640
10 Beiträge
Makro zum löschen bestimmter Spalten
Otto

GUten Morgen,
Ich brauche Eure Hilfe. Ich brauche ein Makro, das alle Spalten in einer Tabelle löscht, die in ihrer ersten Zelle bestimmte worte NICHT enthalten.
Also:
Ich habe viele verschieden Dateien jeder mit 15-25 Spalten. Ich brauche aber nur 3 von diesen Spalten von jeder Dat...
14.03.2010 11:51:06
Thread-ID: 1145702
6 Beiträge
Makro macht Probleme beim Löschen von Zellen
Zellen

Hallo,
folgendes tolles Makro habe ich mit eurer Hilfe in die Tabelle eingebaut.
Funktioniert alles super. Gebe ich in dem untersuchten Bereich etwas ein, wird in eine Zelle etwas geschrieben. Nun wollte ich, dass wenn der Wert im untersuchten Bereich gelöscht wird, auch der Wert in der...
28.05.2010 10:43:57
Thread-ID: 1159185
5 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
2
4
2
8
4
5
9
5
4
6
20
12
1
6
2
6
1
4
2
1
11
7
15
3