umkopiertes Register mit meinen VBA Codes ansprechen

Okner Robert Friedrich · 19. Mai 2017

Hallo zusammen,

ich habe eine Datei(aktuelles Worksheet --> "Abfrage.xlsm"), immer in einem anderen Pfad, die relativ groß war aufgeteilt in zwei Dateien, d.h. ich habe ein Register(Device_Ident) in das neue Arbeitsblatt "PS-PB_Datenbank.xlsx" verschoben.

Seit dem kann ich den Code EinEUTzurueck nicht mehr ausführen, Meldung " Index ausserhalb des gueltigen Bereichs" kommt.

Beim öffnen des aktuelles Worksheet sehe ich aber, das im Hintergrund die Datei "PS-PB_Datenbank.xlsx" aufgerufen wird(vorher wird gefragt ob Daten aktualisiert werden sollen), dies bestätige ich mit ja.

Ich dachte Excel sei so klug und würde das erkennen, das die Datei wo anders liegt und dort dann zugreifen(wofür wird dann überhaupt die Datei geöffnet wenn hier nicht drauf zugegriffen wird?).

So wie es aussieht fehlt jetzt dem VBA-Code der Pfad, kann ich diesen direkt in meine Codes integrieren oder muss ich hier neue Codes schreiben? Hier mein Code

Der Pfad lautet immer: "U:\Projekte\Projekte\" und die Datei "PS-PB_Datenbank.xlsx"

Als Hilfe habe ich mal die vermeintlichen Stellen mit "<----Hier müsste jetzt der Pfad integriert werden" markiert.

Sub EinEUTzurueck()
'
' EinEUTzurueck Makro
Dim Name As String
Name = ActiveSheet.Name
If Name = "Tabelle6" Then GoTo ueberspringen
If Name = "Device_Ident" Then GoTo ueberspringen ' <----Hier müsste jetzt der Pfad integriert werden
If Name = "Spez.Daten_PS-PB" Then GoTo ueberspringen
Call Tabelle6inPSPBloeschen
ueberspringen:
EUT = Sheets("Device_Ident").Range("A3") ' <----Hier müsste jetzt der Pfad integriert werden
If EUT = 0 Then End
Sheets("Device_Ident").Range("A3").Value = EUT - 1 ' <----Hier müsste jetzt der Pfad integriert werden
Call Tabelle6inPSPBerstellen
'End If
If Name = "Tabelle6" Then End
If Name = "Device_Ident" Then End ' <----Hier müsste jetzt der Pfad integriert werden
If Name = "Spez.Daten_PS-PB" Then End
nr = 0
Dim ANTA As String, ENTA As String, Ausblenden As Range
ANTA = "ANTA0"
ENTA = "ENTA0"
zelle = ActiveCell
y = ActiveSheet.Range(ANTA).Value
z = ActiveSheet.Range(ENTA).Value
'MsgBox "EUT wechsel -1 "
For x = y + 1 To z
nr = nr + 1
Pruefung = "Pruefung"
Pruefung = Pruefung & nr
Set Ausblenden = Range(Pruefung)
If Cells(x, 1) = "" Then '(x, 1) = (Reihe, Spalte)Abfrage
Ausblenden.Rows.Hidden = True ' Zellen Ausblenden
ElseIf Cells(x, 1) = "X" Then '(x, 1) = (Reihe, Spalte) Abfrage
Ausblenden.Rows.Hidden = False ' Zellen Einblenden
End If
Next x

End Sub

Vielen Dank für Eure Hilfe

Robert

Bernard_Par

Hallo Robert,

Bitte kopiere Deine Anfrage und erstelle einen neuen Thread in
MSDN Forum, da dies der geeignertere Ort für Deine Sachlage ist. Dort sind auch Spezialisten die mit Dir über eventuelle Workarounds diskutieren können.

Auch wenn hier Sachlagen wie Deine sehr eingeschränkt behandelt werden können, gibt es jedoch ein paar User wie Andreas mit dementsprechenden Hintergrund ähnlich wie bei MSDN, die hier eventuel doch helfen können.

Deshalb bitte lösche diesen Thread nicht.

Bei weiteren Fragen stehe ich zur Verfügung.

Beste Grüße,

Bernard

Okner Robert Friedri

Hallo Andreas,

Dein Vorschlag hilft mir weiter, habe diverse Anpassungen vorzunehmen, ersten Versuche OK.

Wollte Ursprünglich mein Device Ident in Access importieren, was auch klappt aber leider nur bis zu 255 Spalten, danach ist Schluss, Excel lässt da fast unbegrenzt zu, also Access stirbt in diesem Fall, Excel gewinnt.

Als Information: Ich arbeite an ein Toll, wo ich in einem Fenster(Register) eine Eingabe- und Ausgabemaske darstelle, die Ausgabe holt er sich aus dem Device_Ident, es existieren mehrer Register die jeweils auf das Device_Ident zugreifen.

Vielen Dank für Deine Antwort.

Robert

Andreas Killer

Der Pfad lautet immer: "U:\Projekte\Projekte\" und die Datei "PS-PB_Datenbank.xlsx"

Als Hilfe habe ich mal die vermeintlichen Stellen mit "<----Hier müsste jetzt der Pfad integriert werden" markiert.

Kannst Du vergessen, es müssen beiden Dateien offen sein und dann spielt der Pfad keine Rolle.

Aber dennoch musst Du korrekt referenzieren wenn Du Daten aus einer anderen Datei lesen willst.

Ich würde es so machen:

Dim DI As Worksheet

Set DI = Workbooks("PS-PB_Datenbank.xlsx").Sheets("Device_Ident")

EUT = DI.Range("A3")

If EUT = 0 Then Exit Sub 'Nicht End!!

DI.Range("A3") = EUT - 1

Andreas.

Claus B.

Hallo Andreas,
du kannst den Einfügevorgang entweder mit der Methode oder der Enumerations-Konstante im Code ansprechen.
Die einzelnen Werte findest du hier;
XlAutoFillType-Aufzählung (Excel) | Microsoft Learn
Claus

Hajo

Hallo Carsten,

per VBA.

starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, gehe auf Deine Datei, rechte Maustaste, Einfügen Modul, Code ins rechte Fenster kopieren, VBA Editor schließen.

Register Ansicht, Befehlsgruppe Makros, auf Makro klicken, Makros anzeigen, Makro auswählen und ausführen.

Function Unicode(code As Long)

Unicode = ChrW(code)

End Function

Und in Zelle

=unicode(256)

Gruß

Hi,

willkommen im Windows Forum!

umkopiertes Register mit meinen VBA Codes ansprechen - Similar Threads - umkopiertes Register VBA	Forum	Datum
MS Access bestimmte Zellen aus einer Tbl in VBA ansprechen MS Access bestimmte Zellen aus einer Tbl in VBA ansprechen: Hallo,da ich gerade an einer VBA Lösung arbeite, habe ich mich gefragt, wie ich bestimmte Zellen einer Tabelle in MS Access ansprechen kann.Ich habe eine Tbl namens "ID-Monat_1" und eine namens...	Microsoft Office	11. Juli 2022
Excel VBA-Code Excel VBA-Code: Hallo liebe Community,ich würde gerne den Zelleninhalt aus Zelle "E8" im Tabellenblatt "Januar" als Kommentar/Notiz in das Tabellenblatt "Februar" in der Zelle "E8" übernehmen. Als nächstes soll...	Microsoft Office	27. Mai 2022
VBA Code mit Benutzerabhängigem Dateipfad VBA Code mit Benutzerabhängigem Dateipfad: Hallo zusammen,ich muss vorab sagen, dass ich nicht wirklich viel Ahnung von Vba habe und würde euch bitten eure Antworten so einfach wie möglich zu halten.Mein Ziel ist ein Makro das Benutzer...	Microsoft Office	15. Dezember 2021
Mistake in VBA code Mistake in VBA code: Hi there, the following code ought to be used to get data from an excel file to update data in my master file. Unfortunately the process just stops, excel closes itself and tries to repair the...	Microsoft Office	18. Januar 2021
Word 2016 / VBA: Standard-Register nicht anzeigen Word 2016 / VBA: Standard-Register nicht anzeigen: Guten Tag zusammen Für die folgende Problemstellung/Frage suche ich eine Lösung: Man erstellt unterhalb des Verzeichnisses "C:\Benutzer\Benutzername\AppDataRoaming\Microsoft\Templates\" einen...	Microsoft Office	2. September 2018
Excel VBA CodeNames ansprechen Excel VBA CodeNames ansprechen: Hallo, NG, die CodeNames bei den Excel-Tabellen, also die internen Tabellennamen, sind ja eigentlich genial, um sicherzustellen, dass Makros auch dann noch funktionieren, wenn die Anwender auf...	Microsoft Office	3. März 2017
VBA Code Zeilenumbruch VBA Code Zeilenumbruch: Hallo, ich sehe den Fehler im Code nicht. Nachdem ich versucht habe einen Zeilenumbruch einzuehren geht es nicht mehr... LG Co [IMG]	Microsoft Office	6. Oktober 2016

umkopiertes Register mit meinen VBA Codes ansprechen