Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Formular automstisch ausfüllen

Formular automstisch ausfüllen
18.10.2016 12:56:00
Bianca
Hallo Leute,
ich brauche wieder mal Makro Support!
Ich hab ein Bsp. anbei, damit die Frage leichter zu verstehen ist.
Ich will die Daten aus einer Excel Tabelle automatisch in ein Formular einfügen.
Was das einfüllen angeht, bekomme ich den Code noch hin, mein Problem ist folgendes:
Der User soll die Zeile die er ins Formular haben will markieren und dann sollen die Daten in die richtigen Zellen ins Formular. Es arbeiten sehr viele Personen in dieser Liste.
Kann mir jemand helfen?
https://www.herber.de/bbs/user/108847.xlsm
Danke und lg Bianca
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formular automstisch ausfüllen
18.10.2016 13:10:34
UweD
Hallo
das ginge so...
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Diesen Code dort reinkopieren
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Row > 1 Then
        If Not Intersect(Range("A:H"), Target) Is Nothing Then
            Dim Z As Long
            Cancel = True
            Z = Target.Row
            With Sheets("Formular")
                .Range("B5") = Cells(Z, 1)
                .Range("F5") = Cells(Z, 2)
                .Range("B7") = Cells(Z, 3)
                '...usw. 
            End With
        End If
    End If
End Sub
Mit einem Rechtsclick auf eine Zelle in A:H wird das Copieren ausgelöst
LG UweD
Anzeige
AW: Formular automstisch ausfüllen
18.10.2016 15:16:04
Bianca
Hallo UweD,
funktioniert alles bestens!
Vielen Dank!
lg Bianca
prima!
18.10.2016 15:34:26
UweD
gern geschehen...
alternativ ginge auch ein Doppelclick
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
....
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige