Selection ändern
27.04.2008 20:04:00
Dirk
heute wurde mir schon fantastisch geholfen: https://www.herber.de/forum/archiv/972to976/t972660.htm
Doch nun stehe ich vor einer neuen Herausforderung.
Ursprünglich markiere ich die Zellen C bis J in einer Zeile.
Über ein Makro übergebe ich per "Set Auswahl = Selection" diese Zellen an den CommandButton1 in einem UserForm.
VOR Aufruf des Makros "Markieren1" möchte ich aber folgendes erreichen:
Die Zeile der ursprünlichen Auswahl wurde bereits gelöscht u. der Inhalt an einer anderen Stelle eingefügt.
NUN soll die Selection (C:J) aber erweitert werden auf B:J und diese neue Selection soll dann an das Makro übergeben werden - doch hier scheitere ich kläglich :-((.
In B steht ein durch Formel berechneter Wert, der auch nur als Wert übergeben werden soll.
Private Sub CommandButton1_Click() 'JA
If Not Auswahl Is Nothing Then
Auswahl.Copy
ActiveSheet.Paste 'alles
Application.CutCopyMode = False
Auswahl.EntireRow.Delete Shift:=xlUp 'löscht die Zeile der Auswahl
Unload Me
If MsgBox("Achtung ! Soll auch in 'Media-FP' geändert werden ?", 292, "Frage") = 6 Then
Call Markieren1
Set Auswahl = Nothing
' Sheets("Media-FP").Activate
Else
MsgBox "Es wurden kein Film zum Einfügen ausgewählt!"
End If
End If
End Sub
Sub Markieren1() '(von Gerd L.)
Dim rng As Range
Set Auswahl = Cells(Selection.Row, 3)
Cells(Selection.Row, 12) = "auch auf MM-FP"
Application.ScreenUpdating = False
Sheets("Media-FP").Activate
ActiveSheet.CommandButton2.Enabled = True
Set rng = ActiveSheet.Cells.Columns(5).Find(what:=Auswahl, lookat:=xlWhole, LookIn:= _
xlValues)
rng.Select
Application.ScreenUpdating = True
ActiveSheet.Range(rng.Offset(0, 0), rng.Offset(0, 7)).Select
End Sub
Ich hoffe, ich konnte das Problem verständlich beschreiben u. freue mich auf eure Antworten...
MfG Dirk