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

Forumthread: Zellen über einen Button übertragen.

Zellen über einen Button übertragen.
27.06.2017 22:48:13
Hans
Guten Abend zusammen,
da ich mich mit VBA noch nicht so gut auskenne, benötige ich eure HILFE:)
Ich habe folgendes vor.
In meiner Tabelle stehen 3-5 Werte in verschiedenen Zellen, die ich gerne über einen Button in eine andere Tabelle(eine andere Datei- sollte auch geschlossen funktionieren) in die letzte Spalte einfügen will.
Nach dem einfügen sollte der Wert(Ist in der Tabelle vorgegeben) der linken Nachbarzelle in einer msgbox ausgegeben werde.
Ich habe eine Musterdatei vorbereitet.
https://www.herber.de/bbs/user/114525.xlsm
Ich wäre euch für eure Hilfe unglaublich Dankbar.
Gruß an alle
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen über einen Button übertragen.
28.06.2017 06:45:51
Hajo_Zi
in eine geschlossene Datei kannst Du nichts übertragen.

AW: Zellen über einen Button übertragen.
28.06.2017 08:54:14
Hans
Hallo Hajo,
okay das wusste ich nicht.
Hättest du eine Formel wenn die 2te Tabelle sich in der selben Datei befindet?
Lieben Gruß
AW: Zellen über einen Button übertragen.
28.06.2017 09:07:31
Hajo_Zi
die Aufgabe ist nicht klar beschrieben.
=Tabelle1!A23
In Excel gibt es Zellbezeichnung, Zeilenbezeichnung, Spaltenbezeichnungen. Da kann man es sehr klar beschreiben.
Gruß Hajo
Anzeige
AW: Zellen über einen Button übertragen.
28.06.2017 10:09:31
Hans
Ich versuche es mal ausführlicher zu beschreiben.
=Tabelle1!B3,D3,F3 sollen über einen Button kopiert und in die =Tabelle2!B2,C2,D2 (in die letzte freie Spalte) eingetragen werden.
Zum Schluss soll der Nachbarwert der eintragung =Tabelle2!A2 in einer msgBox ausgegeben werden.
Ich hoffe es ist jetzt etwas verständlicher.
Gruß
Anzeige
AW: Zellen über einen Button übertragen.
28.06.2017 10:19:57
Hajo_Zi
ich habe es jetzt so umgesetzt wie beschrieben, wobei mir nicht klar ist warum man jeden Wert 1.048.576 mal aufführen muss.
Du hast es wohl so ungenau beschrieben da Du den Code selber anpassen wolltest.
Viel Erfolg. Ich bin dann raus, da Lösung erstellt.
Option Explicit
Sub Uebertrag()
'=Tabelle1!B3,D3,F3 sollen über einen Button kopiert und _
in die =Tabelle2!B2,C2,D2 (in die letzte freie Spalte) eingetragen werden. _
Zum Schluss soll der Nachbarwert der eintragung =Tabelle2!A2 _
in einer msgBox ausgegeben werden
Dim LoLetzte As Long
With Worksheets("Tabelle2")
LoLetzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Column + 1
Columns(LoLetzte) = Range("B2")
Columns(LoLetzte + 1) = Range("C2")
Columns(LoLetzte + 2) = Range("D2")
MsgBox Range("A2")
End With
End Sub
Gruß Hajo
Anzeige
AW: Zellen über einen Button übertragen.
28.06.2017 10:51:19
Hans
Okay Danke.
AW: Zellen über einen Button übertragen.
28.06.2017 15:09:16
Werner
Hallo Hans,
hier deine Beispielmappe mit dem entsprechenden Code. Habe mir erlaubt die Eingabemaske ein wenig zu ändern, so dass die Felder in denen Eingaben erfolgen sollen direkt nebeneinander liegen.
Im Code ist noch eine Prüfung eingebaut. Wenn nicht alle Eingabefelder belegt sind, dann wird eine Meldung ausgegeben. Die Daten werden erst übertragen, wenn alle Felder der Eingabemaske belegt sind.
Nach dem Übertragen der Daten werden die Felder der Eingabemaske wieder geleert.
https://www.herber.de/bbs/user/114543.xlsm
Gruß Werner
Anzeige
;

Forumthreads zu verwandten Themen

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

Zellen über einen Button in Excel übertragen


Schritt-für-Schritt-Anleitung

Um Werte aus einer Tabelle über einen Button in eine andere Tabelle zu übertragen, kannst Du die folgenden Schritte befolgen:

  1. Erstelle einen Button:

    • Öffne Excel und gehe zu "Entwicklertools".
    • Wähle "Einfügen" und füge einen Button (Formularsteuerelement) in Dein Arbeitsblatt ein.
  2. Füge den VBA-Code hinzu:

    • Rechtsklicke auf den Button und wähle "Makro zuweisen".
    • Klicke auf "Neues" und es öffnet sich der VBA-Editor.
    • Füge den folgenden Code ein:
Option Explicit
Sub Uebertrag()
    Dim LoLetzte As Long
    With Worksheets("Tabelle2")
        LoLetzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Column + 1
        Columns(LoLetzte) = Range("B2")
        Columns(LoLetzte + 1) = Range("C2")
        Columns(LoLetzte + 2) = Range("D2")
        MsgBox Range("A2")
    End With
End Sub
  1. Passen die Zellreferenzen an:

    • Stelle sicher, dass die Zellreferenzen (B2, C2, D2, A2) den Zellen entsprechen, die Du verwenden möchtest.
  2. Testen:

    • Klicke auf den Button in Deinem Arbeitsblatt, um den Code auszuführen und die Werte zu übertragen.

Häufige Fehler und Lösungen

  • Fehler: "Objekt nicht gefunden":

    • Überprüfe, ob die Arbeitsblätter "Tabelle1" und "Tabelle2" korrekt benannt sind.
  • Fehler: Werte werden nicht übertragen:

    • Stelle sicher, dass die Zellen, die Du überträgst, korrekt referenziert sind und dass keine Schreibschutzprobleme bestehen.
  • Fehler: MsgBox zeigt falschen Wert an:

    • Vergewissere Dich, dass die Referenz für die MsgBox (Range("A2")) die richtige Zelle ist.

Alternative Methoden

Wenn Du keine VBA-Programmierung verwenden möchtest, kannst Du auch die Funktion "Kopieren und Einfügen" nutzen:

  1. Manuelles Kopieren:

    • Markiere die Zellen, die Du übertragen möchtest.
    • Kopiere sie mit Strg + C.
    • Wechsle zur Ziel-Tabelle und füge sie mit Strg + V ein.
  2. Verwendung von Formeln:

    • Du kannst auch Formeln verwenden, um Werte zu verlinken, wie zum Beispiel =Tabelle1!B2, um den Wert von Tabelle1 in Tabelle2 anzuzeigen.

Praktische Beispiele

Hier ist ein praktisches Beispiel für die Verwendung des Codes:

  1. Voraussetzungen: Du hast zwei Tabellen in einer Excel-Datei, nennen wir sie "Tabelle1" und "Tabelle2".
  2. Werte in "Tabelle1": Angenommen, in "Tabelle1" stehen folgende Werte:
    • B2: 10
    • C2: 20
    • D2: 30
  3. Ziel in "Tabelle2": Der Code überträgt diese Werte in die nächste freie Spalte in "Tabelle2" und zeigt den Wert von "A2" als Nachricht an.

Tipps für Profis

  • Fehlerbehandlung einbauen: Füge im VBA-Code Fehlerbehandlungsroutinen ein, um sicherzustellen, dass unerwartete Fehler elegant behandelt werden.

  • Verwendung von Variablen: Nutze Variablen, um die Lesbarkeit des Codes zu erhöhen und zukünftige Anpassungen zu erleichtern.

  • Schutz der Arbeitsblätter: Berücksichtige den Schutz Deiner Arbeitsblätter, um unbefugte Änderungen zu vermeiden, während Du mit VBA arbeitest.


FAQ: Häufige Fragen

1. Kann ich Zellen aus einer geschlossenen Datei übertragen?
Nein, Du kannst keine Werte aus einer geschlossenen Datei in Excel übertragen. Du musst die Datei zuerst öffnen.

2. Was passiert, wenn ich versehentlich den Code ändere?
Wenn Du den Code änderst und es nicht mehr funktioniert, kannst Du immer eine Sicherungskopie der Datei anlegen oder den ursprünglichen Code wiederherstellen.

3. Funktioniert dies in Excel Online?
Die VBA-Funktionen sind nicht in Excel Online verfügbar. Du musst die Desktop-Version von Excel verwenden, um VBA-Codes auszuführen.

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