AW: Sorry
05.02.2016 11:01:14
walter
Hallo Franz,
leider funktioniert es nicht.
Es werden keine Nummern der Seiten angezeigt und die Textbausteine ebenfalls
nicht.
Anbei das gesamt Makro:
Private Sub Worksheet_Change(ByVal Target As Range):
Dim rngZelle As Range, rngChange As Range
Dim wksAngebote As Object
Set wksAngebote = ThisWorkbook.Sheets("Angebote")
Select Case WorksheetFunction.CountA(Range("B23:C57"))
Case Is 0
'wksAngebote.Range("C58").Value = ""
'wksAngebote.Range("C122").Value = ""
wksAngebote.OptionButton1.BackColor = RGB(0, 255, 0) 'grün
wksAngebote.OptionButton1.Caption = "Seite 1 aktiv"
End Select
Select Case WorksheetFunction.CountA(Range("B87:C121"))
Case Is 0
wksAngebote.Range("C58").Value = "Seite 1 von 2 Seiten"
wksAngebote.Range("C122").Value = "Seite 2 von 2 Seiten"
wksAngebote.OptionButton2.BackColor = RGB(0, 255, 0) 'grün
wksAngebote.OptionButton2.Caption = "Seite 2 aktiv"
End Select
Select Case WorksheetFunction.CountA(Range("B151:C185"))
Case Is 0
wksAngebote.Range("C58").Value = "Seite 1 von 3 Seiten"
wksAngebote.Range("C122").Value = "Seite 2 von 3 Seiten"
wksAngebote.Range("C186").Value = "Seite 3 von 3 Seiten"
wksAngebote.OptionButton3.BackColor = RGB(0, 255, 0) 'grün
wksAngebote.OptionButton3.Caption = "Seite 3 aktiv"
End Select
Select Case WorksheetFunction.CountA(Range("B215:C249"))
Case Is 0
wksAngebote.Range("C58").Value = "Seite 1 von 4 Seiten"
wksAngebote.Range("C122").Value = "Seite 2 von 4 Seiten"
wksAngebote.Range("C186").Value = "Seite 3 von 4 Seiten"
wksAngebote.Range("C250").Value = "Seite 4 von 4 Seiten"
wksAngebote.OptionButton4.BackColor = RGB(0, 255, 0) 'grün
wksAngebote.OptionButton4.Caption = "Seite 4 aktiv"
End Select
Select Case WorksheetFunction.CountA(Range("B279:C313"))
Case Is 0
wksAngebote.Range("C58").Value = "Seite 1 von 5 Seiten"
wksAngebote.Range("C122").Value = "Seite 2 von 5 Seiten"
wksAngebote.Range("C186").Value = "Seite 3 von 5 Seiten"
wksAngebote.Range("C250").Value = "Seite 4 von 5 Seiten"
wksAngebote.Range("C314").Value = "Seite 5 von 5 Seiten"
wksAngebote.OptionButton5.BackColor = RGB(0, 255, 0) 'grün
wksAngebote.OptionButton5.Caption = "Seite 5 aktiv"
End Select
Select Case WorksheetFunction.CountA(Range("B343:C377"))
Case Is 0
wksAngebote.Range("C58").Value = "Seite 1 von 6 Seiten"
wksAngebote.Range("C122").Value = "Seite 2 von 6 Seiten"
wksAngebote.Range("C186").Value = "Seite 3 von 6 Seiten"
wksAngebote.Range("C250").Value = "Seite 4 von 6 Seiten"
wksAngebote.Range("C314").Value = "Seite 5 von 6 Seiten"
wksAngebote.Range("C378").Value = "Seite 6 von 6 Seiten"
wksAngebote.OptionButton6.BackColor = RGB(0, 255, 0) 'grün
wksAngebote.OptionButton6.Caption = "Seite 6 aktiv"
End Select
Set rngChange = Application.Intersect(Target, Range("C26:C50, C87:C121, C151:C185, C215: _
C249, C279:C313, C343:C377"))
If Not rngChange Is Nothing Then
Application.EnableEvents = False
For Each rngZelle In rngChange
With rngZelle
Select Case LCase(.Text)
' Case "ad": .Value = "folgende Adresse:"
Case "pos": .Value = "Pos. 01 Höhe 1800:1500 mm"
Case Else
'do nothing
End Select
End With
Next
Application.EnableEvents = True
End If
End Sub
mfg
walter mb