Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1660to1664
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

ByVal Target As Range

ByVal Target As Range
19.12.2018 07:22:53
Thomas
Hallo Excelfreunde,
ich habe mit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
verschiedene Aktionen ausgeführt. Der Übersicht halber würde ich gern die einzelnen Schritte in  _
ein Modul auslagern und mit mit Call starten. ( Beispiel siehe unten )
Leider bekomme ich dann die Fehlermeldung:
" Anweisung außerhalb eine Type-Blocks"
Geht so etwas überhaupt?
Sub laufende_Nummer_ins_Blatt_drucken_eintragen(ByVal Target As Range)
' trage den wert aus der aktiven zeile spalte a ein
Dim rng As Range
Dim cel As Range
On Error Resume Next
Set rng = ActiveSheet.Range("b1:b10000")
For Each cel In rng.Cells
If cel.Address = Target.Address Then
Sheets("Drucken").Range("c9") = Cells(ActiveCell.Row, 1).Value
ActiveWorkbook.Save
Exit For
End If
Next cel
Set cel = Nothing
Set rng = Nothing
End Sub
Habt schon mal recht vielen Dank für euer Interesse.
MFG Thomas

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
hab es lösen können
19.12.2018 09:20:28
Thomas
Hallo excekfreunde,
ich habe es mit
Sheets("Drucken").Range("c9") = Cells(ActiveCell.Row, 1).Value
gelöst.
Besten dank
MFG Thomas
Anzeige

304 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige