Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellen nicht markierbar machen

Forumthread: Zellen nicht markierbar machen

Zellen nicht markierbar machen
05.12.2002 18:22:38
Matthias H.
Hallo Excel-Freunde,

wißt ihr wie man in einem Arbeitsblatt Zellen so konfigurieren kann, daß sie nicht anklickbar/markierbar sind?
Irgendwie muß es funktionieren: in der Datei "Tilgung.xls" die ich von dieser Seite mal unter Utilities heruntergeladen habe, ist das realisiert.

Gruß
Matthias


Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zellen nicht markierbar machen
05.12.2002 18:27:24
Holger Levetzow
über VBA, indem du ein SelectionChange vorbereitest, das beim Anklicken der entsprechenden Zellen z.B. A1 auswählst.

Holger

Re: Zellen nicht markierbar machen
05.12.2002 18:37:51
Matthias H.
Hallo Holger,

hab gerade in der VBA Hilfe nachgesehen. Da gibts zwar ein Beispiel aber das paßt nicht so richtig:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With ActiveWindow
.ScrollRow = Target.Row
.ScrollColumn = Target.Column
End With
End Sub

(so lange hochscrollen bis Markierung oben links ist)

Weitere Optionen habe ich nicht gefunden. Wie muß ich das angehen wenn ein bestimmter Bereich von der Markierung ausgeschlossen werden soll? Oder muß ich einen Bereich markieren der dann nicht demarkiert werden kann?

Gruß
Matthias

Anzeige
Re: Zellen nicht markierbar machen
05.12.2002 18:40:50
geri
Hallo Matthias

es gibt noch eine möglichkeit mit

Worksheets(2).ScrollArea = "A3:AH60" die Blattnummer musst du anpassen, dieser Bereich ist erreichbar Rest gesperrt

gruss geri

Re: Zellen nicht markierbar machen
05.12.2002 18:51:13
Matthias H.
Hallo Geri,

vielen Dank. Habe die Zeile mal in eine Sub() kopiert:

Sub noscroll()
Worksheets(2).ScrollArea = "B2:C3"
End Sub

Leider kann man die nicht genannten Zellen immernoch markieren. Was bedeutet denn die 2 bei Worksheets(2)? Vielleicht habe ich ja bloß was vergessen?
Bin jetzt erstmal offline. Schaue heute abend (ca.22.00Uhr) nochmal rein. Bitte trotzdem antworten (falls möglich).
Vielen Dank schonmal

Bis dann
Matthias

Anzeige
Re: Zellen nicht markierbar machen
05.12.2002 18:53:03
Holger Levetzow
nimm z.B. folgenden Code ins Modul der Tabelle auf:

in Bereich schreibe einfach rein, welche Zellen nicht angesprungen werden dürfen.

Holger

Re: Zellen nicht markierbar machen
05.12.2002 20:12:38
geri
Lösung von Holger funkt auch

in diese Arbeitsmappe einfügen

Private Sub Workbook_Open()

Worksheets(2).ScrollArea = "A3:AH60" 'blatt 2
Worksheets(3).ScrollArea = "A3:AH80"

End Sub

gruss geri

Anzeige
Re: Zellen nicht markierbar machen
06.12.2002 08:05:49
Vielen Dank Holger und Geri
ich habe es gerade ausprobiert, und es geht. Gestern konnte ich leider nicht mehr antworten... Vielleicht lest ihr ja noch diese "Erfolgsmeldung" :-)

Gruß
Matthias


Re: Zellen nicht markierbar machen
06.12.2002 11:41:16
Holger Levetzow
schön, dass wir helfen konnten.

Holger

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Zellen in Excel nicht markierbar machen


Schritt-für-Schritt-Anleitung

Um in Excel Zellen so zu konfigurieren, dass sie nicht anklickbar oder markierbar sind, kannst du VBA (Visual Basic for Applications) verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne die Excel-Datei, in der du die Zellen nicht markierbar machen möchtest.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Finde das entsprechende Arbeitsblatt im Projektfenster (z.B. "Tabelle1").

  4. Füge den folgenden Code in das Codefenster des Arbeitsblatts ein:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       If Not Intersect(Target, Me.Range("A1:B2")) Is Nothing Then
           Me.Range("C1").Select
       End If
    End Sub

    In diesem Beispiel wird der Bereich A1:B2 nicht anklickbar gemacht und die Auswahl springt zu C1.

  5. Schließe den VBA-Editor und teste die Funktion im Arbeitsblatt.


Häufige Fehler und Lösungen

  • Problem: Excel zellen markieren funktioniert nicht.

    • Lösung: Stelle sicher, dass der VBA-Code korrekt eingefügt wurde und prüfe die Range-Parameter.
  • Problem: Excel zellen lassen sich nicht markieren, aber der Code funktioniert nicht.

    • Lösung: Überprüfe, ob du die richtige Blattnummer im Code verwendest, falls du mit mehreren Blättern arbeitest.

Alternative Methoden

Eine weitere Möglichkeit, Zellen nicht anklickbar zu machen, ist die Einstellung der ScrollArea:

  1. Im VBA-Editor, füge den folgenden Code in das Modul der Tabelle ein:

    Private Sub Workbook_Open()
       Worksheets(2).ScrollArea = "A3:AH60" ' Blatt 2
       Worksheets(3).ScrollArea = "A3:AH80" ' Blatt 3
    End Sub

    Dieser Code beschränkt die scrollbare Fläche, sodass nur die angegebenen Zellen erreichbar sind.


Praktische Beispiele

Angenommen, du möchtest die Zellen A3 bis A10 nicht auswählbar machen. Du kannst den folgenden Code verwenden:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A3:A10")) Is Nothing Then
        Me.Range("B1").Select
    End If
End Sub

Hier wird die Auswahl auf eine andere Zelle (B1) umgeleitet, wenn jemand versucht, die Zellen in A3 bis A10 zu markieren.


Tipps für Profis

  • Nutze die Intersect-Funktion, um mehrere Bereiche gleichzeitig zu überprüfen.
  • Teste immer den VBA-Code in einer Kopie deiner Excel-Datei, um Datenverlust zu vermeiden.
  • Halte den Code gut dokumentiert, um die Wartung zu erleichtern.

FAQ: Häufige Fragen

1. Warum kann ich meine Zellen nicht anklicken? Die Zellen sind durch VBA-Code so konfiguriert, dass sie beim Anklicken nicht markierbar sind.

2. Funktioniert dieser Code in allen Excel-Versionen? Ja, der VBA-Code sollte in den meisten modernen Excel-Versionen funktionieren. Stelle sicher, dass du die Makros aktiviert hast.

3. Kann ich mehrere Zellen gleichzeitig nicht auswählbar machen? Ja, du kannst mehrere Zellen im Code angeben, indem du die Range anpasst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige