Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA Zelle auf anderes Tabellenblatt kopieren

VBA Zelle auf anderes Tabellenblatt kopieren
Timonski
Servus...
ich hätte gern beim aktivieren einer Tabelle einen bestimmten Teil eines Zellenwert auf einer anderen Tabelle stehen.
Quellezelle auf Tabellenblatt ABRECHNUNG H6
Ziel auf Tabellenblatt INDEX AY1
meine nicht funktionierende Formel :-)
Sheets("Index").Cells(1, 51) = Mid(sheets("Abrechnung"Cells(6, 8), 1, 4)
mfg
Timo
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA Zelle auf anderes Tabellenblatt kopieren
20.03.2012 08:03:41
marcl
Hallo Timo,
Sheets("Index").Cells(1, 51) = Mid(sheets("Abrechnung").Cells(6, 8), 1, 4)
Gruß
marcl
AW: VBA Zelle auf anderes Tabellenblatt kopieren
20.03.2012 08:05:51
Timonski
Servus Marcl...
Vielen Dank für die schnelle Antwort...
wünsch Dir noch einen schönen Tag
Timo
Anzeige
;

Forumthreads zu verwandten Themen

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

VBA: Zelle auf ein anderes Tabellenblatt kopieren


Schritt-für-Schritt-Anleitung

Wenn Du eine Zelle von einem Tabellenblatt auf ein anderes kopieren möchtest, kannst Du dies einfach mit VBA (Visual Basic for Applications) tun. Hier ist eine Schritt-für-Schritt-Anleitung, wie Du dies umsetzen kannst:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Füge ein neues Modul hinzu:

    • Klicke im Menü auf Einfügen > Modul.
  3. Schreibe den VBA-Code:

    • Kopiere den folgenden Code in das Modul:
    Sub KopiereZelle()
       Sheets("Index").Cells(1, 51).Value = Mid(Sheets("Abrechnung").Cells(6, 8).Value, 1, 4)
    End Sub

    In diesem Beispiel wird der Wert von H6 auf dem Blatt ABRECHNUNG gelesen und die ersten vier Zeichen in die Zelle AY1 auf dem Blatt INDEX kopiert.

  4. Führe das Makro aus:

    • Gehe zurück zu Excel und drücke ALT + F8, wähle KopiereZelle und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Fehler 1: "Objekt erforderlich"

    • Lösung: Stelle sicher, dass die Blattnamen korrekt sind. Überprüfe, ob ABRECHNUNG und INDEX genau so geschrieben sind.
  • Fehler 2: "Typen unverträglich"

    • Lösung: Stelle sicher, dass die Zelle, die Du kopieren möchtest, tatsächlich einen Wert enthält. Leere Zellen können zu diesem Fehler führen.
  • Fehler 3: "Falsche Syntax"

    • Lösung: Überprüfe die Klammern und den Code auf korrekte Syntax. Achte darauf, dass Du ein Komma nach Sheets("Abrechnung").Cells(6, 8) setzt.

Alternative Methoden

Neben VBA gibt es auch andere Möglichkeiten, eine Zelle in ein anderes Tabellenblatt zu kopieren:

  1. Mit Formeln:

    • Du kannst auch einfach in die Zielzelle eine Formel eingeben, z.B.:
      ='ABRECHNUNG'!H6
    • Damit wird der Wert von H6 automatisch in die Zielzelle übertragen.
  2. Mit Copy und Paste:

    • Markiere die Zelle, die Du kopieren möchtest, drücke Strg + C, wechsle zum Zielblatt und drücke Strg + V.

Praktische Beispiele

  • Bestimmte Zellen kopieren: Wenn Du mehrere Zellen von ABRECHNUNG nach INDEX kopieren möchtest, kannst Du das Makro wie folgt anpassen:

    Sub KopiereMehrereZellen()
      Sheets("Index").Cells(1, 51).Value = Sheets("Abrechnung").Cells(6, 8).Value
      Sheets("Index").Cells(2, 51).Value = Sheets("Abrechnung").Cells(7, 8).Value
    End Sub
  • Zellen kopieren und einfügen: Wenn Du die Zellen nicht nur kopieren, sondern auch formatieren möchtest, kannst Du den Copy-Befehl verwenden:

    Sub KopiereUndFuegeEin()
      Sheets("Abrechnung").Cells(6, 8).Copy
      Sheets("Index").Cells(1, 51).PasteSpecial Paste:=xlPasteAll
      Application.CutCopyMode = False
    End Sub

Tipps für Profis

  • Nutze Option Explicit am Anfang Deines Moduls, um sicherzustellen, dass alle Variablen deklariert sind. Dies hilft, Tippfehler zu vermeiden.
  • Verwende With-Anweisungen, um den Code lesbarer und effizienter zu gestalten:

    Sub MitWithBeispiel()
      With Sheets("Abrechnung")
          Sheets("Index").Cells(1, 51).Value = .Cells(6, 8).Value
      End With
    End Sub

FAQ: Häufige Fragen

1. Wie kann ich eine Zelle aus einem anderen Tabellenblatt auslesen? Du kannst dies ganz einfach mit dem VBA-Befehl Sheets("Blattname").Cells(Zeile, Spalte).Value machen.

2. Was mache ich, wenn ich mehrere Zellen gleichzeitig kopieren möchte? Du kannst eine Schleife verwenden, um mehrere Zellen zu durchlaufen und deren Werte zu kopieren, oder Du kannst spezifische Zellen in Deinem Code angeben.

3. Funktioniert dieser Code in Excel 2016 und 2019? Ja, der bereitgestellte Code funktioniert in Excel 2016, 2019 und in Office 365.

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