AW: Enfache Loop Schleife
12.12.2018 17:02:45
Anna
Achso ok.
Also ich habe eine Tabelle, welches Artikelnummern in Spalte B hat. Von B1 bis BX sind nur Strings.
Hier sind die Codes für die anderen Makros:
Public Sub Clipboard(text)
Dim oData As New DataObject
oData.SetText text
oData.PutInClipboard
End Sub
Public Function HoleTextVonZwischenablage() As String
Dim oData As New DataObject
On Error Resume Next
oData.GetFromClipboard
HoleTextVonZwischenablage = oData.GetText
End Function
und
Private Declare Sub mouse_event Lib "user32.dll" _
(ByVal dwFlags As Long, ByVal dx As Long, _
ByVal dy As Long, ByVal dwdata As Long, _
ByVal dwExtraInfo As Long)
Private Declare Function SetCursorPos Lib "user32" _
(ByVal X As Long, ByVal Y As Long) As Long
Sub MausLinks_Klick()
Const MOUSEEVENT_LEFTDOWN = &H2
Const MOUSEEVENT_LEFTUP = &H4
'Position 1. Parameter Horizontal, 2.Parameter Vertikal
SetCursorPos 503, 920
mouse_event MOUSEEVENT_LEFTDOWN, 0, 0, 0, 0 'linksklick
mouse_event MOUSEEVENT_LEFTUP, 0, 0, 0, 0 'Taste loslassen
mouse_event MOUSEEVENT_LEFTDOWN, 0, 0, 0, 0 'linksklick
mouse_event MOUSEEVENT_LEFTUP, 0, 0, 0, 0 'Taste loslassen
End Sub
Mein Code soll eine Zeile aus der Excel Tabelle kopieren und in einem Anderen Programm in eine Zeile für das Angebot einfügen. Danach soll im Programm mit der Pfeiltaste nach unten in die neue leere Spalte und dann soll in Excel die nächste Zeile kopiert werden und wieder in das Anegbotsprogramm eingefügt werden. Dann wieder mit der Pfeiltaste nach unten für die nächste leere Spalte und das solange bis alle Artikel der Excel eingefügt wurden.