Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1988to1992
1988to1992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Eingabe Button

Forumthread: Eingabe Button

Eingabe Button
19.09.2024 13:23:06
Simon
Hallo...

Wir wollen einen Button erstellen für die Eingabe.

Userbild


Anstelle des Gelben Feldes soll hinter jeder Stadt (je nach Team bis 50) ein Eingabe Button sein,
wo der Bediener drauf drückt und es werden die Daten aus der Zwischenablage genommen.

Wir brauch aber von den Daten in der Zwischenablage nur eine bestimmte Zeile und davon nur einen Teil...

"Incoming": [
1,
2,
4,
5,
9,
6,
3,
49,
7,
14,
11
],
So heißt die Zeile, wir brauchen nur die Zahlen in der Klammer ohne diese...

Danke für Eure Hilfe....
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eingabe Button
19.09.2024 13:31:32
daniel
HI
ich würde die Aktion nicht über einen Button, sondern über das BeforeDoubleClick-Event auslösen, also Doppelklick-Event auf die Zelle, in die eingefügt werden soll
Buttons in variabler Anzahl sind immer problematisch.
oder ihr macht einen Button und fügt dann die Werte in die aktive Zelle ein.

wie wird denn die Zwischenablage gefüllt, bzw was genau wird denn kopiert?

die Zwischenablage kann man prinzipiell auslesen.
Einfacher zu programmieren ist wahrscheinlich, dass die zwischenablage erstmal in einen freien Zellbereich eingefügt wird und dann die Daten von dort übernommen werden.

Gruß Daniel
Anzeige
AW: Eingabe Button
19.09.2024 14:09:31
Simon
Hallo...

Wir holen die Daten aus dem Internet über das Developer-Tool.
wenn ich dann den Inhalt als Worddatei speichere sind es 14 Seiten...
ich weiß des andere Teams dann nur auf den Button drücken und es wird alles Berechnet..
AW: Eingabe Button
19.09.2024 14:39:20
daniel
Hi
dieses Makro holt dir den Text aus der Zwischenablage und extrahiert den Teil zwischen den eckigen klammern (beachte den Hinweis) 

Sub AusZwischenablage_zwischen_Klammern()



Dim DaOb As DataObject

Dim txt As String

Dim Pos1 As Long

Dim Pos2 As Long



'-----------------------------------------------------

' Vor erstellen des Codes

' aktiviere unter EXTRAS - VERWEISE den Verweis:

'      Microsoft Forms 2.0 Object Library

'-----------------------------------------------------



'text aus zwischenablage holen

Set DaOb = New DataObject

DaOb.GetFromClipboard

txt = DaOb.GetText



'text zwischen eckigen Klammern ermitteln

Pos1 = InStr(txt, "[")

Pos2 = InStr(txt, "]")



If Pos1 > 0 And Pos2 > Pos1 Then

    txt = Left(txt, Pos2 - 1)

    txt = Mid(txt, Pos1 + 1)

    'Text in aktive Zelle einfügen

    ActiveCell.Value = txt

Else

 Beep

End If



End Sub


wie gesagt, ich würde auf keinen Fall für jede Zelle einen Button erstellen.
verwende eine dieser Möglichkeiten
- erstelle einen Button, das Makro schreibt ja den Textt in die aktive zelle, dh erst Zelle markieren, dann Button klicken.
- du weist das Makro einer Tastenkombination zu und rufst es dann über diese auf. die Zuweisung des makros geht über Entwicklertools - Makros - Optionen.
dabei kannst du auch das klassische STRG+V verwenden (das sollte ja zum Einfügen bekannt sein.)
- starte über den Doppelklick, dazu brauchst du dieses Makro im Modul des Tabellenblatts: 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)



End Sub

du fügst dann den obigen Code ohne die erste und letzte Zeile (Kopf und Ende) hier ein
Gruß Daniel

Anzeige
AW: Eingabe Button
19.09.2024 17:36:44
Simon
Danke für deine Hilfe...
Bekomme es nicht zum Laufen.
Muss wohl ein bisschen testen.
AW: Eingabe Button
21.09.2024 08:53:15
Simon
Bekomme die Meldung

Fehler beim Kompilieren:
Benutzerdefinierter Typ nicht definiert

AW: Eingabe Button
21.09.2024 08:58:52
RPP63
Moin!
Du solltest nicht einfach kopieren, sondern den Hinweis lesen, verstehen und umsetzen.
Daniel schrieb:
»(beachte den Hinweis)«
Im Code findet sich der Kommentar: 
'-----------------------------------------------------

' Vor erstellen des Codes

' aktiviere unter EXTRAS - VERWEISE den Verweis:

'      Microsoft Forms 2.0 Object Library

'-----------------------------------------------------

Gruß Ralf
Anzeige
AW: Eingabe Button
21.09.2024 09:01:16
Simon
Hallo...

Finde ich nicht in der Liste...
Kann es sein das es bei Excel 2016 anders heißt?
AW: Eingabe Button
21.09.2024 09:08:53
RPP63
Extras → Verweise
findest Du im VBA-Editor
(da dieser seit mindestens 25 Jahren nicht mehr weiterentwickelt wird, dürftest Du auch in der 2016er-Version fündig werden)


Anzeige
AW: Eingabe Button
21.09.2024 15:11:30
Simon
Das Auslesen geht jetzt..

1. Ist es möglich die in einer bestimmten Zelle und Zeilenumbruch zu schreiben...

2. Was müsste ich hinzufügen wenn ich noch eine Info aus der Zwischenablage haben wollte..

Danke

AW: Eingabe Button
19.09.2024 18:07:00
daniel
wenn du weitere Hilfe brauchst, dann solltest du zeigen, was du schon hast, wo es hakt und was du schon alles probiert hast.
ggf solltest du dann auch mal so einen Text wie er in der Zwischenablage steht, mit in die Datei packen.
Wenn der wirklich 14 Seiten lang ist, könnte es etwas aufwendiger sein, das gewünschte herauszulesen.
Gruß Daniel
Anzeige
AW: Eingabe Button
19.09.2024 18:30:42
daniel
das funktioniert mit meinem Makro wie von dir gewünscht.
ich sehe da keinen Fehler.
wo hakt es denn bei dir?
was genau brauchst du und wie sieht dein Code aus?
Gruß Daniel
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige