Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Markieren ausgeblendete zellen

Markieren ausgeblendete zellen
13.06.2005 11:44:57
Heili
hallo
Ich möchte in ein Blatt einen Bereich "H6:H18" etwas einfügen.
ich habe aber dieses Blatt ausgeblendet und in denen noch ein paar Zeilen(ab H10). Jetzt bekomm ich ständig eine select Fehlermeldung.
Ich möchte aber nicht einblenden, weil es mehere Blätter(eingeblendete und ausgeblendet) sind bei denen ich etwas einfügen muß und immer ein anderer Bereich ausgeblendet ist. Gibt es da ein anderen Befehl wie copy und select?
Danke MfG
Heili
Anzeige

14
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Markieren ausgeblendete zellen
13.06.2005 11:51:52
Hajo_Zi
Hallo Heili,
ich vermute mal es geht um VBA. IN VBA kann zu 99% auf select verzichtet werden und DEin Problem ist gelöst.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.


Anzeige
AW: Markieren ausgeblendete zellen
13.06.2005 11:56:22
Heili
Ja ich meinte VBA
Und wie kann ich auf select verzichten? Mit = hab ich es schon versucht aber das klappt in meinem Fall nicht. Und nun?
AW: Markieren ausgeblendete zellen
13.06.2005 11:58:26
Hajo_Zi
Hallo Heili,
einfach verzichten drauf. Ich lehne es ab über das Internet auf fremde Rechner zu schauen um den Code zu sehen.
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
Anzeige
AW: Markieren ausgeblendete zellen
13.06.2005 12:02:05
Heili
Sorry hier ist mein Code
' Blatt 65 '
Sheets("Matrixverknüpfung2").Range("A60:a72").Copy
Sheets("65").Select
Range("H6:H18").Select
Selection.PasteSpecial Paste:=xlValues
Range("H5").Select
Das Blatt "65" ist ausgeblendet und ab Zeile 15 ausgeblendet
Danke
Anzeige
AW: Markieren ausgeblendete zellen
13.06.2005 12:41:37
Hajo_Zi
HalloHeili,
ich habe jetzt die Datei nicht nachgebaut, darum ohne Testung.
Option Explicit

Sub tEst()
Sheets("Matrixverknüpfung2").Range("A60:a72").Copy
With Sheets("65")
.Range("H6:H18").PasteSpecial Paste:=xlValues
End With
End Sub

Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
Anzeige
AW: Markieren ausgeblendete zellen
13.06.2005 13:27:03
Heili
Hallo hajo
Ich will ja mal nicht übertreiben aber du bist einfach der VBA-GOTT
Danke es geht Hurra
Gruß Heili
AW: Markieren ausgeblendete zellen
13.06.2005 13:32:36
Hajo_Zi
Hallo Heili,
das liest sich so als ob das Problem gelöst ist. Warum ist der Beitrag als offen gekennzeichnet?
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
Anzeige
AW: Markieren ausgeblendete zellen
13.06.2005 12:05:42
Heili
Sorry hier ist mein Code
' Blatt 65 '
Sheets("Matrixverknüpfung2").Range("A60:a72").Copy
Sheets("65").Select
Range("H6:H18").Select
Selection.PasteSpecial Paste:=xlValues
Range("H5").Select
Das Blatt "65" ist ausgeblendet und ab Zeile 15 ausgeblendet
Danke
Anzeige
AW: Markieren ausgeblendete zellen
13.06.2005 12:11:53
Fred
Hi,

Sub weise_zu()
Sheets("65").[H6:H18] = Sheets("Matrixverknüpfung2").[A60:a72]
End Sub

mfg Fred
AW: Markieren ausgeblendete zellen
13.06.2005 12:29:47
Heili
Hallo Fred
Bei deinem Vorschalg schreibt er hin Objekt erforderlich
Gruß Heili
AW: Markieren ausgeblendete zellen
13.06.2005 12:37:34
Fred
Hi,

Sub weise_zu()
Dim arr
arr = Sheets("Matrixverknüpfung2").[A60:a72]
Sheets("65").[H6:H18] = arr
End Sub

mfg Fred
Anzeige
AW: Markieren ausgeblendete zellen
13.06.2005 12:53:47
Heili
Hallo Fred
danke für deine schnelle Antwort
Jetzt kommt zwar keine Fehlermeldung mehr aber er fügt auch nichts ein
kann das damit zu tun haben das es ein bereich ist?,weil wenn ich nur eine zelle neheme dann geht.
danke gruß Jürgen
AW: Markieren ausgeblendete zellen
13.06.2005 12:56:33
Hajo_Zi
Hallo Heili,
https://www.herber.de/forum/messages/623308.html
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.
Anzeige
AW: Markieren ausgeblendete zellen
13.06.2005 13:52:58
Fred
Hi,
keine Ahnung, wo bei dir klemmt, hab es ausprobiert.
mfg Fred
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Markieren ausgeblendeter Zellen in Excel


Schritt-für-Schritt-Anleitung

Um ausgeblendete Zellen in Excel zu markieren und Daten einzufügen, ohne die Blätter einzublenden, kannst Du VBA verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne den VBA-Editor: Drücke ALT + F11.

  2. Erstelle ein neues Modul:

    • Klicke auf Einfügen > Modul.
  3. Füge den folgenden Code ein:

    Sub DatenEinfügen()
       Sheets("Matrixverknüpfung2").Range("A60:A72").Copy
       With Sheets("65")
           .Range("H6:H18").PasteSpecial Paste:=xlValues
       End With
    End Sub
  4. Führe das Makro aus:

    • Drücke F5 oder gehe zu Run > Run Sub/UserForm.

Durch diesen Code kannst Du die Daten aus dem Bereich „A60:A72“ in die ausgeblendeten Zellen „H6:H18“ einfügen, ohne das Blatt „65“ einblenden zu müssen.


Häufige Fehler und Lösungen

  • Fehlermeldung „Select-Fehler“:

    • Diese tritt auf, wenn Du versuchst, Zellen zu markieren, die ausgeblendet sind. Vermeide die Verwendung von .Select und benutze stattdessen direkte Referenzen.
  • Fehlermeldung „Objekt erforderlich“:

    • Stelle sicher, dass Du den richtigen Bereich in den Code eingibst. Wenn Du den Bereich direkt zuweist, wie im Beispiel von Fred, achte darauf, dass der Zielbereich korrekt definiert ist.

Alternative Methoden

Es gibt mehrere Möglichkeiten, Daten in ausgeblendete Zellen einzufügen:

  1. Direkte Zuweisung ohne Copy/Paste:

    Sub WeiseZu()
       Dim arr
       arr = Sheets("Matrixverknüpfung2").Range("A60:A72").Value
       Sheets("65").Range("H6:H18").Value = arr
    End Sub
  2. Verwendung von Arrays:

    • Wenn Du mit größeren Datenmengen arbeitest, kann die Verwendung von Arrays die Leistung verbessern.

Praktische Beispiele

Hier sind einige praktische Beispiele, die zeigen, wie Du mit ausblendeten Zellen in Excel umgehen kannst:

  • Beispiel 1: Füge Werte von einem Arbeitsblatt in ein ausgeblendetes Arbeitsblatt ein:

    Sub WerteKopieren()
        Dim arr
        arr = Sheets("Datenblatt").Range("B1:B10").Value
        Sheets("Zielblatt").Range("C1:C10").Value = arr
    End Sub
  • Beispiel 2: Übertrage Daten von mehreren Zellen:

    Sub MehrereZellenKopieren()
        Sheets("Datenblatt").Range("A1:A5").Copy
        Sheets("Zielblatt").Range("H1:H5").PasteSpecial Paste:=xlValues
    End Sub

Tipps für Profis

  • Vermeide das Nutzen von .Select: Dies macht Deinen Code effizienter und schneller.
  • Nutze Option Explicit: Dies hilft, Variablen klar zu definieren und verhindert unerwartete Fehler.
  • Dokumentiere Deinen Code: Erkläre, was jeder Teil des Codes macht, um die Wartung zu erleichtern.

FAQ: Häufige Fragen

1. Warum kann ich die Zellen nicht direkt markieren? Das Markieren von ausgeblendeten Zellen führt zu Fehlern. Stattdessen solltest Du direkt auf die Zellen zugreifen.

2. Welche Excel-Version benötige ich für VBA? VBA ist in den meisten Versionen von Excel verfügbar, einschließlich Excel 2000, 2010, 2016 und neueren Versionen. Achte darauf, dass Du in der Entwicklertools-Option die Makros aktivierst.

3. Wie kann ich sicherstellen, dass mein Code ohne Fehler läuft? Teste Deinen Code in einer Kopie Deiner Excel-Datei und achte auf korrekte Bereichsangaben und Objektnamen.

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