VBA - Codes im Tabellenblatt zusammenfügen

[poshmit]

Guten Tag,

ich bedarf ein wenig eures Expertenwissens!

Folgende Codes funktionieren für sich alleine wunderbar. Allerdings schaffe ich es nicht beide Codes zusammenzuführen.

Code 1:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Eins As Range
Set Eins = Range("A1:U1")
If Intersect(Eins, Target) Is Nothing Then
Else
   Range("C9").Select
End If
End Sub

Code2:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A14:A1000")) Is Nothing Then Exit Sub
If Target.Column = 1 Then
   Call ÜbersichtFüllen
End If
Range("A13").Select
End Sub

Vielen Dank für eure Mühe

[gmg-cc]

Definiere bitte "zusammenführen". Jede Sub muss (natürlich) alleinstehend bleiben, denn es wird ja jeweils auf ein unterschiedliches Ereignis (Wechsel der aktuellen Zelle bzw. Doppelklick) reagiert. Eine (funktionierende) große Sub kannst du nicht daraus machen.

[poshmit]

Danke, hast mir weitergeholfen. Unter zusammanführen meinte ich eine einzige Sub daraus zu machen. Schadeee!