Live-Forum - Die aktuellen Beiträge
Datum
Titel
12.07.2025 06:51:22
Grok.Free: Your Gateway to Advanced AI Technology
11.07.2025 18:11:03
Zeiträume vergleichen
11.07.2025 15:59:08
Fortführung Thread VBA de-/activate Ping Pong bei Mappenwech
11.07.2025 11:23:34
Ergebnis aus Tabellenfilter in anderer Zelle anzeigen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1000to1004
1000to1004
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Select vermeiden

Forumthread: Select vermeiden

Select vermeiden
11.08.2008 14:15:36
Marc
Hallo.
Ich möchte folgenden Code so ersetzen, dass kein Activate bzw. Select mehr vorkommt. Hat einer eine Idee?
Ziel.Activate
lZeile2 = Ziel.Cells(Rows.Count, 1).SpecialCells(xlLastCell).Row
lSpalte2 = Ziel.Cells(1, Columns.Count).SpecialCells(xlLastCell).Column
Ziel.Range(Cells(2, 1), Cells(lZeile2, lSpalte2)).Select
Selection.Delete
Mein Versuch mit
Ziel.Range(Cells(2, 1), Cells(lZeile2, lSpalte2)).ClearContents
hatte einen Laufzeitfehler zur Folge.
Danke

Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Kategorie
VBA-Programmierung
Tags
#activate #clearcontents #range
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: Select vermeiden
11.08.2008 14:30:39
Tobias
Was ist "Ziel". Also nicht dein Ziel, sondern die Variable Ziel?

AW: Select vermeiden
11.08.2008 14:32:00
Hajo_Zi
Hallo Tobias,
Ziel.Range(Cells(2, 1), Cells(lZeile2, lSpalte2)).Delete

AW: Select vermeiden
11.08.2008 14:31:00
Daniel
Hi
auch innerhalb einer RANGE müssen die CELLS vollständig Referenziert werden, dh.

Ziel.Range(Ziel.Cells(), Ziel.Cells())


(die Angabe ZIEL vor Range kann oftmals enfallen, manchmal führt es aber zu einem Fehler)
da bei dieser Schreibwiese die Zeilen manchmal recht lang werden, behilft man sich mit der WITH-Klammer:
(beachte den Punkt vor RANGE und CELLS, er ersetzt ZIEL, falls es mit WITH so definiert wurde)


with Ziel
lZeile2 = .Cells(Rows.Count, 1).SpecialCells(xlLastCell).Row
lSpalte2 = .Cells(1, Columns.Count).SpecialCells(xlLastCell).Column
.Range(.Cells(2, 1), .Cells(lZeile2, lSpalte2)).Delete
end with


ich arbeite mittlerweile oft mit der Resize-Funktion, was den Code nochmals vereinfacht:


lZeile2 = Ziel.Cells(Rows.Count, 1).SpecialCells(xlLastCell).Row
lSpalte2 = Ziel.Cells(1, Columns.Count).SpecialCells(xlLastCell).Column
Ziel.Cells(2, 1).Resize(lZeile2-1, lSpalte2).Delete


Gruß, Daniel

Anzeige
AW: Select vermeiden
11.08.2008 14:34:21
Yal
Hi Marc,
mir ist nicht ganz klar, was "Ziel" darstellt:
_ eine ganze Mappe,
_ ein Bereich aus mehreren Zellen,
_ ein Bereich mit nur eine Zelle
?
Wenn Ziel ein Bereich mit mehreren Zellen wurde reichen:
ActiveSheet.Range(Ziel.Cells(2,1), Ziel.Cells.SpecialCells(xlLastCell)).ClearContents
Viel Erfolg
Yal

Anzeige
Re:
11.08.2008 14:37:56
Backowe
Hi,
VBA-Code:
Sub Loeschen()
Dim Zeile As Long
Dim Spalte As Integer
With Sheets("Tabelle2")
  Zeile = .Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
  Spalte = .Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column
  .Range(.Cells(2, 1), .Cells(Zeile, Spalte).Address).ClearContents
End With
End Sub
Gruß Jürgen

Anzeige
AW: Select vermeiden
11.08.2008 18:19:43
Marc
Hallo an alle.
Sorry für die späte Antwort. Ziel ist so definiert:
set Ziel= Worksheet("Tabelle1")
Werde eure Tipps testen und berichten.
Ich habe gedacht, dass in der Range das Ziel weggelasen werdern kann, da ich ohne "with Ziel" arbeite.
Gruß Marc

AW: Select vermeiden
12.08.2008 10:03:00
Yal
Hi Marc,
im Grund genommen möchtest Du alle Zellen in der Arbeitsblatt ausser die erste Zeile löschen. Richtig?
Sieht dann so aus:
Version 1 mit "With":
With Ziel
.Range(.Range("A2"),.Cells.SpecialCells(xlLastCell)).ClearContents
End With
Version 2 ohne "With":
Ziel.Range(Ziel.Range("A2"),Ziel.Cells.SpecialCells(xlLastCell)).ClearContents
Version 3, mit zuerst sicherstellen, dass wir uns im Blatt Ziel befinden (notiere das Weglassen der Punkten vor "Range" und "Cells" ggü die "With"-Version):
Ziel.Activate
Range(Range("A2"),Cells.SpecialCells(xlLastCell)).ClearContents
Viel Erfolg
Yal
Anzeige

Forumthreads zu verwandten Themen

automatisches Erstellen von pdf
pdf

Hallo alle zusammen,
ich nutze seit Monaten ein VBA zum automatischen Erstellen von PDF's. Grundlage war eine Muster aus Eurem Archiv Print to pdf von Ramses; habe ich auf meine Anforderungen angepasst.
Hat auch immer klaglos funktioniert.
Nun auf einmal Laufzeitfehler '429' Objekte...
07.08.2008 17:02:59
Thread-ID: 1000034
8 Beiträge
Mappe mit variablen Dateinamen aktivieren
Peter

Hallöchen an alle,
wie kann man eine geöffnete Mappe über workbooks.activate oder windows.activate ansprechen, ohne dass man den vollen Dateinamen kennt.
Dateiname = "Auftragskennzahlen(*).xls"
Das * steht für eine Zahl, die mir nicht bekannt ist, sondern von einer Web-Datenbank ver...
07.08.2008 17:27:58
Thread-ID: 1000047
4 Beiträge
fehler beim speichern - zellname existiert nicht
t4z

Hallo Leute,
folgendes Problem:
Will nach zahlreichen Änderungen in Datei A die Änderungen darin speichern. Kurz vor Ende des Speichervorgangs kommt dann die Fehlermeldung
"Microsoft Excel kann die Formel in der Zelle (Name:[Dateiname.xls]Tabellenname!solver_val) nicht konvertieren,...
07.08.2008 17:53:00
Thread-ID: 1000056
4 Beiträge
Arbeitsblätter zählen und Ergebnis verarbeiten
Botti

Hallo Leute,
heute habe ich wieder mal ein einfaches Problem für Euch, an dem ich aber nicht weiter kommen:
Ich möchte die Arbeitsblätter in meiner Arbeitsmappe zählen. Das ist ja kein Problem (ThisWorkbook.sheets.count).
wenn das makro mehr als ein Arbeitsblatt zählt (also das Erge...
07.08.2008 19:11:30
Thread-ID: 1000078
8 Beiträge
Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Cursor springt in die Pampa - MultiLine TextBox
Kilo

Hallo liebe VBA Profis
ich bin auf ein für mich nicht lösbares Problem - vielleicht sogar Phänomen gestoßen...
Leider kann ich keine Phänomene dieser Art gebrauchen.
Damit es für Sie etwas anschaulicher wird, hab ich mein Problem als Beispiel (https://www.herber.de/bbs/user/54427.xl...
07.08.2008 20:31:08
Thread-ID: 1000095
2 Beiträge
Leeren von Textfeldern
Textfeldern

Hallo
brauch mal wieder Hilfe!
in meiner Userform sind einige Textboxen und comboboxen mit Werten zur weiteren Berechnung gefüllt.
jetzt die Frage: Gibt es einen Möglichkeit mit einen CommantButton alle Inhalte der textboxen und Comboboxen mit einem Click zuleeren um sie neu zubefül...
07.08.2008 22:26:00
Thread-ID: 1000114
11 Beiträge
Farbige Zellen suchen und Zuordnung auflisten
Excel-Opfer

Hallo zusammen,
ich hab nicht so die Ahnung von Makros und Automationen im Excel, bräuchte allerdings "dringend" eine Vereinfachung meines Excelchaos.
es dreht sich um folgende Problematik:
ich muss diverse Dienstpläne in unsere Personalplanung einarbeiten, leider liefert eine Abtei...
08.08.2008 06:47:00
Thread-ID: 1000143
16 Beiträge
Komplizierte Wenn-Formel für kicker-Spiel
Frank

Hallo miteinander,
ich möchte eine Excel-Datei für das offizielle Fussball-kicker-Managerspiel erstellen, leider scheitere ich total an (vermutlich) den WENN-Formeln ..... vielleicht ist das aber auch gar nicht möglich, was ich erreichen möchte :-(
In der Tabelle sollte man in Spalte A...
08.08.2008 07:28:06
Thread-ID: 1000146
4 Beiträge
Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Wenn-Formel und Drop-down Menü
Tommy

Hallo,
ich habe ein Problem.
Ich möchte immer dann, wenn ich einen Wert im Drop-down Menü auswähle, dass eine bestimmte Zelle gelöscht wird. Ein vereinfachtes Beispiel seht Ihr im Anhang.
https://www.herber.de/bbs/user/54449.xls
Danke & Gruss
Tommy
08.08.2008 14:41:00
Thread-ID: 1000304
3 Beiträge
Copy Paste Problem mit VBA
Chris

Hallo Leute,
ich habe ein Makro geschrieben, das ein aus SAP gezogenes Spreadsheet in ein formatiertes Excel File umwandelt.
Jetzt taucht plötzlich folgendes Problem auf:
Ein String wird in Zelle "A1" geschrieben, der Buchstaben und steuercode enthält.
D.H. ich habe in dieser Ze...
08.08.2008 15:10:35
Thread-ID: 1000317
11 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige