vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB Skript (VBS)
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.

[u]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
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Betriebssystem aus Excel steuern - Daten kopieren1.775Mirko Lindgens10.04.08 08:46
Re: Betriebssystem aus Excel steuern - Daten kopieren1.363me3683511.04.08 10:55
Re: Betriebssystem aus Excel steuern - Daten kopieren1.014Mirko Lindgens14.04.08 11:33
Re: Betriebssystem aus Excel steuern - Daten kopieren1.142Mirko Lindgens28.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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel