Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 14:14:51
Summewenn letzter Eintrag
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1420to1424
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
1420to1424
1420to1424
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vermeiden von "Sheets("Tabelle1").Select"

Vermeiden von "Sheets("Tabelle1").Select"
21.04.2015 19:05:43
"Sheets("Tabelle1").Select"
Hallo,
ich bin seit einigen Tagen dabei VBA zu nutzen. Eigentlich klappt es ziemlich gut.
Nun sitze ich seit mehreren Stunden an einem Problem:
Und zwar muss ich jedesmal den Code "Select Sheet" nutzen da es sonst zum Laufzeitfehler 1004 kommt. Wie kann ich das vermeiden?
Dieser Code funktioniert:
Sub Gamsblatt()
' Gamsdatenblatt_erstellen Makro
'Replace "Sheet1" with the name of the sheet to be copied.
ActiveWorkbook.Sheets("Gams_Bsp-Bsp").Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = "Gams_Neu-Neu"
' Parameter definieren
Dim lspalte2 As Long
lspalte2 = Worksheets("Daten_Neu-Neu").Cells(8, Columns.Count).End(xlToLeft).Column
Sheets("Daten_Neu-Neu").Select
ActiveSheet.Range(Cells(8, 1), Cells(8, lspalte2)).Copy
 ActiveSheet.Paste Destination:=Worksheets("Gams_Neu-Neu").Range("C4")
Worksheets("Gams_Neu-Neu").Range("B5").PasteSpecial Transpose:=True
Application.CutCopyMode = False
'Formel einfügen in Zelle C5
Sheets("Gams_Neu-Neu").Range("C5").FormulaR1C1 = _
"=IF(COUNTIF('Daten_Neu-Neu'!R[9]C2:R[9]C15,'Gams_Neu-Neu'!R4C),'Gams_Neu-Neu'!R3C,)"
'Matrix_Ausfuellen
Dim LastCol1 As Long, LastRow1 As Long
LastCol1 = Sheets("Gams_Neu-Neu").Cells(4, Columns.Count).End(xlToLeft).Column
LastRow1 = Sheets("Gams_Neu-Neu").Cells(Rows.Count, "B").End(xlUp).Row
Sheets("Gams_Neu-Neu").Select
Sheets("Gams_Neu-Neu").Range("C5", Cells(LastRow1, LastCol1)).FormulaR1C1 = Sheets(" _
Gams_Neu-Neu").Range("C5").FormulaR1C1
End Sub

Dieser Code funktioniert nicht (aber so hätte ich ihn eigentlich in der Art):
Sub Gamsblatt()
' Gamsdatenblatt_erstellen Makro
'Replace "Sheet1" with the name of the sheet to be copied.
ActiveWorkbook.Sheets("Gams_Bsp-Bsp").Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = "Gams_Neu-Neu"
' Parameter definieren
Dim lspalte2 As Long
lspalte2 = Worksheets("Daten_Neu-Neu").Cells(8, Columns.Count).End(xlToLeft).Column
Sheets("Daten_Neu-Neu").Range(Cells(8, 1), Cells(8, lspalte2)).Copy Destination:=Worksheets( _
"Gams_Neu-Neu").Range("C4")
Worksheets("Gams_Neu-Neu").Range("B5").PasteSpecial Transpose:=True
Application.CutCopyMode = False
'Formel einfügen in Zelle C5
Sheets("Gams_Neu-Neu").Range("C5").FormulaR1C1 = _
"=IF(COUNTIF('Daten_Neu-Neu'!R[9]C2:R[9]C15,'Gams_Neu-Neu'!R4C),'Gams_Neu-Neu'!R3C,)"
'Matrix_Ausfuellen
Dim LastCol1 As Long, LastRow1 As Long
LastCol1 = Sheets("Gams_Neu-Neu").Cells(4, Columns.Count).End(xlToLeft).Column
LastRow1 = Sheets("Gams_Neu-Neu").Cells(Rows.Count, "B").End(xlUp).Row
Sheets("Gams_Neu-Neu").Range("C5", Cells(LastRow1, LastCol1)).FormulaR1C1 = Sheets(" _
Gams_Neu-Neu").Range("C5").FormulaR1C1
End Sub

Danke schonmal für die Hilfe. Ich hoffe, dass ich alle Regeln soweit eingehalten habe.

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

Betreff
Datum
Anwender
Anzeige
AW: Vermeiden von "Sheets("Tabelle1").Select"
21.04.2015 19:14:07
"Sheets("Tabelle1").Select"
vielleicht so? 
Option Explicit
Sub Gamsblatt()
ActiveWorkbook.Sheets("Gams_Bsp-Bsp").Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = "Gams_Neu-Neu"
Dim lspalte2 As Long
lspalte2 = Worksheets("Daten_Neu-Neu").Cells(8, Columns.Count).End(xlToLeft).Column
With Sheets("Daten_Neu-Neu")
.Range(.Cells(8, 1), .Cells(8, lspalte2)).Copy Worksheets("Gams_Neu-Neu").Range("C4")
Worksheets("Gams_Neu-Neu").Range("B5").PasteSpecial Transpose:=True
.Range("C5").FormulaR1C1 = _
"=IF(COUNTIF('Daten_Neu-Neu'!R[9]C2:R[9]C15,'Gams_Neu-Neu'!R4C),'Gams_Neu-Neu'!R3C,) _
Dim LastCol1 As Long, LastRow1 As Long
End With
LastCol1 = Sheets("Gams_Neu-Neu").Cells(4, Columns.Count).End(xlToLeft).Column
LastRow1 = Sheets("Gams_Neu-Neu").Cells(Rows.Count, "B").End(xlUp).Row
Sheets("Gams_Neu-Neu").Range("C5", Cells(LastRow1, LastCol1)).FormulaR1C1 = Sheets("  _
Gams_Neu-Neu").Range("C5").FormulaR1C1
End Sub


Anzeige
AW: Vermeiden von "Sheets("Tabelle1").Select"
21.04.2015 19:42:29
"Sheets("Tabelle1").Select"
Was bringt das "With"? Bindet der sozusagen das Tabellenblatt ein?
Leider entsteht aber trotzdem der Laufzeitfehler 1004

AW: Vermeiden von "Sheets("Tabelle1").Select"
21.04.2015 19:47:38
"Sheets("Tabelle1").Select"
das ist der Bezug zur Tabelle.
Ich baue keine Datei nach, die Zeit hat schon jemand investiert.
Ein Nachbau sieht bestimmt anders aus als das Original.
Ein Link zur Datei oder ein Tabellen Ausschnitt nicht als Bild wäre nicht schlecht.
Gruß Hajo

AW: Vermeiden von "Sheets("Tabelle1").Select"
21.04.2015 19:20:17
"Sheets("Tabelle1").Select"
Hi
wenn du Range(Cells(), Cells()) verwendest, muss das Worksheet nicht nur vor der Range, sondern auch vor den beiden Cells innerhalb der Range stehen: 
Worksheets().Range(Worksheets().Cells(), Worksheets().Cells())
befindet sich der Code in einem allgemeinen Modul, darf sogar das Worksheet VOR der Range entfallen, aber vor den beiden Cells innerhalb der Range muss es stehen: 
Range(Worksheets().Cells(), Worksheets().Cells())
da das den Code etwas unnübersichlich macht, sollte man hier den Zellbereich etwas andes beschreiben, bspw anstelle von:
Range(Cells(8, 1), Cells(8, lspalte2))
nimm man:
Cells(8, 1).Resize(1, lspalte2)
dann muss man das worksheet nur einmal schreiben.
Gruß Daniel

Anzeige
AW: Vermeiden von "Sheets("Tabelle1").Select"
21.04.2015 19:41:01
"Sheets("Tabelle1").Select"
Hallo Daniel,
also hier klappt das wunderbar: 
Dim lspalte2 As Long
lspalte2 = Worksheets("Daten_Neu-Neu").Cells(8, Columns.Count).End(xlToLeft).Column
Sheets("Daten_Neu-Neu").Cells(8, 1).Resize(1, lspalte2).Copy
ActiveSheet.Paste Destination:=Worksheets("Gams_Neu-Neu").Range("C4")
Worksheets("Gams_Neu-Neu").Range("B5").PasteSpecial Transpose:=True
Application.CutCopyMode = False
Wie bekomme ich nun das "ActiveSheet.Paste" noch weg?
Und weiter unten fügt er mir leider zu viele Spalten und Zeilen ein bei folgendem Code:
Dim LastCol1 As Long, LastRow1 As Long
LastCol1 = Sheets("Gams_Neu-Neu").Cells(4, Columns.Count).End(xlToLeft).Column
LastRow1 = Sheets("Gams_Neu-Neu").Cells(Rows.Count, "B").End(xlUp).Row
Sheets("Gams_Neu-Neu").Cells(5, 3).Resize(LastRow1, LastCol1).FormulaR1C1 = Sheets("Gams_Neu-Neu").Range("C5").FormulaR1C1

Anzeige
AW: Vermeiden von "Sheets("Tabelle1").Select"
21.04.2015 19:47:29
"Sheets("Tabelle1").Select"
Hi
die Alternive zu ActiveSheet.Paste hast du doch schon selber in deinem Code verwendet: 
ZielZelle.PasteSpecial xlPasteAll

(bei Zielzelle gibt man die linke obere Zelle des Zielbereichs an)
bei Resize musst du immer die Anzahl der Zeilen oder Spalten angeben.
wenn jetzt Start- und Endzeile/-spalte bekannt sind und der Startwert nicht 1 ist, musst du die Anzahl berechnen:
EndWert - StartWert + 1
Gruß Daniel

AW: Vermeiden von "Sheets("Tabelle1").Select"
21.04.2015 20:00:09
"Sheets("Tabelle1").Select"
Danke! Hat geklappt.
Sub Gamsblatt()
' Gamsdatenblatt_erstellen Makro
'Replace "Sheet1" with the name of the sheet to be copied.
ActiveWorkbook.Sheets("Gams_Bsp-Bsp").Copy After:=Sheets(ActiveWorkbook.Sheets.Count)
ActiveSheet.Name = "Gams_Neu-Neu"
' Parameter definieren
Dim lspalte2 As Long
lspalte2 = Worksheets("Daten_Neu-Neu").Cells(8, Columns.Count).End(xlToLeft).Column
Sheets("Daten_Neu-Neu").Cells(8, 1).Resize(1, lspalte2).Copy
Worksheets("Gams_Neu-Neu").Range("C4").PasteSpecial xlPasteAll
Worksheets("Gams_Neu-Neu").Range("B5").PasteSpecial Transpose:=True
Application.CutCopyMode = False
'Formel einfügen in Zelle C5
Sheets("Gams_Neu-Neu").Range("C5").FormulaR1C1 = _
"=IF(COUNTIF('Daten_Neu-Neu'!R[9]C2:R[9]C15,'Gams_Neu-Neu'!R4C),'Gams_Neu-Neu'!R3C,)"
'Matrix_Ausfuellen
Dim LastCol1 As Long, LastRow1 As Long
LastCol1 = Sheets("Gams_Neu-Neu").Cells(4, Columns.Count).End(xlToLeft).Column
LastRow1 = Sheets("Gams_Neu-Neu").Cells(Rows.Count, "B").End(xlUp).Row
Sheets("Gams_Neu-Neu").Cells(5, 3).Resize(LastRow1 - 4, LastCol1 - 2).FormulaR1C1 = Sheets( _
"Gams_Neu-Neu").Range("C5").FormulaR1C1
End Sub

Anzeige

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
9
4
4