Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
23.04.2024 08:59:38
Bedingte Formatierung
23.04.2024 08:56:21
Mehrzeilige Zellen in einzelne Zeilen aufteilen & auswer
23.04.2024 08:26:15
Rückgabewert mehrere Suchkriterien Datumsbereich
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1596to1600
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1596to1600
1596to1600
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bearbeitungsfenster für zellinhalt

Bearbeitungsfenster für zellinhalt
19.12.2017 16:46:15
Peter
Hallo zusammen!
Ich habe eine Datentabellen, die mithilfe einer Userform mit Datensätzen gefüllt wird. Dabei soll zu jedem Datensatz Text (praktisch zur Dokumentation) hinzugefügt werden.
Nun meine Idee: Diesen Text in eine einzige Zelle schreiben und diese so programmieren, dass sich beim Klicken auf diese Zelle ein Fenster öffnet, in dem der Text (der zu Protokollzwecken dient) geändert / ergänzt werden kann.
Das Fenster soll also auch dazu da sein um den Text anzuzeigen, da dieser deutlich größer als die Zelle ist (neben der Editierfunktion).
Gibt es da eine Möglichkeit das in EXCEL mit VBA umzusetzten
Dankeschön schonmal
Grüß Peter

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bearbeitungsfenster für zellinhalt
19.12.2017 16:56:46
Hajo_Zi
Hallo Peter,
das geht. Das war ja nur die Frage. Aber ich poste noch den Code.
' ************************************************************* _ ' Modul: Tabelle1 Typ = Element der Mappe(Sheet, Workbook, ...) ' ************************************************************** Option Explicit Private Sub _ Worksheet_Change(ByVal Target As Range) If Target.Column = 2 _ Then UserForm1.TextBox1 = ActiveCell End If End Sub 




' **************************************************************

'  Modul:  UserForm1  Typ = Userform

' **************************************************************

Option Explicit

Private Sub CommandButton1_Click()

ActiveCell = TextBox

End Sub

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung. o.w.T."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.
Anzeige
AW: Bearbeitungsfenster für zellinhalt
19.12.2017 17:01:33
Hajo_Zi
Hallo Peter,
ich sehe gerade es ist die falsche Aktion. Richtig
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Gruß Hajo
AW: Bearbeitungsfenster für zellinhalt
19.12.2017 18:11:12
Peter
Hallo Hajo_Zi
danke für die schnelle antwort...
irgendwie funktioniert es bei mir noch nicht so ganz. Habe dein ersten Code mit selectionchange genommen. Ich möchte dass die besagte Funktion in Spalte 9 der Tabelle 4 greift also habe ich dein Code wie folgt in das Blatt 4 eingefügt
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 Then
UserForm1.TextBox1 = ActiveCell
End If
End Sub
Nur leider geht noch nicht... Die Namen habe ich entsprechend benannt.
Gruß Peter
Anzeige
AW: Bearbeitungsfenster für zellinhalt
19.12.2017 18:38:18
Hajo_Zi
Hallo Peter,
nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.
Gruß Hajo
Anzeige
AW: Bearbeitungsfenster für zellinhalt
19.12.2017 19:04:35
Peter
Hallo Hajo
anbei die Datei... es handelt sich um Tabelle4, in der die ganze Funktion sein soll
https://www.herber.de/bbs/user/118431.xlsm
Vielen dank
Peter
AW: Bearbeitungsfenster für zellinhalt
19.12.2017 19:11:11
Hajo_Zi
Hallo Peter,
es fehlte eine Zeile. 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 9 Then
UserForm1.TextBox1 = ActiveCell
UserForm1.Show
End If
End Sub
Es wird schon seine Grund haben, warum Du die Userform nicht so aufgebaut hast wie vorgeschlagen.
Gruß Hajo
Anzeige

Links zu Excel-Dialogen

CommandButton TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige