VBA verschieben Tabelenblätter

Pfad = "C:\Dateipfad" PfadSt = "\Ordner Augangsdatei\" DateiSt = "Dateiname.xlsx" Workbooks.Open Filename:= Pfad & PfadSt & DateiSt 'öffnen Workbook Ausgang Set wbSt = Workbook(DateiSt) 'deklarieren des Ganzen

Ändern tun sich dabei max. folgende Aspekte: PfadTarg = "\Zielordner\" DateiTarg = "Zieldatei.xlsx" wksArray = Array("zu kopierende Worksheets") ggf. ein zweites Array --> wksArray2 = Array("an andere stelle zu kopierende Worksheets im gleichen Workbook")

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub t() Dim ar1() As Variant, ar2() As Variant Dim i As Integer ar1() = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j") ar2() = Array(True, True, True, True, True, False, False, False, False, False) For i = 0 To UBound(ar1) Select Case ar2(i) Case True Debug.Print "Verhalten 1 mit Mappe " & ar1(i) Case Else Debug.Print "Verhalten 2 mit Mappe " & ar1(i) End Select Next i End Sub

Hey Chris
vielen Dank - leider hab ich deins nicht voll und ganz verstanden aber es hat mir trotzdem zu einer Lsg verholfen^^ - vermutlich geht es eleganter aber sie läuft:

Option Explicit
Sub TabellenblattVerschieben()
'Deklarationen & anderes Gewäsch
For i = 1 To 10 '(es sind nicht immer 10 is nur im bsp so gewählt)
Select Case i
Case 1 'hier werden jetzt nacheinander alle verschiedenen Dateien aufgelistet
PfadTarg = "Testpfad\" 'Ordner wo die Datei liegt
DateiTarg = "Test.xlsx" 'Dateiname
wksArray = Array("Testsheet1", "Testsheet2") 'Zu kopierende Tabellenblätter
SheetTarg = "hier" 'Ziel des einfügens
Var = True 'Welche Rechnung
End Select
If Var = True Then
'hier folgt die Rechnung
Else
'2te Variante Rechnung
End If
Next i
End Sub

Ich hätte jedoch noch eine Frage bezüglich Deklarationen und definieren von Variablen :)
Ich benötige viele Variablen in mehreren Modulen und hab daher an stelle des bspw.


Dim wks As Worksheet

auf



Public wks As worksheet

zurückgegriffen und das klappt soweit auch
Jetzt gibt es aber bspw. auch einige Workbooks die ich in allen Modulen brauche und deshalb _ also sowas wie


Set wbTest = Workbooks("Testdatei1")

global für alle Module definiert haben will oder sowas wie



heute = wbTest.wksTest.Cells(...)

Geht das iwie und wenn ja wie :)
Vielen Dank im Vorraus :)
Matthias

Hi Matthias
Allgemein:
Mit Public Variablen würde ich nicht übertreiben. Persönlich tendiere ich eher darauf Variablen von einer Prozedur an die andere zu übergeben, aber in Einzelfällen kann eine Public-Variable natürlich durchaus Sinn machen resp. lässt sich u.U. nicht vermeiden.
Die Vorteile von Public hast du ja scheinbar bereits entdeckt, darum gehe ich nur auf die Nachteile ein:
- Der Speicherplatz bleibt die ganze Zeit belegt (Speicherplatzprobleme existieren heute zwar kaum mehr, aber ist halt so)
- Gefahr, dass gleiche Variablen lokal und öffentlich definiert werden (Fehlerquelle)
- Die Variablen können innerhalb der Applikation von irgendeiner Prozedur verändert werden. Es können Abhängigkeiten zwischen vermeintlich unzusammenhängenden Prozeduren entstehen, die nicht mehr einfach überschaubar sind.

Deklaration von Public Variablen:
Genau so wie du im Beispiel das Worksheet Public deklariert hast, kannst du auch Workbooks/Mappen öffentlich deklarieren.
Wert-/Objekt-Zuweisung:
Die Wertzuweisung erfolgt innerhalb von Prozeduren:
Variable = Wert
resp.
Set Variable = Objekt
Falls deine Prozesse immer mit der gleichen Prozedur beginnen, dann kannst du die Zuweisung innerhalb des ersten Makros vornehmen. Ansonsten könntest du dafür auch ein Workbook_Open Ereignis verwenden.
Fazit:
Es ist zu unterscheiden zwischen der Deklaration von Variablen und der Wert-Zuweisung. Nur die Deklaration erfolgt Public.

Public WB As Workbook
Public WS As Worksheet
Public strText As String
Sub t()
Set WB = Workbooks("Testdatei1.xlsm")
Set WS = WB.Worksheets("Tabelle1")
strText = WS.Cells(...)
End Sub

cu
Chris

Public WB As Workbook Public WS As Worksheet Public strText As String Sub MeinMakro() Call WerteZuweisen ' der Rest von deinem Code End Sub Sub WerteZuweisen() Set WB = Workbooks("Testdatei1.xlsm") Set WS = WB.Worksheets("Tabelle1") strText = WS.Cells(...) End Sub

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA verschieben Tabelenblätter

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread