Aus cbo mehrere Zellen in ein Worksheet kopieren

Guten Abend !
Ich habe die Datei auf den Server geladen https://www.herber.de/bbs/user/40040.xls
Ich möchte in einer Combobox etwas auswählen.
Bei Click soll aber nicht nur die ausgewählte Zelle (A) in die Arbeitsmappe "Berechnung" eingefügt werden, sondern der Bereich A:H.
In dem Arbeitsblatt "Fallpauschalen" sind die offziellen Parameter für die Berechnung gelistet.
Der User soll über die ComboBox die DRG in der Spalte "A" des Arbeitsblattes "Fallpauschalen" auswählen können. Den Code dafür habe ich geschrieben.
(Schön wäre es natürlich, wenn ich nicht nur "A" sondern "AB" (DRG mit dem dazugehörigen Text) in der ComboBox auswählen könnte. [aber vielleicht bekomme ich das dann auch alleine hin]
In der Beispieldatei sind 3 DRGs genannt, später werden hier 1.200 gelistet sein.
OK, nach Auswahl der DRG ("A") soll der Bereich A:H aus dem Arbeitsblatt "Fallpauschalen" in das Arbeitsblatt "Berechnung" eingetragen werden.
Im Arbeitsblatt "DRG Info" bekommt der User die Daten angezeigt.
Es wäre sehr nett, wenn Sie/Ihr mir erklären könnten, wie ich den Zellbereich übertragen kann.
Vielen Dank schon im Voraus!!!
Wolfgang

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo
für ne Combobox ist der Text in Spalte B natürlich etwas lang, außderdem ist in der Combobox ja kein Zeilenumbruch möglich, das wird unübersichtlich.
Darüberhinaus ist eine Combobox bei 1200 einträgen etwas unhandlich.
ich würde ein keines makro schreiben, daß bei einem Doppelklick auf die entsprechende Zeile in "Fallpauschalen" diese nach "Berechnung" kopiert.
Das ist wesentlich unkomplizierter als ne Kombobox und der Nutzer hat in der Tabelle alle möchlichkeiten nach bestimmten einträgen zu suchen, oder den autofilter zu nutzen um die Auswahl einzuschlänken.
Das alles würde in einer Combobox nicht gehen.
Der Code dazu sähe so aus und muß in das Klassenmodul der Arbeitsmappe "Fallpauschalen" eingetragen werden:


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row <= 3 Then Exit Sub
Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Copy Destination:=Sheets("Berechnung").Range("A5")
Sheets("Berechnung").Select
End Sub

Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

Aus cbo mehrere Zellen in ein Worksheet kopieren

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Aus cbo mehrere Zellen in ein Worksheet kopieren

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

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread