VBA-Forum - Das Forum zu Microsoft VBA

Ansicht des Beitrags:

Von: Florian Schwarz	Datum: 13.07.2009 15:41:10	Views: 2491	Rating:	Antwort:
Thema: Excel Sheet öffnen
Hallo Leute :) ! Ich habe folgendes Problem: Ich muss ein Excel Makro erstellen, das aus einem Excel Sheet ein weiters Excel Sheet öffnet. Nun habe ich schon einen Button erstellt und bei drücken dieses Buttons zeigt es mir die gestamte Tabelle an, aber bis Zeile 40000! Jetzt zu meinen Fragen: Kann man das mit der Zeilenanzahl irgendwie dynamisch lösen? Wie schließe ich die Datei wieder nachdem ich sie geöffnet habe? Wie kann ich das Ergebniss in einer neuen Arbeitsmappe anzeigen lassen? Wie kann ich nur bestimmte Spalten auswählen und anzeigen (dies soll Benutzerdefiniert erfolgen z.B. durch Formular) Bin ein absoluter Anfänger in diesem Bereich und es wäre super wenn mir jemand helfen könnte ;) Hier mein vorlaüfiger Code: Sub TT_Projects_Import() Dim Ziel As Workbook Set Ziel = ThisWorkbook 'für Excel Zwischenspeicherung Application.Dialogs(xlDialogOpen).Show 'öffne Quelldatei Worksheets(1).Range("1:40000").copy 'kopiere alles zur Zieldatei Ziel.Worksheets(1).Activate 'wechselt zur Zieldatei zurück Ziel.Worksheets(1).Range("1:65535").PasteSpecial _ Paste:=xlPasteValues Application.CutCopyMode = False 'setzt Zwischenablage in Datei ein Worksheets(1).Cells(1, 1).Select 'zeigt Zieldatei wieder an End Sub Besten Dank im vorraus mfg Florian

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen