Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1492to1496
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1492to1496
1492to1496
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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

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?

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

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.

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

300 Forumthreads zu ähnlichen 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
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
Button mit Filterfunktion erstellen! aber wie ?
Richi

Hallo Zusammen,
wie kann man im Excel ein Button erstellen, das wenn man drauf klickt, ein Bestimter Filter ausgeführt wird ?
06.02.2009 09:35:00
Thread-ID: 1047622
2 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
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
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
3
1
3
1
12
2
1
3
11
5
2
3
2
5
4
7
1
3
8
1
7
1
4
6