Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: poshmit am November 02, 2015, 17:06:51 Nachmittag

Titel: VBA - Codes im Tabellenblatt zusammenfügen
Beitrag von: poshmit am November 02, 2015, 17:06:51 Nachmittag

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

Titel: Antw: VBA - Codes im Tabellenblatt zusammenfügen
Beitrag von: gmg-cc am November 02, 2015, 17:15:16 Nachmittag

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.

Titel: Antw: VBA - Codes im Tabellenblatt zusammenfügen
Beitrag von: poshmit am November 03, 2015, 06:19:59 Vormittag

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