Hab hier
viewtopic.php?t=16741
das Makro gefunden, das Spalten aus- und wieder einblenden kann. Da ich zwei Bereiche mit 5 Spaltenpaaren ahb, hab ichs angepasst, und es funktioniert:
Code: Alles auswählen
Sub spalte_umschalten_Kurs21 ()
dim oSheet as object
oSheet = thisComponent.sheets.getByName("Zählen")
oSpalte21MO = oSheet.getColumns().getByName("K")
oSpalte21DI = oSheet.getColumns().getByName("R")
oSpalte21MI = oSheet.getColumns().getByName("Y")
oSpalte21DO = oSheet.getColumns().getByName("AF")
oSpalte21FR = oSheet.getColumns().getByName("AM")
oSpalte21MO2 = oSheet.getColumns().getByName("L")
oSpalte21DI2 = oSheet.getColumns().getByName("S")
oSpalte21MI2 = oSheet.getColumns().getByName("Z")
oSpalte21DO2 = oSheet.getColumns().getByName("AG")
oSpalte21FR2 = oSheet.getColumns().getByName("AN")
If oSpalte21MO.isVisible = False Then
oSpalte21MO.isVisible = True
Else
oSpalte21MO.isVisible = False
End If
If oSpalte21DI.isVisible = False Then
oSpalte21DI.isVisible = True
Else
oSpalte21DI.isVisible = False
End If
If oSpalte21MI.isVisible = False Then
oSpalte21MI.isVisible = True
Else
oSpalte21MI.isVisible = False
End If
If oSpalte21DO.isVisible = False Then
oSpalte21DO.isVisible = True
Else
oSpalte21DO.isVisible = False
End If
If oSpalte21FR.isVisible = False Then
oSpalte21FR.isVisible = True
Else
oSpalte21FR.isVisible = False
End If
If oSpalte21MO2.isVisible = False Then
oSpalte21MO2.isVisible = True
Else
oSpalte21MO2.isVisible = False
End If
If oSpalte21DI2.isVisible = False Then
oSpalte21DI2.isVisible = True
Else
oSpalte21DI2.isVisible = False
End If
If oSpalte21MI2.isVisible = False Then
oSpalte21MI2.isVisible = True
Else
oSpalte21MI2.isVisible = False
End If
If oSpalte21DO2.isVisible = False Then
oSpalte21DO2.isVisible = True
Else
oSpalte21DO2.isVisible = False
End If
If oSpalte21FR2.isVisible = False Then
oSpalte21FR2.isVisible = True
Else
oSpalte21FR2.isVisible = False
End If
End Sub
Sub spalte_umschalten_Kurs22 ()
dim oSheet as object
oSheet = thisComponent.sheets.getByName("Zählen")
oSpalte22MO = oSheet.getColumns().getByName("H")
oSpalte22DI = oSheet.getColumns().getByName("O")
oSpalte22MI = oSheet.getColumns().getByName("V")
oSpalte22DO = oSheet.getColumns().getByName("AC")
oSpalte22FR = oSheet.getColumns().getByName("AJ")
oSpalte22MO2 = oSheet.getColumns().getByName("I")
oSpalte22DI2 = oSheet.getColumns().getByName("P")
oSpalte22MI2 = oSheet.getColumns().getByName("W")
oSpalte22DO2 = oSheet.getColumns().getByName("AD")
oSpalte22FR2 = oSheet.getColumns().getByName("AK")
If oSpalte22MO.isVisible = False Then
oSpalte22MO.isVisible = True
Else
oSpalte22MO.isVisible = False
End If
If oSpalte22DI.isVisible = False Then
oSpalte22DI.isVisible = True
Else
oSpalte22DI.isVisible = False
End If
If oSpalte22MI.isVisible = False Then
oSpalte22MI.isVisible = True
Else
oSpalte22MI.isVisible = False
End If
If oSpalte22DO.isVisible = False Then
oSpalte22DO.isVisible = True
Else
oSpalte22DO.isVisible = False
End If
If oSpalte22FR.isVisible = False Then
oSpalte22FR.isVisible = True
Else
oSpalte22FR.isVisible = False
End If
If oSpalte22MO2.isVisible = False Then
oSpalte22MO2.isVisible = True
Else
oSpalte22MO2.isVisible = False
End If
If oSpalte22DI2.isVisible = False Then
oSpalte22DI2.isVisible = True
Else
oSpalte22DI2.isVisible = False
End If
If oSpalte22MI2.isVisible = False Then
oSpalte22MI2.isVisible = True
Else
oSpalte22MI2.isVisible = False
End If
If oSpalte22DO2.isVisible = False Then
oSpalte22DO2.isVisible = True
Else
oSpalte22DO2.isVisible = False
End If
If oSpalte22FR2.isVisible = False Then
oSpalte22FR2.isVisible = True
Else
oSpalte22FR2.isVisible = False
End If
End Sub
Gibt's auch einen Weg, sich auf Spalten via Benennung im Spaltenkopf oder ähnlich zu beziehen, sodass sich durch das Einfügen oder Löschen davorbzwzwischengelagerter Spalten die angesprochenen Spalten nicht verschieben?
Danke Milan