Auf Thema antworten 2026

Beitrag

<blockquote data-quote="KaDe63" data-source="post: 2781685" data-attributes="member: 834648">Hallo zusammen,ich brauche bitte mal Unterstützung für die Konvertierung von VBA zu Google Sheets.Ich habe folgenden Code beim Aktivieren des Blatts:Private Sub Worksheet_Activate()&nbsp; &nbsp; ActiveSheet.Unprotect Password:=&quot;12345&quot;&nbsp; &nbsp; ActiveSheet.Range(&quot;a1:a75&quot;).Rows.EntireRow.AutoFit&nbsp; &nbsp; ActiveSheet.Rows(&quot;7:9&quot;).EntireRow.Hidden = Not ActiveWorkbook.Sheets(&quot;YSQ-L3&quot;).Cells(15, 7)&nbsp; &nbsp; ActiveSheet.Rows(&quot;10:12&quot;).EntireRow.Hidden = Not ActiveWorkbook.Sheets(&quot;YSQ-L3&quot;).Cells(26, 7)&nbsp; &nbsp; ActiveSheet.Rows(&quot;13:15&quot;).EntireRow.Hidden = Not ActiveWorkbook.Sheets(&quot;YSQ-L3&quot;).Cells(36, 7)&nbsp; &nbsp; ActiveSheet.Rows(&quot;16:18&quot;).EntireRow.Hidden = Not ActiveWorkbook.Sheets(&quot;YSQ-L3&quot;).Cells(44, 7)&nbsp; &nbsp; ActiveSheet.Rows(&quot;19:21&quot;).EntireRow.Hidden = Not ActiveWorkbook.Sheets(&quot;YSQ-L3&quot;).Cells(52, 7)&nbsp; &nbsp; If ActiveWorkbook.Sheets(&quot;YSQ-L3&quot;).Cells(15, 7) = True Or _&nbsp; &nbsp; &nbsp;&nbsp; ActiveWorkbook.Sheets(&quot;YSQ-L3&quot;).Cells(26, 7) = True Or _&nbsp; &nbsp; &nbsp;&nbsp; ActiveWorkbook.Sheets(&quot;YSQ-L3&quot;).Cells(36, 7) = True Or _&nbsp; &nbsp; &nbsp;&nbsp; ActiveWorkbook.Sheets(&quot;YSQ-L3&quot;).Cells(44, 7) = True Or _&nbsp; &nbsp; &nbsp;&nbsp; ActiveWorkbook.Sheets(&quot;YSQ-L3&quot;).Cells(52, 7) = True Then&nbsp; &nbsp; &nbsp;&nbsp; ActiveSheet.Rows(&quot;3:6&quot;).EntireRow.Hidden = False&nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp;&nbsp; ActiveSheet.Rows(&quot;3:6&quot;).EntireRow.Hidden = True&nbsp; &nbsp; End If&nbsp; &nbsp; ......&nbsp; &nbsp; ......&nbsp; &nbsp; ......&nbsp; &nbsp; ActiveSheet.Protect Password:=&quot;12345&quot;End SubJetzt brauche ich bitte einen Ansatz, also wo finde ich in Sheets das Ereignis, wie setzt ich den Blattschutz, wie geht ein if-then-else, .......Merci !</blockquote>

[QUOTE="KaDe63, post: 2781685, member: 834648"] Hallo zusammen, ich brauche bitte mal Unterstützung für die Konvertierung von VBA zu Google Sheets. Ich habe folgenden Code beim Aktivieren des Blatts: Private Sub Worksheet_Activate() ActiveSheet.Unprotect Password:="12345" ActiveSheet.Range("a1:a75").Rows.EntireRow.AutoFit ActiveSheet.Rows("7:9").EntireRow.Hidden = Not ActiveWorkbook.Sheets("YSQ-L3").Cells(15, 7) ActiveSheet.Rows("10:12").EntireRow.Hidden = Not ActiveWorkbook.Sheets("YSQ-L3").Cells(26, 7) ActiveSheet.Rows("13:15").EntireRow.Hidden = Not ActiveWorkbook.Sheets("YSQ-L3").Cells(36, 7) ActiveSheet.Rows("16:18").EntireRow.Hidden = Not ActiveWorkbook.Sheets("YSQ-L3").Cells(44, 7) ActiveSheet.Rows("19:21").EntireRow.Hidden = Not ActiveWorkbook.Sheets("YSQ-L3").Cells(52, 7) If ActiveWorkbook.Sheets("YSQ-L3").Cells(15, 7) = True Or _ ActiveWorkbook.Sheets("YSQ-L3").Cells(26, 7) = True Or _ ActiveWorkbook.Sheets("YSQ-L3").Cells(36, 7) = True Or _ ActiveWorkbook.Sheets("YSQ-L3").Cells(44, 7) = True Or _ ActiveWorkbook.Sheets("YSQ-L3").Cells(52, 7) = True Then ActiveSheet.Rows("3:6").EntireRow.Hidden = False Else ActiveSheet.Rows("3:6").EntireRow.Hidden = True End If ...... ...... ...... ActiveSheet.Protect Password:="12345" End Sub Jetzt brauche ich bitte einen Ansatz, also wo finde ich in Sheets das Ereignis, wie setzt ich den Blattschutz, wie geht ein if-then-else, ....... Merci ! [/QUOTE]

Bilder bitte hier hochladen und danach über das Bild-Icon (Direktlink vorher kopieren) platzieren.

Authentifizierung

Wenn ★ = 12, ◇ = 4 und die Hälfte von ★ zu ◇ addiert wird, was ist das Ergebnis?