Bitte um VBA Korrektur
Excelfloh
Hallo liebe Excel Fans,ich habe eine komplexe Tabelle mit umfangreichen Formeln,Verweisen und Formatierungen aufgebaut - und sie funktioniert ! Sie beinhaltet meine ersten VBA Versuche ( Aus dem Netz zusammen -gestoppelt ) diese funktionieren auch - sind aber stümperhaft.Vielleicht kann mir jemand behilflich sei und mein VBA z.B. mit Korrekturen oder Zusammenfassungen etc.etwas optimieren.
Herzlichen Dank im Voraus -
Im Sinne dieses Wortes -Excelfloh
------------------------------------------------------------------------------------------------------------------------
Option Explicit
Private Sub Worksheet_change(ByVal Target As Range)
Application.ScreenUpdating = False
If Range("D15").Text "Bitte einen Tag wählen" Then Range("F15").Select Das dü _
_
rfte ok sein
If Range("F15").Text "Bitte einen Monat wählen" Then Range("H15").Select Das dü _
rfte ok sein
If Range("H15").Text "Bitte ein Jahr wählen" Then Range("A70").Select Das dü _
_
rfte ok sein
If Range("D69").Text = 1 Then Rows("10").Hidden = False _
_
Hier geht es los :
If Range("D69").Text = 1 Then Range("9:9,11:11").EntireRow.Hidden = True Die _
nachstehenden
If Range("D69").Text = 2 Then Rows("11").Hidden = False _
_
Werte (Text =1) usw.
If Range("D69").Text = 2 Then Range("9:9,10:10").EntireRow.Hidden = True werden _
mit Formeln
If Range("G64").Text = 4 Then Rows("9").Hidden = False _
_
iniziiert.Diedazugehörigen
If Range("G64").Text = 4 Then Range("10:10,11:11").EntireRow.Hidden = True Ereignisse _
_
sollen nur bei
If Range("D83").Text = 1 Then Range("38:38,40:40,41:41").EntireRow.Hidden = True einer Wertä _
nderung ein
_
_
treten und NICHT bei
If Range("H73").Text = 1 Then Call Makro_Grafik_ein _
_
jedem Target Ereignis. !!!
If Range("H73").Text 1 Then Call Makro_Grafik_aus (Grafikbelange evtl.mit Iif ?)
If Target.Address = "$F$2" Then Das dürfte ok sein
If Range("D3").Value = 1 Then Call Makro_Archiv_neutralisieren Das dürfte ok sein
If Range("D2").Value = 1 Then Call Makro_Datencopy_Familienarchiv _
Das dürfte ok sein
End If
End Sub
------------------------------------------------------------------------------------------------ _
------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.ScreenUpdating = _
_
False
If Target.Address = "$D$49" Then Call Makro_nächster_Geburtstag
If Target.Address = "$B$49" Then Call auto_open
If Target.Address = "$H$49" Then Call Makro_Kommentar_einsehen
If Target.Address = "$K$49" Then Call auto_close
If Target.Address = "$F$49" Then Call Makro_alter_in_Tagen
If Target.Address = "$F$2" Then Call Makro_Zeilensteuerung _
_
Lässt sich hier etwas
If Target.Address = "$D$15" Then Call Makro_Zeilensteuerung _
_
zusammenfassen ?
If Target.Address = "$F$15" Then Call Makro_Zeilensteuerung
If Target.Address = "$H$15" Then Call Makro_Zeilensteuerung
End Sub