Thema Datum  Von Nutzer Rating
Antwort
27.04.2017 08:51:41 Sebastian
NotSolved
27.04.2017 15:36:14 Felix
NotSolved
27.04.2017 15:41:15 Gast85242
NotSolved
Blau Zeilen ein/ausblenden VBA
27.04.2017 16:07:38 Gast51845
Solved
28.04.2017 06:30:55 Sebastian
NotSolved
28.04.2017 06:36:11 Sebastian
NotSolved
28.04.2017 06:43:48 Sebastian
NotSolved

Ansicht des Beitrags:
Von:
Gast51845		 Datum:
27.04.2017 16:07:38		 Views:
696		 Rating:
     
Antwort:
 Nein
Thema:
Zeilen ein/ausblenden VBA

Wieso denn? Machbar wäre das doch ...

2 Module:

1 Modul:

Sub ZeilenAusblenden()

Dim i As Integer

ActiveSheet.Unprotect deinpasswort
For i = 17 To 1000
    If UCase(Cells(i, 2).Value) = "X" Then Cells(i, 2).EntireRow.Hidden = True 'hier die Variable angeben
Next i
End Sub

 

und ein zweites:

 

Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Dateiname As String
ActiveSheet.Unprotect deinpasswort
ActiveSheet.Rows.Hidden = False

ActiveSheet.Protect deinpasswort

    Dateiname = Application.InputBox(prompt:="Bitte Dateinamen eingeben:")
    If Dateiname = "" Then
    Application.DisplayAlerts = False
    ActiveWorkbook.Close
    Else
    ActiveWorkbook.SaveAs Filename:="H:\" & Dateiname
    ActiveWorkbook.Close
    End If
    Application.DisplayAlerts = True
End Sub

 

Je nachdem wie er das speichern wünscht...

 

 

 

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.04.2017 08:51:41 Sebastian
NotSolved
27.04.2017 15:36:14 Felix
NotSolved
27.04.2017 15:41:15 Gast85242
NotSolved
Blau Zeilen ein/ausblenden VBA
27.04.2017 16:07:38 Gast51845
Solved
28.04.2017 06:30:55 Sebastian
NotSolved
28.04.2017 06:36:11 Sebastian
NotSolved
28.04.2017 06:43:48 Sebastian
NotSolved