Problem mit Zuweisung Name eines Sheets

Hallo und guten morgen an alle Excel Profis und Forumsbesucher,
ich habe ein großes problem bei dem ih nicht weiß was ich tun soll.
Ich habe eine Quell datei und eine Source Datei.
Evtl. können die Sheet Namen unterschiedlich ausfalllen.
Aber des Code Name "ws_Aenderungen" bleibt gleich.
Jetzt greife ich von der Source Datei auf diesen namen(ws_Aenderungen) zu.
es kommt aber immer ein fehler.
Könnt ihr mir helfen ? Der Code versucht nämlich aus der Source Tabelle das Sheet mit dem Namen ws_Aenderungen zu bearbeiten.
Aber in der Source also Quelle heißt das Sheet anders.
Wo muss ich das Source noch davor schreiben in diese zeile
ALT:
Source.Worksheets([ws_Aenderungen].Name).Cells.EntireColumn.Hidden = False
So soll es sein.(Nur wohin das source schreiben ?
Source.Worksheets("Source" [ws_Aenderungen].Name).Cells.EntireColumn.Hidden = False
Vielen Dank im voraus gruß Chris

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Jochen,
so funktioniert der code auch.
es werden in der Quelle die zeilen eingeblendet.
Aber die 2 für das zweite Sheet kann ich nicht verwenden.
Weil das Sheet auch an einer anderen Position sein kann.
deshalb verwende ich "ws_Aenderungen" in der Zeile.
Source.Worksheets([ws_Aenderungen].Name).Cells.EntireColumn.Hidden = False
und da ist das Problem.
dieser Code:
Source.Worksheets(2).Cells.EntireRow.Hidden = False
liefert mir einen anderen Sheet namen wie dieser:
Source.Worksheets([ws_Aenderungen_Prozess].Name).Cells.EntireRow.Hidden = False
Kannst Du mich verstehen ?
Hier noch einmal versucht das ganze zu erklären:
Public Sub daten_holen_von_Orginal()
Dim a As Byte
Dim x As Long
Dim xMax As Long
Dim y As Long
Dim z As Long
Dim Destination As Workbook
Dim DestinationS As Worksheet
Dim Source As Workbook
Dim SourceS As Worksheet
Dim HasFound As Boolean
Dim Antwort As Byte
Dim zelle As Range
Dim ZelleZiel As Object
Dim ZelleQuelle As Object
Dim IntersectName As String
Dim IntersectName2 As String
Dim SpalteStart As Byte
Dim Gefunden As Boolean
Dim aktnr
Dim Wo
Dim zzz
Dim Wo1
Dim h
Application.EnableEvents = False
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'Ziel(Destination) = aktuell geöffnete Liste
Set Destination = ActiveWorkbook
Form_Wait.Show
Form_Wait.Repaint
'Quelle(Source) = Orginal Status Liste
Set Source = Workbooks.Open(ws_settings.Range("constZentralPfad") & ws_settings.Range("constZentralDateiname"), False, True) 'Source = Orginal
'Alle Spalten einblenden - in Source Datenbank
Source.Worksheets([ws_Aenderungen_P].Name).Cells.EntireColumn.Hidden = False
'^^^^^^^^^^^^hier ist der fehler.Ich will in der Source die Spalten einblenden. ^^^^^^^^^^^
Aber in dem namen "Source.Worksheets([ws_Aenderungen_P].Name)" steht nicht der Namen der Tabelle wie er auch in der Source tabelle wirklich heißt sondern der Namen wie er in der aktuellen datei in der sich das Makro befindet heißt.
Ist es jetzt etwas klarer ?
Vieln dank an alle die mir helfen können!

Dim ws_Aenderungen as WorkSheet, Source as Workbook, wks as Worksheet Set Source = Workbooks.Open(....) for each wks in Source.Worksheets if wks.Codename="ws_Aenderungen" then set ws_Aenderungen=wks End if Next wks ...

Beliebteste Forumthreads (12 Monate)

Problem mit Zuweisung Name eines Sheets

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread