Zelle aktive Zeile + zugeord. Spalte in Textfeld

Hallo und einen schönen Samstagmittag,
Ich möchte in meiner Tabelle eine schöne Lösung integrieren und kann es wieder mal nicht, weil ohne VBA wird`s nicht gehen.
In einem Textfeld soll der Textinhalt aus aktiver Zeile und der zugeordneter Spalte wiedergeben und Einträge / Änderungen in die Zelle übergeben werden.
Hier Beispiel zum besseren Verständnis:
https://www.herber.de/bbs/user/89170.xlsx
Wenn dies per VBA kein Akt ist (kann ich nicht einschätzen) wäre ich über die Lösung von einem Feld sehr dankbar, welche ich dann auf die anderen Felder übertragen kann.
Weitere Frage, bevor ich diesen Aufbau weiter betreibe:
Beeinträchtigt diese Form (insgesamt sollen es mal 7 oder 8 solche Textfelder werden) die Geschwindigkeit der Tabelle, welche sehr lang werden wird, sehr?
Wäre eine Lösung über eine Userform besser (schneller)?
In der Tabelle integriert wäre mir lieber, damit nicht ein Extra-Fenster aufgeht.
Für Infos, Hilfen schon mal besten Dank vorab.
Gruß Thorsten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub auslesen() Dim a As Variant With Worksheets("OVD") a = Application.Match(.Range("H1"), .Columns(3), 0)'sucht ID in SpalteC If IsNumeric(a) Then .RGAnschrift = .Cells(a, 19) .LAnschrift = .Cells(a, 20) .KInfo = .Cells(a, 21) .Intern = .Cells(a, 22) Else MsgBox "ID Nummer nicht vorhanden" End If End With End Sub

Hallo Hary,
vielen Dank für deinen Code. Funktioniert erst einmal. Nur soll das Einlesen nicht über einen Button erfolgen, sondern automatisch bei aktiver oder sagt man selektierter Zeile erfolgen.
Ich habe jetzt deinen Code drin und einen den ich mal von J. Ehrenberger erhalten habe. Damit steht die aktive ID immer in F1. Allerdings nur wenn die aktive Zelle in Spalte A ist.
Hier müsste der Code noch angepasst werden, dass egal in welcher Tabellenspalte ich mich befinde der Wert aus Spalte A an F1 übergeben wird.
Funktionieren soll das Ganze wie, wenn man einem Textfeld in den Eigenschaften bei LincedCell eine Zelle zuweist. Nur lautet die Zuweisung jetzt, z.B. bei dem Textfeld Rechnungsanschrift Range("=Verkauf[RGAnschrift]")) + aktive Zeile innerhalb der formatierten Tabelle.
Ich habe das Beispiel jetzt ausnahmsweise nochmal hochgeladen. Jetzt mit VBA.
https://www.herber.de/bbs/user/89179.xlsm
Wäre traumhaft, wenn das funktioniert.
Gruß Thorsten

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Row > 12 Then Range("F1") = Cells(Target.Row, 1) RGAnschrift.LinkedCell = Cells(Target.Row, 19).Address LAnschrift.LinkedCell = Cells(Target.Row, 20).Address KInfo.LinkedCell = Cells(Target.Row, 21).Address Intern.LinkedCell = Cells(Target.Row, 22).Address End If End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'aus Herbers Excelforum von Josef _ Ehrenberger -> Thosten W.(neu angepasst) If Target.Count > 1 Then Exit Sub With Worksheets("OVD").ListObjects("Verkauf") If Not Intersect(Target, Range(.DataBodyRange.Address)) Is Nothing Then Range("F1") = Cells(Target.Row, 1) RGAnschrift.LinkedCell = Cells(Target.Row, 27).Address LAnschrift.LinkedCell = Cells(Target.Row, 28).Address KInfo.LinkedCell = Cells(Target.Row, 33).Address Intern.LinkedCell = Cells(Target.Row, 34).Address End If End With HighlightTableRow Target ' Hinzugefügt T.W. End Sub

Beliebteste Forumthreads (12 Monate)

Zelle aktive Zeile + zugeord. Spalte in Textfeld

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

361 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zelle aktive Zeile + zugeord. Spalte in Textfeld

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

361 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread