Die verwendete Arbeitsmappe + 290 weitere praktische Excel Vorlagen findet ihr auf der Excelpedia Seite: www.excelpedia.at/courses/excelpedia-datenbank
Hey Leute! Konnte euch das Video weiterhelfen? Lasst mir gerne Feedback hier in den Kommentaren. Ich freue mich über eine positive Bewertung und ein Abo. :-)
Hi, Super Video. Aber wie sieht es aus wenn das "Ziel" Workbook nicht immer gleich ist? Kann ich den Namen vom Workbook aus einer Tabelle auslesen? MFG.
Ich könnte den Dateinamen mit. Xlsm Endung in einer Zelle anzeigen lassen zb als Text. Kann ich dann diesen zelleninhalt vom vba editor abfragen lassen als zieldatei? Mfg
funktioniert bei mir leider nicht. die 1er vor "LetzteReiheZiel" werden mir als Fehler angezeigt Wenn ich die weg mache, bekomme ich die Meldung "Unzulässige Verwendung einer Eigenschaft" bezogen auf das letzte "Range"
haben Sie evtl einen Tipp wie ich errechnete Werte letzte Spalte (vorher mit makros aufgezeichnet die Formel) mit Hilfe von Makros eine Ampelschaltung vornehmen kann? Also ich hab ein Ergebnis und ich habe die Grenzwerte.. wie kann ich es umsetzten mit Makros...
Hallo. Danke für das Video. Meine Frage wäre jetzt wir kann ich nach der Ermittlung der letzten befüllten Zeile dann auch diese markieren und kopieren. Also bei mir hätte ich dann gerne die letzte befüllte Zeile der Tabelle von Spalte A bis F in Copý um diese dann weiter verarbeiten zu können. Es kann auch sein das mehr Daten in der Zeile stehen ich benötige jedoch nur die Spalten A bis F Meine Prüfung muss in Spalte A83 beginnen. Von dort aus suchen nach der letzten befüllten Zeile und dann diese kopieren v. A - F alles andere nicht und nur diesse Zeile. Die Einträge werden ggf. weiter befüllt und ich muss immer die neue letzte Zeile in Copy haben. Dankeschön für die Antwort. LG Frank
@@Excelpedia Hallo, ich habe eine Möglichkeit gefunden wie es für mich funktioniert. Nur habe ich ein Problem! Ich würde gerne im geschlossenen Tabellenblatt 4 eine neue Zeile einfügen, damit sich die Daten nicht ständig überschreiben. Könntest du mir da weiterhelfen? Public Sub Schreiben() Dim sPfad As String ' der Ordner-Pfad der Excel-Mappen Dim sDatei As String ' die zu beschreibende Datei Dim WkSh_Q As Worksheet ' das Quell-Tabellenblatt - die Herkunft Dim WkSh_Z As Worksheet ' das Ziel-Tabellenblatt - das Ergebnis
sPfad = "/Users/Andi/Desktop/" sDatei = "Alphabete.xlsx" Application.ScreenUpdating = False If Dir(sPfad & sDatei) "" Then Workbooks.Open (sPfad & sDatei) ThisWorkbook.Activate 'Application.ActiveWindow.Visible = False Else MsgBox "Den angegebenen Ordner """ & sPfad & """" & Chr(10) & _ "und/oder die gesuchte Datei """ & sDatei & """ gibt es nicht!", _ 16, " Hinweis für " & Application.UserName Exit Sub End If Set WkSh_Q = ThisWorkbook.Worksheets("Tabelle1") Set WkSh_Z = Workbooks(sDatei).Worksheets("Tabelle4")
WkSh_Q.Cells.Range("B1").Copy Destination:=WkSh_Z.Range("B2") WkSh_Q.Cells.Range("A1").Copy Destination:=WkSh_Z.Range("A2") WkSh_Q.Cells.Range("C1").Copy Destination:=WkSh_Z.Range("C2") Workbooks(sDatei).Close SaveChanges:=True Application.ScreenUpdating = True MsgBox "Die Daten wurden erfolgreich übergeben.", _ 64, " Information für " & Application.UserName End Sub Vielen Dank!
Sehr cool! Wenn ich den Namen der Mappe und 10 bestimmte felder in eine neue Arbeitspappe kopieren möchte wie funktioniert das? bzw. geht das überhaupt?
Ich habe versucht das nebeneinander zu kopieren. Wenn ich anstatt ...Count, "A" ein "4" eingebe funktioniert es nicht mehr. Er soll in Spalte 4 starten. Hat jemand eine Idee?
ich bekomme immer den Fehler 438 kann mir da jemand weiterhelfen? Liegt es am Dateiformat ohne Makros oder muss ich generell eine Umstellung im Programm machen? danke im voraus
Hallo Tobi-Wan, die Datei muss auf jeden Fall als .xslm (mit Makros) abgespeichert werden, wenn Makros drinnen sind. Du kannst uns die Datei aber auch gerne an office@excelpedia.at schicken, dann schauen wir uns das Makro gerne mal an!
Hallo Zusammen, vielen Dank für das Video. Ich verwende das VBA innerhalb eines Workbooks. Bei mir kommt allerdings die Fehlermeldung "Laufzeitfehler1004": Die Methode 'Range' für das Objekt '_Worksheet' ist fehlgeschlagen. Kann mir jemand das Problem erklären ?
Hallo Johannes, ich kann leider das Workbook mit dem Code auf deiner Website nicht öffnen bzw. wenn ich zu den VBA Codes gehe reagiert der nicht, wenn ich auf den Button zu den Files klicke... weißt du woran das liegt oder könntest du den Code nochmal so in die Kommentare schreiben?
und kann man mit diesem Makro auch nur einzelne Zellen kopieren, also genau so wie im Video "Bestimmte Zellen in ein anderes Tabellenblatt kopieren", nur dass man diese Zellen eben in eine andere Datei kopiert?
zwar schon was her, aber deine Erklärung für den Code, der die letzte Zeile ermittelt, ist nicht ganz richtig/etwas schwammig. Die Quintessenz ist Rows.Count, das die Anzahl der Zellen im Worksheet zurückgibt (also knapp eine Million bei den neueren Excel Versionen), und dann mit XlUp von UNTEN bis zur letzten gefüllten Zeile hochspringt.
Die verwendete Arbeitsmappe + 290 weitere praktische Excel Vorlagen findet ihr auf der Excelpedia Seite: www.excelpedia.at/courses/excelpedia-datenbank
Hey Leute! Konnte euch das Video weiterhelfen? Lasst mir gerne Feedback hier in den Kommentaren. Ich freue mich über eine positive Bewertung und ein Abo. :-)
Hi,
Super Video.
Aber wie sieht es aus wenn das "Ziel" Workbook nicht immer gleich ist? Kann ich den Namen vom Workbook aus einer Tabelle auslesen?
MFG.
Gibt es denn eine Konstante die immer gleich ist ? Irgendwas muss den Code ja sagen, dass es „die“ arbeitsmappe sein soll :)
Ich könnte den Dateinamen mit. Xlsm Endung in einer Zelle anzeigen lassen zb als Text.
Kann ich dann diesen zelleninhalt vom vba editor abfragen lassen als zieldatei?
Mfg
bro du rettest mein Leben. ohne die Videos wär meine Note in der Schule echt mayer
funktioniert bei mir leider nicht.
die 1er vor "LetzteReiheZiel" werden mir als Fehler angezeigt
Wenn ich die weg mache, bekomme ich die Meldung "Unzulässige Verwendung einer Eigenschaft" bezogen auf das letzte "Range"
Hey André,
vor "LetzteReiheZiel" steht ein kleines "L". VBA akzeptiert keine Zahlen am Anfang einer Variable, daher gibt er dir den Fehler aus.
LG Kai
haben Sie evtl einen Tipp wie ich errechnete Werte letzte Spalte (vorher mit makros aufgezeichnet die Formel) mit Hilfe von Makros eine Ampelschaltung vornehmen kann? Also ich hab ein Ergebnis und ich habe die Grenzwerte.. wie kann ich es umsetzten mit Makros...
Hallo. Danke für das Video. Meine Frage wäre jetzt wir kann ich nach der Ermittlung der letzten befüllten Zeile dann auch diese markieren und kopieren.
Also bei mir hätte ich dann gerne die letzte befüllte Zeile der Tabelle von Spalte A bis F in Copý um diese dann weiter verarbeiten zu können. Es kann auch sein das mehr Daten in der Zeile stehen ich benötige jedoch nur die Spalten A bis F
Meine Prüfung muss in Spalte A83 beginnen. Von dort aus suchen nach der letzten befüllten Zeile und dann diese kopieren v. A - F alles andere nicht und nur diesse Zeile.
Die Einträge werden ggf. weiter befüllt und ich muss immer die neue letzte Zeile in Copy haben.
Dankeschön für die Antwort. LG Frank
Gibt es auch ein Video dazu, wie man die Daten übertragen kann, auch wenn die andere Datei geschlossen ist ?
Leider nein..
@@Excelpedia schadeeee trotzdem cool
@@supertag9288 Hallo hast du da schon eine Lösung gefunden? Ich würde die Anwendung auch brauchen! LG
Grundsätzlich geht es - ist aber sehr komplex
@@Excelpedia Hallo, ich habe eine Möglichkeit gefunden wie es für mich funktioniert. Nur habe ich ein Problem! Ich würde gerne im geschlossenen Tabellenblatt 4 eine neue Zeile einfügen, damit sich die Daten nicht ständig überschreiben. Könntest du mir da weiterhelfen?
Public Sub Schreiben()
Dim sPfad As String ' der Ordner-Pfad der Excel-Mappen
Dim sDatei As String ' die zu beschreibende Datei
Dim WkSh_Q As Worksheet ' das Quell-Tabellenblatt - die Herkunft
Dim WkSh_Z As Worksheet ' das Ziel-Tabellenblatt - das Ergebnis
sPfad = "/Users/Andi/Desktop/"
sDatei = "Alphabete.xlsx"
Application.ScreenUpdating = False
If Dir(sPfad & sDatei) "" Then
Workbooks.Open (sPfad & sDatei)
ThisWorkbook.Activate
'Application.ActiveWindow.Visible = False
Else
MsgBox "Den angegebenen Ordner """ & sPfad & """" & Chr(10) & _
"und/oder die gesuchte Datei """ & sDatei & """ gibt es nicht!", _
16, " Hinweis für " & Application.UserName
Exit Sub
End If
Set WkSh_Q = ThisWorkbook.Worksheets("Tabelle1")
Set WkSh_Z = Workbooks(sDatei).Worksheets("Tabelle4")
WkSh_Q.Cells.Range("B1").Copy Destination:=WkSh_Z.Range("B2")
WkSh_Q.Cells.Range("A1").Copy Destination:=WkSh_Z.Range("A2")
WkSh_Q.Cells.Range("C1").Copy Destination:=WkSh_Z.Range("C2")
Workbooks(sDatei).Close SaveChanges:=True
Application.ScreenUpdating = True
MsgBox "Die Daten wurden erfolgreich übergeben.", _
64, " Information für " & Application.UserName
End Sub
Vielen Dank!
Sehr cool! Wenn ich den Namen der Mappe und 10 bestimmte felder in eine neue Arbeitspappe kopieren möchte wie funktioniert das? bzw. geht das überhaupt?
Hey,
wie besprochen - grundsätzlich ja, nur mit einem Aufwand verbunden.. :-) LG
Ich habe versucht das nebeneinander zu kopieren. Wenn ich anstatt ...Count, "A" ein "4" eingebe funktioniert es nicht mehr. Er soll in Spalte 4 starten. Hat jemand eine Idee?
Gibt es eine Lösung, bei der die Zielmappe geschlossen ist?
Ja gibt es.. Man kann mittels einen Code die VBA Mappe vorher öffnen und dann wieder schließen.
ich bekomme immer den Fehler 438 kann mir da jemand weiterhelfen? Liegt es am Dateiformat ohne Makros oder muss ich generell eine Umstellung im Programm machen?
danke im voraus
Hallo Tobi-Wan, die Datei muss auf jeden Fall als .xslm (mit Makros) abgespeichert werden, wenn Makros drinnen sind. Du kannst uns die Datei aber auch gerne an office@excelpedia.at schicken, dann schauen wir uns das Makro gerne mal an!
Hallo Zusammen,
vielen Dank für das Video. Ich verwende das VBA innerhalb eines Workbooks. Bei mir kommt allerdings die Fehlermeldung "Laufzeitfehler1004": Die Methode 'Range' für das Objekt '_Worksheet' ist fehlgeschlagen. Kann mir jemand das Problem erklären ?
Was Steht denn beim Range Bereich im Code ?
@@Excelpedia :
'Daten kopieren
wsNeueDaten.Range("B6, G6, H6" & lLetzteReiheNeueDaten).Copy _
wsZiel.Range("A" & lLetzteReiheZiel)
@@dominikschick7735 'Daten kopieren
wsNeueDaten.Range("A2:K" & lLetzteReiheneueDaten).Copy
wsZiel.Range("A" & lLetzteReiheZiel).PasteSpecial
Leider kommt bei mir immer der Fehler "Sub oder Function nicht definiert" hast du dafür einen Tipp?
Scheint so, als gleich in der ersten Zeile bei Sub etwas fehlerhaft ist. In der ersten Zeile des Codes muss stehen Sub kopieren()
Hallo Johannes, ich kann leider das Workbook mit dem Code auf deiner Website nicht öffnen bzw. wenn ich zu den VBA Codes gehe reagiert der nicht, wenn ich auf den Button zu den Files klicke... weißt du woran das liegt oder könntest du den Code nochmal so in die Kommentare schreiben?
Hier der direkte Link: drive.google.com/drive/folders/1jNxDoW8npnZMSTIEEe52jsgnoIZsKdLf
LG
@@Excelpedia Vielen Dank!!! allerdings wird mir leider bei der zugehörigen Datei nur noch einmal das Video angezeigt und leider nicht der VBA Code
und kann man mit diesem Makro auch nur einzelne Zellen kopieren, also genau so wie im Video "Bestimmte Zellen in ein anderes Tabellenblatt kopieren", nur dass man diese Zellen eben in eine andere Datei kopiert?
Super Video👍👍 ich wollte fragen ob du ein Video zu diagrammen machen kannst die man scrolln kann, bitte? Mit vba
Gerne! Was genau meinst du mit scrollen?
Warum haben diese deutschsprachigen Tutorials eig. IMMER einen Akzent xD
Trotzdem gute Arbeit.
Fällt mir nur jedes mal auf.
#österreich :D
Vom Steinchen aufs Stöckchen
'Daten kopieren
wsNeueDaten.Range("A2:K" & lLetzteReiheneueDaten).Copy
wsZiel.Range("A" & lLetzteReiheZiel).PasteSpecial
zwar schon was her, aber deine Erklärung für den Code, der die letzte Zeile ermittelt, ist nicht ganz richtig/etwas schwammig. Die Quintessenz ist Rows.Count, das die Anzahl der Zellen im Worksheet zurückgibt (also knapp eine Million bei den neueren Excel Versionen), und dann mit XlUp von UNTEN bis zur letzten gefüllten Zeile hochspringt.