Hallo Gast,
Danke für deine Veranschaulichung, hat mir auf jeden Fall Verständnistechnisch weitergeholfen. Und genau so würde ich es auch visualisieren wollen,
allerdings ist mein Problem immernoch, dass das Automatisch passieren soll, was ja auch der Sinn eines Makros ist. Sonst könnte ich es ja auch einfach Zelle für Zelle selbst eintragen.
Dein Code hat wie gesagt zum Lernprozess weitergeholfen, vielen Dank dafür. Verstanden hab ich ihn auch halbwegs. Als ich allerdings versucht hab ihn auf mein Projekt anzupassen, kam ich nicht weiter.
Sub Aufgabe(ByVal Target As Range)
Dim rngUberschrift As Excel.Range
Dim lngUnterpunkt As Long
'# Überschrift 1 mit Unterpunkten
Set rngUberschrift = Sheets("Tabelle1").Columns("C")
For lngUnterpunkt = 1 To 3
rngUberschrift.Offset(lngUnterpunkt, 1).Value = TextBox69.Text
Next
Set rngUberschrift = rngUberschrift.Offset(1 + lngUnterpunkt)
Aktuell macht er auch mit dem Code noch immer das selbe wie davor. Einzeln ausgeführt sah das Exempel mit den Überschrift und Unterpunkten von der Anordnung her gut aus. Allerdings kann ich ja nicht jedes Mal in den Modulcode rein und einer neuen Überschrift Werten zuordnen.
Wie schaffe ich es also, dass der Wert , der per PasteSpecial aus meiner anderen Tabelle rüber kopiert wird als rngUberschrift Definiert wird, und der Input aus der Textbox als lngUnterpunkt ? Hilft mir das in dem Fall überhaupt zum Zielergebnis weiter?
Mfg
|