SelectionChange
Gerhard
Bitte um Eure Hilfe! Ich habe zwei SelectionChange Codes, die beide für sich funktionieren aber ich brauche sie für ein Tabellenblatt.
Wenn ich sie zusmmenfüge funktioniert entweder der eine oder der andere was immer ich auch versuche. Was kann ich machen damit ich beide verwenden kann?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Ausblenden
Static Row As Range
Call BlattschutzAus
ActiveSheet.Range("3:231").Font.Size = "10"
ActiveSheet.Range("3:231").EntireRow.RowHeight = "14"
ActiveSheet.Range("A3:C231").Interior.ColorIndex = "19"
ActiveSheet.Range("D3:D231").Interior.ColorIndex = "24"
ActiveSheet.Range("A3:M231").Font.ColorIndex = xlAutomatic
Call Blattschutz
On Error GoTo Schluss
If Target.Column = 4 Then
If Target.Row >= 3 And Target.Row < 231 Then
If Target.Offset(0, -1) <> "" Then
Call BlattschutzAus
Vergrößern Target.Offset(0, -1).Address(False, False)
Rows(Target.Row).Font.Size = "19"
Rows(Target.Row).RowHeight = "28"
Rows(Target.Row).Interior.ColorIndex = xlColorIndexNone
Target.Offset(0, -1).Font.ColorIndex = "3"
Target.Offset(0, -1).Font.Size = "29"
Call Blattschutz
End If
Else
Call BlattschutzAus
Anzeige_löschen
Call Blattschutz
End If
Else
Call BlattschutzAus
Anzeige_löschen
Call Blattschutz
End If
Exit Sub
Schluss:
Call BlattschutzAus
Anzeige_löschen
Call Blattschutz
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim strSuche As String
Dim rngFind As Range
Dim AktiveZ As String
Dim AktiveZeile As String
AktiveZeile = ActiveCell.Row
' Wenn nicht Spalte B im Bereich von 3 bis 231 dann raus hier.
' Wenn Aktive Zeile Spalte A leer dann Exit Sub
If Intersect(Target, Range("C3:C231")) Is Nothing Then Exit Sub
If Range("A" & AktiveZeile) = "" Then Exit Sub
' Suchbegriff aus den Spalten A und B des 1. Blattes aus KundeListe zusammen.
strSuche = ActiveSheet.Cells(Target.Row, 5).Text & ActiveSheet.Cells(Target.Row, 2).Text
' Mappe Bestand muss geöffnet sein, bei Bedarf kann Sie hier über Workbooks.Open auch
' geöffnet werden.
With Workbooks(strNameDatenbank).Sheets("Gesamtbestand").Columns(1)
Set rngFind = .Find(What:=strSuche, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If rngFind Is Nothing Then
MsgBox "Die Identnummer '" & strSuche & "' ist in der Datenbank nicht angelegt !", vbCritical
AktiveZ = ActiveCell.Row
Range("A" & AktiveZ).Select
Range("A" & AktiveZ & ":B" & AktiveZ).ClearContents
End If
End With
End Sub
Gruss
Grahrd