Selection ändern / erweitern

Hallo euch EXCELlenten,
leider habe ich mein Problem in dem älteren Thread wohl zu ungenau beschrieben:
https://www.herber.de/forum/archiv/972to976/t972715.htm
Auf Anregung eines interessierten Helfers versuche ich nun, meine Frage zu präzisieren u. habe daher eine Beispielmappe erstellt:
https://www.herber.de/bbs/user/51965.zip
ABER:
!!! WARNUNG !!! -- nur für "Hartgesottene" geeignet
Es ist bestimmt einige Zeit zum Hineindenken erforderlich...
Zwar habe ich in dem Blatt 'Anmerkungen' meine Zielstellung präzisiert, aber ihr müsst euch durch diverse CommandButtons + UserForms + MsgBoxen "hangeln"...
Sorry, ich sah leider keinen anderen Weg, die Komplexität darzustellen...
99 % des VBA-Projektes habe ich mir eher laienhaft (s. Level) hier aus dem Archiv + Forum zusammengebastelt - also bitte nicht allzu sehr schimpfen... ;-)
DOCH:
... wie schon im alten Thread erwähnt, ist meine Frage nicht dringend.
"Spielt" also erstmal mit der Beispielmappe u. arbeitet euch in aller Ruhe in die Problematik ein...
Wer dann eine Lösung gefunden und immernoch Lust zum Weiterbasteln hat, kann auch gern mal in die 2. Baustelle hineinschauen - das wird wohl der "Oberhammer"...
ALSO:
Ich bin schon jetzt gespannt auf eure Antworten !
MfG Dirk

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rudi,
vielen Dank für deine Kritik u. sehr wertvollen Tipps.
Allerdings verstehe ich nicht so recht, was du mit: "...vollkommener Unsinn..." meinst.
Zwar habe ich mich mittlerweile sehr an dieses Design gewöhnt, aber nehme deinen Vorschlag gern an...
Allerdings habe ich noch nie mit Pivottabellen gearbeitet... :-((
Du würdest mir sehr helfen, wenn du mir ein konkretes Beispiel zum verbesserten Tabellenaufbau geben könntest.
Provisorisch habe ich mir mit einem zusätzlichen CommandButton in dem UserForm7 Abhilfe geschaffen.
Doch muss ich nun die Selection vorher wieder manuell ändern u. gebe dir Recht:
So verzettele ich mich immer mehr u. es wird immer "benutzerunfreundlicher"... (also alles andere als der "grüne Zweig").


Private Sub CommandButton7_Click()  'DVD-Nr. übertragen
Unload Me
Dim rng As Range
Set Auswahl = Selection
Set Auswahl2 = Cells(Selection.Row, 3)
Application.ScreenUpdating = False
If IsEmpty(rng) = True Then Exit Sub
If MsgBox("Achtung ! Die Auswahl MUSS in Spalte B (DVD/CD-Nr.) beginnen !" & vbCr & _
"                          Ist das richtig ?", 292, "H I N W E I S") = 6 Then
Sheets("Media-FP").Activate
Set rng = ActiveSheet.Cells.Columns(5).Find(what:=Auswahl2, lookat:=xlWhole, LookIn:= _
xlValues)
If rng Is Nothing Then
MsgBox "Es wurde kein Film auf der Media-FP gefunden!"
Else
rng.Select
Range(rng.Offset(0, -1), rng.Offset(0, 0)).Select
Auswahl.Copy
ActiveSheet.Paste 'alles
End If
End If
Set Auswahl = Nothing
Sheets("DVD-Sammlung").Activate
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Ich wünsche allen noch einen schönen 1. Mai u. besonders uns Vätern einen unfallfreien Tag - ich zieh' dann jetzt mal los.........
MfG Dirk

Public Auswahl As Range Public objWks As Worksheet Sub aaaTest() 'selektierte Zellen im aktuellen Blatt ("Tab1") dem Objekt zuordnen Set Auswahl = Selection Set objWks = ActiveSheet Worksheets("Tab2").Cells.ClearContents End Sub Sub abAuswahl() Auswahl.Copy Worksheets("Tab2").Activate Cells(5, 3).PasteSpecial Paste:=xlPasteValues 'Auswahlbereich um 1 Zelle nach links erweitern Set Auswahl = Application.Union(Auswahl.Offset(0, -1).Range("A1"), _ Auswahl) Auswahl.Copy Cells(6, 2).PasteSpecial Paste:=xlPasteValues End Sub Sub abWks() Auswahl.Copy Worksheets("Tab2").Activate Cells(8, 3).PasteSpecial Paste:=xlPasteValues 'Auswahlbereich bis Spalte B nach links erweitern With objWks Set Auswahl = .Range(.Cells(Auswahl.Row, 2), .Cells(Auswahl.Row, Auswahl.Column + _ Auswahl.Columns.Count - 1)) End With Auswahl.Copy Cells(9, 2).PasteSpecial Paste:=xlPasteValues End Sub

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Selection ändern / erweitern

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread