Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1492to1496
1492to1496
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte mit Makro einfügen

Forumthread: Werte mit Makro einfügen

Werte mit Makro einfügen
28.05.2016 15:09:33
Robert
Hallo Zusammen,
wie müsste ich den folgenden Code abändern damit nicht die Tabelle eins zu eins ans
Ende kopiert wird sondern nur die Werte eingefügt werden? 
Private Sub Übernehmen_Click()
Sheets("Datenverarbeitung").Range("AQ2:BC200").Copy Sheets("Datenerfassung").Range("A" &  _
Rows.Count).End(xlUp).Offset(1, 0)
End Sub

Danke und Gruß
Robert

Anzeige

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte mit Makro einfügen
28.05.2016 15:28:06
Nepumuk
Hallo,
so:
Option Explicit

Private Sub Übernehmen_Click()
    Call Worksheets("Datenverarbeitung").Range("AQ2:BC200").Copy
    With Worksheets("Datenerfassung")
        Call .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial(Paste:=xlPasteValues)
    End With
    Application.CutCopyMode = False
End Sub

Gruß
Nepumuk

Anzeige
AW: Werte mit Makro einfügen
28.05.2016 15:46:34
Robert
Hi Nepumuk,
danke für die superschnelle Antwort.
Jetzt stehe ich leider vor dem Problem das "immer" die Zellen AQ2:BC200 eingefügt werden.
Ich ging davon aus das wenn diese Zelle (z.B. 130 - 200) leer sind nichts eingefügt wird und beim nächsten betätigen
des Übernehmen-Makros dann nicht bei Zeile 201 angesetzt wird sondern an der letzten freien Zeile.
Hast du dafür auch eine Lösung für mich?
Gruß Robert

Anzeige
AW: Werte mit Makro einfügen
28.05.2016 17:40:45
Crazy
Hi
wenn keine Leerzeilen zwischen drin sind
geht das in meinem Test so 
Private Sub Übernehmen_Click()
Dim lngLetzte As Long
Dim lngZiel As Long
Application.ScreenUpdating = False
With Sheets("Datenverarbeitung")
lngLetzte = .Cells(Rows.Count, "AQ").End(xlUp).Row
.Range("AQ2:BC" & lngLetzte).Copy
End With
With Sheets("Datenerfassung")
lngZiel = .Cells(Rows.Count, "A").End(xlUp).Row + 1
.Cells(lngZiel, "A").PasteSpecial Paste:=xlValues
End With
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub

MfG Tom

Anzeige
AW: Werte mit Makro einfügen
28.05.2016 17:57:53
Robert
Hey Tom,
vielen Dank das du dir die Mühe gemacht hast und entschuldige bitte das ich die Information das in allen Zellen etwas steht so spät rausgegeben habe. Leider kann ich deinen Code so nicht verwenden da
die Zelle welche Formel enthalten auch leider als gefüllte Zelle erkannt werden.
Hast du eine Idee was ich da machen könnte?

Anzeige
AW: Werte mit Makro einfügen
28.05.2016 18:02:34
Crazy
Hi
dann probiere das hier mal wenn es nie mehr als 200 Zeilen werden 
Private Sub Übernehmen_Click()
Dim lngLetzte As Long
Dim lngZiel As Long
Application.ScreenUpdating = False
With Sheets("Datenverarbeitung")
lngLetzte = WorksheetFunction.Count(.Range("AQ1:AQ200"))
.Range("AQ2:BC" & lngLetzte).Copy
End With
With Sheets("Datenerfassung")
lngZiel = .Cells(Rows.Count, "A").End(xlUp).Row + 1
.Cells(lngZiel, "A").PasteSpecial Paste:=xlValues
End With
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub

ansonsten den Bereich in der Worksheetfunction dementsprechend erweitern
MfG Tom

Anzeige
AW: Werte mit Makro einfügen
28.05.2016 18:10:11
Robert
Jetzt bekomme ich eine Fehlermeldung für:
.Range("AQ2:BC" & lngLetzte).Copy

AW: Werte mit Makro einfügen
28.05.2016 18:16:49
Crazy
Hi
ja der Fehler kommt wenn dort Text steht
dann ermittel den Bereich von der Ursprungszelle
wenn in der Spalte AQ immer diese Formel drin steht
kann man die letzte Zeile in Spalte A ermitteln 
Private Sub Übernehmen_Click()
Dim lngLetzte As Long
Dim lngZiel As Long
Application.ScreenUpdating = False
With Sheets("Datenverarbeitung")
lngLetzte = .Cells(Rows.Count, "A").End(xlUp).Row
.Range("AQ2:BC" & lngLetzte).Copy
End With
With Sheets("Datenerfassung")
lngZiel = .Cells(Rows.Count, "A").End(xlUp).Row + 1
.Cells(lngZiel, "A").PasteSpecial Paste:=xlValues
End With
Application.ScreenUpdating = True
Application.CutCopyMode = False
End Sub

MfG Tom

Anzeige
AW: Werte mit Makro einfügen
28.05.2016 18:54:44
Robert
Entschuldige aber leider werden wieder alle Zelle übernommen und beim zweiten mal Kopieren geht es dann erst wieder bei Zelle 201 los.so das sehr viele Zellen zwischendurch leer sind.
Würde eine Beispieldatei helfen? Dann würde ich eben eine erstellen.

AW: Werte mit Makro einfügen
28.05.2016 19:18:36
Crazy
Hi
Beispieltabelle ist immer gut
MfG Tom

Anzeige
AW: Werte mit Makro einfügen
28.05.2016 19:40:38
Robert
https://www.herber.de/bbs/user/105841.zip
Anbei das Beispiel.
Ich hoffe du hast Verständnis dafür das ich einige Daten und Tabellenblätter löschen musste aber im groben ist das die Datei in Ihrem aktuellen status.
Da ich nicht der mega Coder bin Versuche ich einiges über Formel abzufedern und dann erst in die Userform zu übertragen. Deshalb gehen die Daten zwischen mehreren Tabellen hin und her.
Am Ende sollte im Sheet Datenerfassung eine Sauber Auflistung der Wareneingänge erscheinen ohne Leerzeilen.
Danke schon mal und Gruß
Robert

Anzeige
AW: Werte mit Makro einfügen
28.05.2016 19:45:40
Nepumuk
Hallo,
teste mal:
Option Explicit

Private Sub Übernehmen_Click()
    Dim objCell As Range
    With Worksheets("Datenverarbeitung")
        Set objCell = .Columns(1).Find(What:="*", LookIn:=xlValues, Lookat:=xlWhole, _
            SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
        Call .Range(.Cells(2, 43), .Cells(objCell.Row, 55)).Copy
    End With
    With Worksheets("Datenerfassung")
        Set objCell = .Columns(1).Find(What:="*", LookIn:=xlValues, Lookat:=xlWhole, _
            SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
        Call objCell.Offset(1, 0).PasteSpecial(Paste:=xlPasteValues)
    End With
    Set objCell = Nothing
    Application.CutCopyMode = False
End Sub

Gruß
Nepumuk

Anzeige
AW: Werte mit Makro einfügen
29.05.2016 09:13:30
Robert
Es läuft. Vielen Danke Nepumuk, Tom und Werner jetzt kann das Tool endlich nächste Woche testweise eingesetzte werden.
Gruß Robert

AW: Werte mit Makro einfügen
28.05.2016 17:42:34
Robert
Noch als Ergänzung in alle Zellen sind Formel hinterlegt (z.B. =wennA2="";"";A2)
Deshalb möchte ich nur die Werte an das Ende der anderen Tabelle Kopieren und somit fixieren da sich die Werte im zu Kopierenden bereich immer wieder ändern.

Anzeige
AW: Werte mit Makro einfügen
28.05.2016 21:02:54
Werner
Hallo Robert,
Public Sub test()
Dim loLetzte As Long
loLetzte = Worksheets("Tabelle1").Columns(1).Find(what:="?*", LookIn:=xlValues, lookat:=xlWhole, _
searchdirection:=xlPrevious).Row
MsgBox loLetzte
End Sub
Überprüft wird Spalte A =Columns(1) im Blatt "Tabelle1" - ggf. anpassen.
Gruß Werner

Anzeige
AW: Gerne und danke für die Rückmeldung. o.w.T.
29.05.2016 13:45:08
Werner

Forumthreads zu verwandten Themen

Button in B1 passen einfügen? VBA
Tom

Hi,
ich will einfach per VBA ein Button der auf eine Makro verlinkt ist, in das aktive Tabellenblatt einsetzt und zwar genau passend in die Zelle B1.
Kann mir da vll. einer den Code dafür sagen mit dem Makrorekorder muss ich das passend ziehen das gefällt mir nicht so.
mfg Tom
...
14.08.2008 16:34:00
Thread-ID: 1001915
2 Beiträge
Zelle in andere Tabelle mit Button kopieren
Benny

Hallo Zusammen!
Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
Danke im Voraus!
Benny
07.10.2008 10:06:48
Thread-ID: 1014629
4 Beiträge
Anzeige
Zelleninhalt mit CommandButton in Textbox anzeigen
Markus

Hallo an alle!
Mein Makro kann bisher folgendes:
Per Klick auf 1 von 300 Comandbuttons wird der entsprechende Inhalt aus einer von 300 Zellen in eine Textbox geladen.
"Das funktioniert"
Nun möchte ich , nachdem ich einen Button gedrückt habe und der Inhalt in Textbox angezeigt w...
21.11.2008 11:05:00
Thread-ID: 1026664
2 Beiträge
Button auf Sheet mit Funktion aus Userform
Macro

Hi,
ich habe eine Sheet, wo beim starten eine Userfoem aufgeht. Auf der Userform hat es Buttons drauf mit verschiedenen Funktionen.
Nun habe ich einen Button direkt auf meinem Sheet und möchte von da aus eine Funktion aus der Userform aufrufen. Das habe ich mit :
Call UserForm1.Comm...
24.11.2008 09:16:13
Thread-ID: 1027197
4 Beiträge
Anzeige
OptionButtons in Grp mittels Makro erstellen
adrian

Hi,
wie folgt wird ein OptionButton mittels Makro erstellt: Die Prozedur wird dann zusammen mit einer anderen im HauptSheet aufgerufen.
Nur weiß ich leider nicht wie ich mehrere OB, bzw. drei untereinander als Gruppe erstellen kann =(
Mehrere Prozeduren, für jeweils jeden OB ist ja...
16.12.2008 14:44:00
Thread-ID: 1033291
13 Beiträge
Optionsbutton in Userform abhängig von Zelle
Zelle

Hallo,
ich habe drei Optionsbuttons in einer Userform. Alle gehören zu einer Gruppe.
es kann also immer nur eine Option gewählt sein.
Beim Aufruf der Userform soll eine Option in Abhängigkeit des Wertes in Zelle A1
"voreingestellt" werden.
Dazu habe ich im Userform_Initializ...
26.01.2009 12:04:00
Thread-ID: 1043821
3 Beiträge
Auswahlbutton oder Zelle mit Auswahlfunktion
Michael

In einer Reihe von untereinander stehenden Zellen möchte ich aus einem anderen Blatt bzw. einer anderen Datei einzelne Daten auswählen (aus einer Spalte mit mehreren Hundert vergebenen Auftragsnummer).
Diese ausgewählte Auftragsnummer soll sich dann in das aktive Feld eintragen.
Beispie...
02.03.2009 11:09:27
Thread-ID: 1055472
4 Beiträge
Anzeige
Zeitdifferenz in Zelle einfügen
Alina

Hallo zusammen,
ich habe mir in Excel eine Überstundentabelle gebastelt. Soweit funktioniert auch alles. Ich kann mir auch die Überstunden pro Tag in der Spalte G berechnen lassen. Berechnet wird das durch die Solleinzeit in Spalte F und der tatsächlichen Endzeit in Spalte D.
Nun möcht...
16.08.2009 00:06:36
Thread-ID: 1096190
12 Beiträge
Formel in Zelle einfügen
Alexander

Hallo zusammen,
Sub test() Dim str As String str = "=WENN(Daten!$F$1='Tabelle1'!" & Cells(11, 5).Address & ";JAHR('Tabelle1'!" & Cells(18, 4) _ .Address & ")" End Sub wie kann ich die Formel in der Varialben str in eine Zelle einfügen? Oder kann ich die Formel auch direkt o...
13.10.2009 09:45:55
Thread-ID: 1109248
6 Beiträge
Anzeige
Zellinhalt mit Makro als Wert einfügen
Patricia

Hallo
ich möchte gerne mit unten stehenden Makro, den Inhalt einer Zelle bzw. mehreren Zellen als nur Wert automatisch einfügen. Habe ich sonst immer mit strg c-inhalte einfügen-werte gemacht. Das ist aber bei manchen Kalk. wegen vieler verschiedener Werte, sehr aufwendig. Mein problem ist...
27.10.2009 20:38:51
Thread-ID: 1112362
4 Beiträge
TAB-Sprung von Zelle in Sheet zu CommandButton
Zelle

Hallo Excel-Experten,
mir stellt sich folgendes Problem:
Ich habe ein Worksheet, das in den Spalten A-G (in nur einer Zeile) Werte enthält.
Rechts neben diesen Werten befindet sich ein CommandButton.
Nun springe ich per Tab durch die jeweiligen Zellen und tippe händisch Werte ei...
10.11.2009 13:51:22
Thread-ID: 1115852
3 Beiträge
Makro mit Button aufrufen
Joni

Hi,
ich möchte mit
Private Sub Buchungen_einfügen_Click() Call Buchungen_einfügen End Sub das Makro Buchungen einfügen aufrufen (wenn auf den Button geklickt wird). Da kriege ich die Meldung Prozedur statt Variale erwartet.
Kann mir jemand helfen warum das nicht funktioniert?
D...
17.11.2009 13:36:53
Thread-ID: 1117967
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige