Office: (Office 2010) Automatisches Kopieren von Text

Hallo

Ich wollte mal wissen ob es Möglich ist in Excel den Text aus einer Zelle beim Anklicken Automatisch in eine Andere Zelle oder ein Textfeld zu Kopieren.

Ich habe eine Datei mit der Auflistung von allem möglichen Zubehör zu einem Gerät, da aber nicht jedes Gerät immer das Selbe Zubehör dabei hat, möchte ich um nicht jede einzelne Zelle Kopieren zu müssen, einer Zelle anklicken und der enthaltene Text soll in eine andere Zelle oder besser noch in ein Textfeld kopiert werden. Also so wie die unten Fett markierten. So das ich dann nur noch den Text aus dem Textfeld Kopieren muss und in SAP in den Positionstext einfügen kann.

Geht das oder ist das nicht machbar?

Danke nulir

Case
Charger
Power Cord
Documentation-CD
IVIEWPC-PLUS
MDI-Software
Manual
USB Stick
Headguard
Tip Case


Case
Documentation-CD
Manual

 

Hi,

selbstverständlich ist das möglich - mittels VBA. Du kannst dazu das SelectionChange-Ereignis des Tabellenblattes benutzten, wobei ich dir aber eher einen Doppelklick als einen einfachen Klick empfehle - da hast du noch eine Sicherheit und Kontrolle, ob es tatsächlich der korrekte Text ist, der übertragen werden soll.

Bis später,
Karin

 

Danke für die Antwort. Hab ich mir irgendwie schon gedacht, na dann muss ich das wohl weiter einzeln machen, hab keinen plan von VBA

 

Leider kenne ich deinen Tabellenaufbau nicht, deshalb kann ich auch nur ganz allgemein auf dein Problem eingehen - siehe Anhang.
Klicke in Spalte A - es erscheint eine TextBox in Höhe der betreffenden Zeile. Mache einen Doppelklick in die Zelle in Spalte A - der Inhalt der doppelgeklickten Zelle wird in die TextBox geschrieben. Die Begriffe sind jeweils durch Enter getrennt. Du kannst sie markieren und per Strg+C kopieren (und dann löschen) bzw. ausschneiden mit Strg+X.

Bis später,
Karin

 

Super, Danke :)

 

Also die Liste sieht so aus.

Für die erste Spalte funktioniert das dann auch, nur halt für den rest nicht, bzw kopieren geht aber es geht kein Textfeld auf.

Den Anhang RVI Zubehör.xlsx betrachten

 

Du musst deine Mappe im Format xlsm - also "Arbeitsmappe mit Makros" - abspeichern, sonst wird der Code automatisch von Excel gelöscht beim Schließen.

Für welche Spalten soll das TextFeld denn sichtbar sein?

Bis später,
Karin

 

Hallo

War die Falsche Datei die ich Hochgeladen hab, ist schon als .xlsm gespeichert.

Also bis auf Spalte D für alle.
Bei einem Standard Teil kann das Zubehör aus allen spalten zusammengewürfelt werden.
Also aus der ersten Case...
aus der zweiten zb. XLG3PCASE......
aus der dritten XLGOBATTA.....
und aus der Tip Tabelle das gleiche

Also brauch ich am meisstens aus allen spalten 2-3 Teile.

nulir

 

Hi,

dann so:

Code:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target <> "" Then
        Application.DisplayAlerts = False
        If ActiveSheet.OLEObjects("TextBox1").Object.Text <> "" Then
            ActiveSheet.OLEObjects("TextBox1").Object.Text = _
                ActiveSheet.OLEObjects("TextBox1").Object.Text & vbLf & Target.Value
        Else
            ActiveSheet.OLEObjects("TextBox1").Object.Text = Target.Value
        End If
        Cancel = True
        Application.DisplayAlerts = False
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' alle Spalten außer D
    If Target.Column <> 4 Then
        ActiveSheet.OLEObjects("TextBox1").Top = ActiveCell.Top
        ActiveSheet.OLEObjects("TextBox1").Left = ActiveCell.Offset(0, 2).Left
        ActiveSheet.OLEObjects("TextBox1").Visible = True
    Else
        If ActiveSheet.OLEObjects("TextBox1").Visible Then _
            ActiveSheet.OLEObjects("TextBox1").Visible = False
    End If
End Sub

Bis später,
Karin

 

Hallo

jetzt kommt eine Fehlermeldung und im Debugger ist die Zeile Markiert

 

Hi,

kann ich nicht nachvollziehen - bei mir kommt kein Fehler. Ich kann das auch nicht testen, da ich nicht weiß, WANN GENAU diese Fehlermeldung auftritt und WAS GENAU der Debugger sagt.

Bis später,
Karin

 

Hallo

Ok, Ausführlicher wäre besser gewesen.
Also ich hab den Code eingefügt, wenn ich die Datei dann Gespeichert hab und Versuche ob es Funktioniert kommt diese Meldung.

 

Hi,

du hast auch eine TextBox aus den ActiveX-Steuerelementen mit dem Namen TextBox1 eingefügt? Irgendwo muss die TextBox ja her kommen :)

Bis später,
Karin

 

Hi

Also erstmal Danke für alles :)

War ein ganz Blöder Fehler, die Textbox hatte einen andere Bezeichnung, geändert und jetzt gehts :D

nulir