Textbox

[Perspektive]

Hallo allerseits,

ich habe folgendes Problem:

sehr große Datenmenge im Tabellenblatt. 
Ich möchte auf eine Zelle klicken, damit die Daten einer anderen Zelle durch ein Textfeld oder Textbox angezeigt werden und selbige durch hineinschreiben in diese Textbox ergänzt bzw. aktualisiert werden. Ist so etwas überhaupt möglich?
Vielen Dank für eure Vorschläge.

[Kuwer]

Hallo,

ja, das ist möglich. Ich würde dafür eine InputBox nehmen mit Aufruf per Doppelklick auf eine Zelle.

Gruß Uwe

[Perspektive]

Hallo Uwe,

den Doppelklick kann ich nicht nehmen. Dieser ist bereits durch das Telefonprogramm belegt. Heißt wenn ich auf die Zelle der Telefonnummer doppelt klicke wählt das Programm die Nummer über Phoner.
Gibt es noch eine andere Möglichkeit?
Gruß Perspektive

[Kuwer]

Hallo,

dann zeige doch mal das Doppelklick-Makro. Ein Makro ist, wenn man kein Exit Sub einsetzt, nicht auf eine Aktion beschränkt.

Gruß Uwe

[MisterBurns]

Alternativ kannst du das noch mittels Tastenkombination machen, die ein Makro aufruft. Ist halt Geschmackssache.
Und statt einer Inputbox könntest du auch eine kleine Userform mit einem Textfeld machen, das bringt etwas mehr Komfort bei der Texteingabe. Aber auch hier gilt - Geschmackssache.

[Perspektive]

Hallo Mister Burns,

wie müsste den das Makro aussehen, damit es funktioniert?
Könntest du mir bitte etwas helfen?

Vielen Dank.

Perspektive

[Perspektive]

Hallo Uwe,

hier das Makro:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Target.Column = 7 Then Anrufen
 Cancel = True
 End Sub


 Sub Anrufen()
 Dim A$
 A$ = ActiveCell.Value
 Telefonieren A, "C:\WindowsNT\Dialer.exe"
 End Sub

[MisterBurns]

Erweitere dein Makro so:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 7 Then
   Call Anrufen
   Cancel = True
ElseIf Target.Column = 1 Then        'Spalte auf die benötigte anpassen
   UserForm1.Show
   Cancel = True
End If
End Sub

Und die Userform findest du in der Datei anbei.