Knüller: vb@rchiv Offline-Reader - Die Offline-Wissensdatenbank

Tools & Components Anzeigen

Unser Tipp: Alle Online-Forenbeiträge aus dem vb@rchiv - gesammelt in einer Offline-Wissendatenbank, mit Internet-Update-Funktion, u.v.m.

Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Betriebssystem aus Excel steuern - Daten kopieren
Autor: Mirko Lindgens
Datum: 28.05.08 11:04
Hallo Thomas. So Kollege wieder gesund - ich muss nicht an der Druckmaschine arbeiten, und der Urlaub ist auch vorbei... Danke nochmal für deine Mühe. Hab so meine Probleme mit deinem Script. Hallo Mirko, Diese Frage hättest Du besser ins VB Classic Einsteiger Forum geschieben. Es geht so: Öffne das VBA Fenster [Alt]+[F11]. Blende den Project Exploere ein [Strg]+[R] (oder übers Menü). Öffne (Doppelklick) im Ordner Excel Objects das Tabellenblatt, das Deine Daten enthält. Jetzt müsste ein leeres Fenster erscheien, in dem nur "Option Explicit" steht und über dem zwei Dropdown Felder sind, in denen "General" und "(Deklarations)" steht. TIPP: Wenn "option Explicit" nicht drin steht, schreibe es rein und gehe im Menü (Extras - Optionen) in den Dialog und aktiviere die Option "Variablen Deklaration" erzwingen. Dann fallen Tippfehler bei Variablen bereits beid er Eingabe auf. Jetzt wähle aus dem linken Dropdown das "Worksheet" und aus dem Rechten "BeforeDoubleClick". Die Private Sub Worksheet_SelectionChange(ByVal Target As Range) ... End Sub kannste wiederlöschen. Wir arbeiten jetzt nur mit der Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As _ Boolean) End Sub Die füllen wir jetzt mit leben. Zuerst Laden wir die Daten aus dem Arbeitsbaltt in Variablen: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As _ Boolean) Dim queS As String ' Quell Pfad Dim zilS As String ' Ziel Pfad Dim filS As String ' Datei Name Dim WS as Excel.Worksheet ' Das Arbeitsbaltt Dim rwL As Long ' Excel Zeile set WS = Target.Tarent rwL = Target.Tow filS=WS.Cells(rwL,1).Text queS=WS.Cells(rwL,2).Text zilS=WS.Cells(rwL,3).Text Msgbox "Kopiere:" & filS & vbcrlf & "aus: " & queS & vbcrlf & "nach:" & zilS Cancel=true End Sub Wenn Du jetzt eine Zelle in der Zeile mit Deinen Daten doppelt anklickst, erscheient eine Message Box, die Dir Deinen "Auftrag" annzeigt. Bis hierher alles klar. Allerdings klappt das mit dem Doppelklick in der Excellliste nicht... Was mich auch wundert: müsste dieses Script nicht in den Macros auftauchen? Tut es nicht... Bis dann Mirko

Betriebssystem aus Excel steuern - Daten kopieren	309	Mirko Lindgens	10.04.08 08:46
Re: Betriebssystem aus Excel steuern - Daten kopieren	134	me36835	11.04.08 10:55
Re: Betriebssystem aus Excel steuern - Daten kopieren	109	Mirko Lindgens	14.04.08 11:33
Re: Betriebssystem aus Excel steuern - Daten kopieren	90	Mirko Lindgens	28.05.08 11:04

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen