Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1400to1404
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zellen inhalt in anderer Tabelle kopieren

Zellen inhalt in anderer Tabelle kopieren
02.01.2015 12:10:22
Dom-Kam
Hallo ich möchte ein makro mit 1 ganz simplen aufgabe versehen.
Ich möchte den inhalt bestimter zellen per knopfdruck von tab1 in tab2 kopieren
nur leider bleibt der Button ohne funktion
Sub KopiereBereich()
Dim Quelltab As Worksheet
Dim Zieltab As Worksheet
Dim Zelle As Range
Dim Zaehler As Long
Zaehler = 1
Bereich = "A1:A10"
Set Quelltab = ActiveWorkbook.Worksheets("Tabelle1")
Set Zieltab = ActiveWorkbook.Worksheets("Tabelle2")
For Each Zelle In Quelltab.Range("A1:A10")
Zieltab.Cells(Zaehler, 1) = Zelle
Zaehler = Zaehler + 1
Next Zelle
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen inhalt in anderer Tabelle kopieren
02.01.2015 12:24:38
fcs
Hallo Dom-Kam,
wenn es ein Button aus den Formular-Steuerelementen ist, dann muss du das Makro der Schaltfläche zuweisen (Schaltflächen anklcken, dann Rechte-Maus-Klick und zuweisen).
Ist deine Schaltfläche aus den Active-X-Steuerelementen, dann muss du unter den Entwicklungstools oder im VBA-Editor den "Entwurfsmodus" (Schaltfläche mit Dreick, Stift und Lineal) aktiiveren.
Nach Doppelklick auf die Schaltfläche im Tabellenblatt wird dann das Grundgerüst des Makros angelegt.
Hier dann die die Codezeile:
Call KopiereBereich
einfügen.
Gruß
Franz

Code dem Button auch zugewiesen?
02.01.2015 12:25:55
Matthias
Hallo
Hast Du denn dem Button den den Code auch zugewieden?
Ich habe keien Probleme, funktioniert wie es soll.
Nur das ich im Code Bereich = "A1:A10" entfernt habe weil unbenutzt im Code.
Das hat aber nichts mit Deinem Problem zu tun.
Gruß Matthias

Anzeige
Re:Zellen inhalt in anderer Tabelle kopieren
02.01.2015 14:28:46
Dom-Kam
Ok Habe den code dem Button zugewiesen. Habe aber noch einen anderen code dazugepackt der dafür sorgen soll das der alte Text gelöscht wird. Wäre nett wenn ihr euch das mal anschauen könnt.
Private Sub BPOK_Click()
Dim Quelltab As Worksheet
Dim Zieltab As Worksheet
Dim Zelle As Range
Dim Zaehler As Long
Zaehler = 1
Bereich = "A1:F30"
Set Quelltab = ActiveWorkbook.Worksheets("Pizza")
Set Zieltab = ActiveWorkbook.Worksheets("Kasse")
For Each Zelle In Quelltab.Range("A1:A10")
Zieltab.Cells(Zaehler, 95) = Zelle
Zaehler = Zaehler + 1
Next Zelle
Sheets("Pizza").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWindow.SmallScroll ToRight:=-2
Range("A6:H71").Select
Selection.Delete Shift:=xlUp
Range("E3").Select
Selection.ClearContents
ActiveWindow.SmallScroll ToRight:=2

Anzeige
AW: Re:Zellen inhalt in anderer Tabelle kopieren
02.01.2015 15:25:33
Matthias
Hallo (=Begrüßung)


Beitragstext:
Zitat
Wäre nett wenn ihr euch das mal anschauen könnt.
Ok, angeshehen hab ich es mir. Und nun?
Du hast ja wieder Bereich = "A1:A10" im Code
obwohl Du dann die Stringvariable(Bereich) nicht mehr benutzt. Hatte ich bereits erwähnt!
Da Du ja beratungsresistent bist, werde ich das nicht nachbauen.
Was Du genau mit "alter Text" meinst ist mir nicht klar.
Evtl. solltest Du das Löschen genauso machen wie im Code,
was auch in einer Zeile geht
Range(DeinBereich).ClearContents



Gruß Matthias (=netter Gruß am Ende des Beitrages)
Anzeige

329 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige