Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1832to1836
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
1832to1836
1832to1836
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA ohne Sheets(xxx).Select

VBA ohne Sheets(xxx).Select
27.05.2021 21:13:30
W
Hallo Forum,
Ich verarbeite derzeit ca. 50 Datenbestände, die ich zuerst in einen Array einlese. Danach möchte ich das jeweilige Tabellenblatt inhaltlich löschen, um dann den Array in das leere Blatt zu laden.
Der Ablauf funktioniert, wenn ich zuvor das Ziel-Blatt mit Sheets(xx).Select aktiviere.
Lasse ich den Sheets(xxx).Select weg, erhalte ich an 2 Stellen einen Laufzeitfehler 410. Es sind die Befehle, die fett geschrieben sind.
Meine 4 Befehle:
Worksheets(BlattName).Select
Worksheets(BlattName).Cells.Select
Selection.Delete Shift:=xlUp
Worksheets(BlattName).Range(Cells(1, 1), Cells(AddRows + 1, AddCols + 1)) = WorksheetFunction.Transpose(FuncRC)
Das Füllen des Tabellenblattes habe ich auch schon ohne Transpose gemacht
Wie kann ich das Problem lösen, ohne bei den oben genannten Befehlen vorher das entsprechende Tabellenblatt zu aktivieren?
Gruß
Werner

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA ohne Sheets(xxx).Select
27.05.2021 21:28:44
EtoPHG
Hallo Werner,
so?

With Worksheets(Blattname)
.UsedRange.Delete Shift;=xlUp
.Range(.Cells(1, 1), .Cells(AddRows + 1, AddCols + 1)) = WorksheetFunction.Transpose(FuncRC)
End With
Gruess Hansueli
AW: VBA ohne Sheets(xxx).Select
27.05.2021 21:49:01
W
Hallo Hansueli,
herzlichen Dank für Deinen Codiervorschlag, mit dem ich erfolgreich und ohne Select die Daten in die Tabelle gebracht habe.
Außerdem habe ich festgestellt, dass meine Daten falsch in die Tabelle geschrieben werden, wenn ich "WorksheetFunction.Transpose(FuncRC)" verwende. Es ist eine 2D-Array. Nur mit "= FuncRC" werden die Daten richtig übertragen.
Hätte nicht gedacht, dass das Problem noch heute gelöst würde.
Gruß
Werner
Anzeige
AW: VBA ohne Sheets(xxx).Select
27.05.2021 21:43:07
Daniel
Hi
1. Referenziere vollständig, dh wenn du mit mehrern Tabellenblättern arbeitest, muss das Sheet(xxx) vor JEDES Range, Cells, Columns und Rows gesetzt werden.
ohne die Sheetangabe geht der Bezug immer auf das aktive Tabellenblatt.
das gilt auch für die Cells innerhalb von Range! der Fehler kommt, wenn die Cells auf ein anderes Tabellenblatt refernzieren als die Range, die sie definieren sollen.
da das Range(Cells, Cells) mit Tabellenblattangabe vor den beiden Zells zu aufwendig wird, verwende die Resize-Funktion um den Bereich zu beschreiben, das vermeidet auch weitere Umrechungen, falls der Zielbereich nicht in A1 beginnt, sondern in einer anderen Zelle

Worksheets(BlattName).Cells(1, 1), Resize(AddRows + 1, AddCols + 1) = WorksheetFunction.Transpose(FuncRC)
2. Selektiere nicht. Hänge ansatt .Select den eigentlichen Befehl an den Zellbereich direkt an
aus 

Worksheets(BlattName).Select
Worksheets(BlattName).Cells.Select
Selection.Delete Shift:=xlUp
wird

Worksheets(BlattName).Cells.Delete Shift:=xlUp
Gruß Daniel
Anzeige
AW: VBA ohne Sheets(xxx).Select
27.05.2021 22:01:04
W
Hallo Daniel.
Danke für Deine Infos. Wieder etwas dazugelernt.
Gruß
Werner

118 Forumthreads zu ähnlichen Themen

[VBA] SheetSelectionChange und Hyperlinks
Nils

Hallo liebe VBA-Experten,
ich habe ein Excel-Addin mit folgendem Code in einem Klassenmodul, was mir bei Aktivierung einer Zelle in einem festgelegten Bereich ein Datum einträgt:
Private Sub mobjApplication_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim objRange As...
02.01.2018 11:43:00
Thread-ID: 1599731
6 Beiträge
Anzeige
VBA-Worksheets().Rows().Select
Alexander

Hallo Forum. Ich hab da ein neues Problem.
Das ist meine Code:
Public Deckblatt As Worksheet
Sub AddRowBySelection() Set Deckblatt = ThisWorkbook.Worksheets("Deckblatt AUD") Deckblatt.Unprotect Deckblatt.Rows(20).Select Selection.Insert (xlShiftDown) Deckblatt.Protect DrawingObjec...
25.05.2005 10:30:51
Thread-ID: 615915
10 Beiträge
VBA Worksheet_SelectionChange(ByVal Target As Rang
Anne

Hallo,
ich möchte gerne das im Arbeitsblatt Bemessung das Private Sub Worksheet_SelectionChange(ByVal Target As Range) so ausgeführt wird, dass der geänderte Wert xF auch in dem Slider sofort nach Eingabe ändert.
Bisher muß ich die Zelle (xF) nochmals anklicken um dies zu erreichen! Und...
20.07.2005 16:30:02
Thread-ID: 639928
7 Beiträge
Anzeige
VBA-Worksheets().Rows().Select
Alexander

Hallo Forum. Ich hab da ein neues Problem.
Das ist meine Code:
Public Deckblatt As Worksheet
Sub AddRowBySelection() Set Deckblatt = ThisWorkbook.Worksheets("Deckblatt AUD") Deckblatt.Unprotect Deckblatt.Rows(20).Select Selection.Insert (xlShiftDown) Deckblatt.Protect DrawingObjec...
25.05.2005 10:30:51
Thread-ID: 615915
10 Beiträge
VBA sichtbare Sheets selectieren
Erber

Hallo
wie kann mit VBA nur die sichtbaren Sheets markieren.
Sheets(Array("Netzwerk", "Netzwerk Advanced", "Update", "RDP")).Select
geht nicht da ich diese vorher ja nicht weis.
Danke im voraus
erber karl
04.01.2007 12:28:14
Thread-ID: 833643
5 Beiträge
VBA Makro Source Data ActiveSheet
Fabio

Hallo Leute,
habe ein Problem mit meinem Makro. VBA Erfahrung habe ich noch zu gut wie keine. Ich versuche momentan das Makro unabhängig vom Dateinamen zu ändern und hatte auch erste Erfolge durch den ActiveSheet Befehl. Siehe hier:
ActiveWorkbook.Worksheets(ActiveSheet.Name).AutoFilter...
16.09.2015 11:15:33
Thread-ID: 1447721
6 Beiträge
VBA - Problem bei gesetztem "ActiveSheet.Protect"
Boory@gmx.net

Hallo Forum,
in einer Zeiterfassung, in der die MA sich per Transponder-Scan einloggen, wird VBA-seitig der Blattschutz (hier PW: 12345) aufgehoben, der Wert eingetragen und dann wieder geschützt (ActiveSheet.Unprotect / ActiveSheet.Protect). Dies funktioniert problemlos! Nun möchte ich übe...
16.08.2016 08:41:29
Thread-ID: 1509455
4 Beiträge
[VBA] SheetSelectionChange und Hyperlinks
Nils

Hallo liebe VBA-Experten,
ich habe ein Excel-Addin mit folgendem Code in einem Klassenmodul, was mir bei Aktivierung einer Zelle in einem festgelegten Bereich ein Datum einträgt:
Private Sub mobjApplication_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim objRange As...
02.01.2018 11:43:00
Thread-ID: 1599731
6 Beiträge

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
5
10
9
6
4
9
4
5
3
5
1
1
1
7
9
6
8
2
4
11
5
5
3
2
1