Zahlenwert aus Zwischenablage

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Declare Function OpenClipboard Lib "user32.dll" (ByVal hWnd As Long) As Long Private Declare Function EmptyClipboard Lib "user32.dll" () As Long Private Declare Function CloseClipboard Lib "user32.dll" () As Long Private Declare Function IsClipboardFormatAvailable Lib "user32.dll" (ByVal wFormat As Long) As _ Long Private Declare Function GetClipboardData Lib "user32.dll" (ByVal wFormat As Long) As Long Private Declare Function SetClipboardData Lib "user32.dll" (ByVal wFormat As Long, ByVal hMem _ As Long) As Long Private Declare Function GlobalAlloc Lib "kernel32.dll" (ByVal wFlags As Long, ByVal dwBytes As _ Long) As Long Private Declare Function GlobalLock Lib "kernel32.dll" (ByVal hMem As Long) As Long Private Declare Function GlobalUnlock Lib "kernel32.dll" (ByVal hMem As Long) As Long Private Declare Function GlobalSize Lib "kernel32" (ByVal hMem As Long) As Long Private Declare Function lstrcpy Lib "kernel32.dll" Alias "lstrcpyW" (ByVal lpString1 As Long, _ ByVal lpString2 As Long) As Long Public Sub SetClipboard(sUniText As String) Dim iStrPtr As Long Dim iLen As Long Dim iLock As Long Const GMEM_MOVEABLE As Long = &H2 Const GMEM_ZEROINIT As Long = &H40 Const CF_UNICODETEXT As Long = &HD OpenClipboard 0& EmptyClipboard iLen = LenB(sUniText) + 2& iStrPtr = GlobalAlloc(GMEM_MOVEABLE Or GMEM_ZEROINIT, iLen) iLock = GlobalLock(iStrPtr) lstrcpy iLock, StrPtr(sUniText) GlobalUnlock iStrPtr SetClipboardData CF_UNICODETEXT, iStrPtr CloseClipboard End Sub Public Function GetClipboard() As String Dim iStrPtr As Long Dim iLen As Long Dim iLock As Long Dim sUniText As String Const CF_UNICODETEXT As Long = 13& OpenClipboard 0& If IsClipboardFormatAvailable(CF_UNICODETEXT) Then iStrPtr = GetClipboardData(CF_UNICODETEXT) If iStrPtr Then iLock = GlobalLock(iStrPtr) iLen = GlobalSize(iStrPtr) sUniText = String$(iLen \ 2& - 1&, vbNullChar) lstrcpy StrPtr(sUniText), iLock GlobalUnlock iStrPtr End If GetClipboard = sUniText End If CloseClipboard End Function

Hallo Ralph,
eigentlich wurden Dir hier schon Lösungen angeboten, ich gehe trotzdem nochmal drauf ein.
Du reitest immer darauf rum, dass es Text sein muss, der in der Zwischenablage ist, Du aber eine Zahl holst. Der Unterschied für die verwendete Routine, um aus VBA heraus etwas sinnvolles aus der Zwischenablage rauslesen zu können, besteht aber darin, dass entweder eine Zeichenkette drin liegt, oder eine Nicht-Zeichenkette (z.B. eine Grafik). Eine Zeichenkette ist das, was Du in all Deinen Recherchen zu dem Thema als Text gelesen hast. Das kann selbstverständlich auch eine Zahl sein, es kann ein langer Text mit vielen Zeilenumbrüchen sein und es kann eine leere Zeichenkette sein. Was da drin steht ist Excel völlig egal, solange es sich ausschließlich um Zeichen handelt, die mit einer Excel bekannten Kodierung dekodiert werden können.
Das Zeichen A z.B. hat im ASCII den Code 65. Das Zeichen 1 hat den Code 49. Das das eine ein Buchstabe und das andere eine Ziffer ist spielt dabei keine Rolle. Wenn Du in vba folgenden Code schreibst, bekommst Du eine MessageBox mit der Ausgabe A1 angezeigt:

MsgBox CHR(65) & CHR(49)

(Siehe z.B. http://www.torsten-horn.de/techdocs/ascii.htm)
Wenn Du nun eine Zeichenkette aus der Zwischenablage holst und sicher bist, dass es eine Zahl ist, dann kannst Du den Wert direkt einer entsprechenden Variablen zuweisen und dabei einfach die entsprechende Funktion zur Typumwandlung verwenden (das wurde Dir hier auch schon gezeigt). Bei Roulette Zahlen würde ich den Datentyp Byte für die Variable verwenden:

rouletteZahl = Cbyte(oData.GetText)

Wobei oData ein DataObject ist, dass auf der Seite hinter folgendem Link verwendet wird. Schau da rein, dann verstehst Du diese Zeile besser und kannst Dein Problem mit der Zwischenablage vermutlich lösen. Beachte den Hinweis auf die Forms 2.0 Objektlibrary. (Was sich da seit 2004 geändert hat, weiß ich allerdings nicht.)
http://www.online-excel.de/excel/singsel_vba.php?f=28
Ich weiß, dass es mit dem auf der verlinkten Seite gezeigten Code funktioniert, weil ich damit jeden Monat mehrere 100.000 Zugriffe auf die Zwischenablage ausführe. Dabei arbeite ich mit einem Programm, dass Hashes für Bilder berechnet und nur auf der Konsole arbeitet. Das Ergebnis lasse ich in die Zwischenablage ausgeben und hole es dann zur Weiterverarbeitung von dort in mein Makro.
Viele Grüße,
Zwenn

Hallo Zwenn, ich will aber wirklich akribisch besser werden, baue mir eine riesige Datenbank auf, in der nicht nur die tausend Seiten Bände wie die Microsoft Handbücher Seite für Seite eingearbeitet werden, mit Stichworten, um die Themen zu finden, aber auch mit einer anderen Tabelle etwa, die das Ganze in der Art des Forum hier, also nach Zweck und dessen Lösung, eine Tabelle mit dem Befehlsregister etc. Aber das dauert alles natürlich seine Zeit. Eine Lebensaufgabe.
Auch das mit den API Funktionen hab ich theoretisch schon gehört. Aber das beherrscht man natürlich besser, wenn man die Funktionen kennt. Das wird alles kommen....aber noch brauche ich Hilfe. Bei den THemen im Forum kriege ich immmer mehr den Eindruck, ich kann alle Bücher durchhaben (Zu Excel insgesamt sind es 32 Stück) und weiss noch immer erst die Hälfte. Zudem gibt es oft mehrere Wege zumm selben Ziel etc.
Pass auf, ich will eigentlich den Wahnsinn bauen:
Ich hab schon länger eine sehr aufwändige Roulette-Anwendung gebaut, bei der ich unter anderem mit einer kleinen Routine, die ich gerade noch hinbekomme, immer die aktuelle Zahl einfüge...
Ich drücke F1, es erscheint eine Inputbox, ich schreibe die aktuell gefallene Zahl rein, die wandert intern ja in eine Variable und wird dann in Spalte M mit Versatz immer eine Zeile tiefer eingefügt, so dass am Ende bis zu 200 Zahlen darin untereinander stehen können.
Nun hab ich schon länger die Wahnsinnsidee, dieses Spiel zu automatisieren. Das einzige Problem war bisher noch, wie ich die im Online Casino gefallene Zahl automatisch in die Tabelle bekomme.
Nun hab ich mit Capture2Text tatsächlich eine Bildcapture-Software gefunden, die einen Bereich des Bildschirms (den mit der immer aktuellen Zahl) abfragen kann und die Zahl genau erkennt.
Unter "Diese Arbeitsmappe" in Excel hab ich dann eingerichtet, dass die entsprechende Tastenkombination dafür alle knapp 30 Sekunden (so lange ist eine Runde im Casino) immer wieder getätigt wird. D.h. alle etwa 30 Sekunden liegt die aktuelle Zahl in der Zwischenablage, denn das Capture Programm bringt sie ausschliesslich dahin.
Nun möchte ich einfach, dass die Variable die vorher den Wert der Inputbox aufgenommen hat, nun immer die Zahl aus der Zwischenablage aufnimmt, um sie dann wie bisher in das Excel Sheet kopiert, um sie dort wie bisher auch mit vielen Formeln aufgrund einer bestimmten Spielstrategie zu verarbeiten und zu ermitteln, was daraufhin gelegt werden soll. Die Strategie basiert auf Trendfolgen.
Abschliessend soll dann eine besimmte Tastenkobination, die schon jetzt für einen Maus- und Tastaturrekorder eingerichtet ist, das gewünschte (nur einfache Chancen, also klein groß, rot schwarz, gerade und ungerade) automatisch anklicken. Und dann wieder von vorn.
Wenn das gelänge, wäre das doch der Wahnsinn, den man im Museum zeigen könnte...die selbstgewinnende automatische Roulette Maschine sozusagen...jedenfalls wenn die Strategie funktioniert.
Soweit also mal erklärt. Die ganze Rechenarbeit der Strategie ist alle im normalen Excel gebaut und da braucht es die Zahlen in der Spalte M der Tabelle LIVE. Alles andere passiert im normalen Excel mangels VBA Kenntnissen

Beliebteste Forumthreads (12 Monate)

26
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

230 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zahlenwert aus Zwischenablage

26 Beiträge zum Forumthread Beiträge zu diesem Forumthread

230 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

26
Beiträge zum Forumthread

Beiträge zu diesem Forumthread