Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Nur Daten Anzeigen wenn Macro Aktiv
zurück: Excel: Wert oder/und Datei via Lotus Notes versenden weiter: Mit markiertem Bereich arbeiten Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Pari
Laufzeitfehler '454'


Verfasst am:
30. Jan 2009, 11:36
Rufname: Sven
Wohnort: Dresden

Nur Daten Anzeigen wenn Macro Aktiv - Nur Daten Anzeigen wenn Macro Aktiv

Nach oben
       Version: Office 2k (2000)

ich möchte das die bisher in der Excel tabelle eingetragenen Daten nur angezeigt werden wenn das Macro beim start aktiviert wurde

ansonsten soll der anweder keine daten sehen können


Edit: ich stell mir gerade die frage ob man was abfragen kann wenn das macro zum abfragen nicht aktiviert wird Rolling Eyes

habe Excel 2000
VBA Kenntnisse: bin neu, lerne vba, deshalb bitte um kommentare zum code Smile (wenns geht)

und dann wollte ich noch lieb fragen ob dieser code richtig ist oder ob ihr fehler findet die man nicht machen sollte, der code funktioniert jedoch könnte er evtl optimiert werden. was mich interessiert wäre meine AutoID ob es da was eleganteres gibt... vielen dank im vorraus. LG Pari
#####################################################
Private Sub CommandButton1_Click()

Dim AutoID As Integer

AutoID = Cells(Rows.Count, 1).End(xlUp).Row - 1

lz = Cells(Rows.Count, 1).End(xlUp).Row + 1

ActiveSheet.Unprotect Password:="test"

Cells(lz, 1) = AutoID + 1
Cells(lz, 2) = tbNname
Cells(lz, 3) = tbVname
Cells(lz, 4) = tbStrasse
Cells(lz, 5) = tbHnr
Cells(lz, 6) = tbPLZ
Cells(lz, 7) = tbOrt
Cells(lz, 8) = tbTel
Cells(lz, 9) = tbEmail
If OBprivat = True Then
Cells(lz, 10) = "Privat"
Cells(lz, 10).Interior.ColorIndex = 4
Else
Cells(lz, 10) = "Geschäftlich"
Cells(lz, 10).Interior.ColorIndex = 5
End If

ActiveSheet.Protect Password:="test"

End Sub
####################################################
Gast



Verfasst am:
30. Jan 2009, 12:50
Rufname:

AW: Nur Daten Anzeigen wenn Macro Aktiv - AW: Nur Daten Anzeigen wenn Macro Aktiv

Nach oben
       Version: Office 2k (2000)

Antwort zum Verstecken von Daten:
Es gibt die Möglichkeit ganze Blätter zu verstecken, so dass sie nicht angezeigt werden. Beachte jedoch, dass pro Datei immer mindestens ein Blatt noch angezeigt werden muss. ;) Ausserdem kann man per Sub "Auto_open()" makros automatisch starten lassen.

Code:

'bei Makrostart anzeigen
    Worksheets("tabelle1").Visible = True 'setzt die Existenz eines Blattes namens "tabelle1" zwingend voraus; ansonsten absturz
'bei Makroende verstecken
    Worksheets("tabelle1").Visible = xlVeryHidden 'setzt die Existenz eines Blattes namens "tabelle1" zwingend voraus; ansonsten absturz


Kommentar zum Code:
Wenn er läuft, dann ist doch super!!! Was Du machen könntest, aber das ist wirklich wichtig:

Code:

'-------------------------------------'
'ORIGINAL-VERSION
'-------------------------------------'
If OBprivat = True Then
Cells(lz, 10) = "Privat"
Cells(lz, 10).Interior.ColorIndex = 4
Else
Cells(lz, 10) = "Geschäftlich"
Cells(lz, 10).Interior.ColorIndex = 5
End If
'-------------------------------------'
'LEICHT ABGEÄNDERTE VERSION
'-------------------------------------'
If OBprivat Then
   with Cells(lz, 10)
        .Value  = "Privat"
        .Interior.ColorIndex = 4
   End with
Else
   with Cells(lz, 10)
        .Value = "Geschäftlich"
        .Interior.ColorIndex = 5
   End with
End If


Code-Tags: Bitte nutze die Code-Tags zum darstellen von VBA-code. Vor dem Code "
Code:
" und nach dem Code dann "
"
Gast



Verfasst am:
30. Jan 2009, 12:51
Rufname:


AW: Nur Daten Anzeigen wenn Macro Aktiv - AW: Nur Daten Anzeigen wenn Macro Aktiv

Nach oben
       Version: Office 2k (2000)

Code-Tags: Vor dem Code [ code] und nach dem Code dann [ /code] (natürlich ohne space innerhalb der Klammern!)
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Verknüpfungen mit langem Pfad, nicht anzeigen! 2 Nikos 706 29. März 2005, 13:28
Nikos Verknüpfungen mit langem Pfad, nicht anzeigen!
Keine neuen Beiträge Excel Formeln: wie kann man statt der Zahl die Formeln anzeigen/ausdrucken 2 Ina-Ina 984 23. Feb 2005, 13:04
Ina-Ina wie kann man statt der Zahl die Formeln anzeigen/ausdrucken
Keine neuen Beiträge Excel Formeln: Doppelte Daten entfernen 1 Sabine1980 2206 08. Feb 2005, 18:19
Thomas Ramel Doppelte Daten entfernen
Keine neuen Beiträge Excel Formeln: Daten Gültigkeit 4 wuselmann 575 27. Jan 2005, 18:26
Thomas Ramel Daten Gültigkeit
Keine neuen Beiträge Excel Formeln: zellwert 2-stellig anzeigen - eingabe + rechnen 5-stellig 5 strandexpress 1207 22. Jan 2005, 15:35
Arnim zellwert 2-stellig anzeigen - eingabe + rechnen 5-stellig
Keine neuen Beiträge Excel Formeln: Daten in einer Zelle trennen 2 bsailer 7161 07. Jan 2005, 13:39
bsailer Daten in einer Zelle trennen
Keine neuen Beiträge Excel Formeln: Nur Daten, die einen Betrag haben, sollen angezeigt werden 4 Kannu 691 21. Dez 2004, 15:57
Arnim Nur Daten, die einen Betrag haben, sollen angezeigt werden
Keine neuen Beiträge Excel Formeln: daten suchen 18 excelfinki 2799 17. Dez 2004, 11:34
excelfinki daten suchen
Keine neuen Beiträge Excel Formeln: 2 Daten miteinander vergleichen, wenn gleich dann Text 1 BennyII 4347 11. Dez 2004, 12:00
ae 2 Daten miteinander vergleichen, wenn gleich dann Text
Keine neuen Beiträge Excel Formeln: Pausenzeiten dynamisch berechnen und anzeigen 8 acki-bm 2213 07. Dez 2004, 18:19
Sanne Pausenzeiten dynamisch berechnen und anzeigen
Keine neuen Beiträge Excel Formeln: Vernünftige Darstellung von Daten in einem Diagramm! 39 Axis_Sonnenflieger 5443 07. Dez 2004, 12:25
Axis_Sonnenflieger Vernünftige Darstellung von Daten in einem Diagramm!
Keine neuen Beiträge Excel Formeln: Werte aus bestimmten Bereich anzeigen 3 timo 2343 27. Okt 2004, 12:56
fridgenep Werte aus bestimmten Bereich anzeigen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps