gemessene Zeiten in die Zwischenablage übertragen

Guten Tag,
ich bin kein VBA Experte und verwende nur hin und wieder den Makro Recorder. Damit kann ich aber mein momentanes Problem nicht lösen. Deshalb hier mein Hilferuf:

Mit einer Zeitmessanlage und einer PC Stoppuhr messe ich die Laufzeiten bei Sportveranstaltungen. Die Stoppuhr schreibt mir die gemessenen Zeiten immer in die Zelle A1 einer Excel Tabelle. Das funktioniert prima. Wenn ich die Zelle A1 aktiviere und Str+C drücke, kann ich die Zeit in die Zwischenablage kopieren.
Ein anderer Rechner im Netzwerk kann diese dann mit Str+V in das jeweilige Auswerteprogramm übernehmen. So weit, so gut.
Bei einem Turnier habe ich mehrere Dinge zu koordinieren und es bereitet mir Stress immer im richtigen Augenblick Str+C zu drücken. Deshalb habe ich versucht diesen Vorgang mit dem Makro Recorder aufzunehmen. Die so erzeugten Makros tun aber nicht das was sie sollen. Die Zeiten kommen nicht in der Zwischenablage an.
Also immer wenn die Stoppuhr einen neuen Wert in A1 schreibt, soll dieser automatisch in die Zwischenablage geschrieben werden. Kann mir da jemand helfen?
Vielen Dank!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
das Makro zum Kopieren des Zellinhaltes muss ins ChangeEvent-Makro des Tabellenblatts.
das wird automatisch aktiv, wenn sich ein Zellwert ändern.

wenn also du die Zeit in die Zelle A1 geschrieben bekommst, brauchst du folgendes Makro im Modul des Tabellenblatts.

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("A1")) Is Nothing Then

    Range("A1").Copy

End If

End Sub

das .Copy füllt die Excelzwischenablage und es sollte die Windowszwischenablage ebenfalls befüllen.
sollte das nicht passieren, gibt es noch einen zweiten Weg, einen Inhalt in die Windowszwischenablage zu schreiben, hierzu ist allerdings eine kleine Vorbereitung notwendig:
- du musst über Extras - Verweise den Verweis auf die "Microsoft Forms 2.0 Object Library" aktivieren.
dieser Verweis wird automatisch erzeugt, wenn deine Datei einer Userform mit einer Textbox enthält (ob eine ActiveX-Textbox auf dem Tabellenblatt auch ausreicht, weiß ich nicht, müsste man mal testen.)

dann dieser Code, um den Zellwert in die zwischenablage zu schreiben.
ob du dann aber den normalen Zellwert (.Value) oder besser den Formatieren Zellwert (.Text) nimmst, musst du ausprobieren.

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myData As DataObject

Set myData = New DataObject



If Not Intersect(Target, Range("A1")) Is Nothing Then

    myData.SetText Range("A1").Value

    myData.PutInClipboard

End If

End Sub

Gruß Daniel

Beliebteste Forumthreads (12 Monate)

gemessene Zeiten in die Zwischenablage übertragen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread