VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
keine Ahnung wie ich das kurz beschreiben soll :-)	20.09.2013 11:04:17	Gast50949
keine Ahnung wie ich das kurz beschreiben soll :-)	20.09.2013 12:59:47	Gast33298
keine Ahnung wie ich das kurz beschreiben soll :-)	20.09.2013 15:49:38	Gast51007
keine Ahnung wie ich das kurz beschreiben soll :-)	21.09.2013 13:47:54	Gast21447
keine Ahnung wie ich das kurz beschreiben soll :-)	24.09.2013 10:32:11	Ursprungs Gast
keine Ahnung wie ich das kurz beschreiben soll :-)	24.09.2013 16:55:35	Neuhäusler Korbinian
keine Ahnung wie ich das kurz beschreiben soll :-)	24.09.2013 17:08:49	Gast52681
keine Ahnung wie ich das kurz beschreiben soll :-)	25.09.2013 08:59:05	Ursprungs Gast
keine Ahnung wie ich das kurz beschreiben soll :-)	25.09.2013 19:59:07	Gast77462
keine Ahnung wie ich das kurz beschreiben soll :-)	26.09.2013 11:18:19	Ursprungs Gast
keine Ahnung wie ich das kurz beschreiben soll :-)	27.09.2013 04:00:32	Gast25383
Starthilfe	27.09.2013 04:36:22	Gast52516
keine Ahnung wie ich das kurz beschreiben soll :-)	27.09.2013 04:09:50	Gast22838
keine Ahnung wie ich das kurz beschreiben soll :-)	02.10.2013 09:35:50	Gast48511

Ansicht des Beitrags:

Von:
Gast50949

Datum:
20.09.2013 11:04:17

Views:
1714

Rating:

Antwort:

Thema:
keine Ahnung wie ich das kurz beschreiben soll :-)

Hallo zusammen,

ich bin schon wie blöde am probieren.

Wie schaffe ich es, dass ich Daten von einem Formular, dessen Dateiname sich natürlich ständig ändert (ist ein Anmeldeformular und wird immer auch durch einen makro unter einem bestimmten namen an einem bestimmten ort gespeichert) in die dazugehörige Liste an Anmeldungen kopieren kann. Ich hab es schon, dank des recorders, für ein Formular geschafft, auch die letzte Zeile finden usw., aber wie mache ich diesen Code für alle Formulare aus diesem Ordner gültig? Ich dachte mit MsgBox AktiveWorkbook.Name oder MsgBox ThisWorkbook.Name, ist ja eigentlich doppelt gemoppelt ist es erledigt. Dann habe ich den Code in einer Persönlichen Makroarbeitsmappe oder wie das heißt gespeichert. Aber jetzt erkennt der Code AktiveWorkbook.Name nicht mehr das Anmeldeformular, sondern die im verborgenen geöffnete Arbeitsmappe von diesem Persönlichen Dings.

Ich hoffe, es ist deutlich geworden was ich gerne hätte. Meine stundenlange googelei hat leider nichts gebracht. Aber mir wurde hier schon mal so toll geholfen.

LG,

Sub Anmeldungen()
'
' Anmeldungen Makro
'
' Tastenkombination: Strg+d
'
MsgBox AktiveWorkbook.Name
MsgBox ThisWorkbook.Name
 
Range("E1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Anmeldungen,aktuell.xlsm").Activate
Cells(65000, 6).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Windows(ThisWorkbook.Name).Activate
Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Anmeldungen,aktuell.xlsm").Activate
Cells(65000, 5).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Windows(ThisWorkbook.Name).Activate
End Sub

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:
WYSIWYG-Editor, ctl00_Content_editor1 Editor WerkzeugleistenDokument Quellcode VorschauZwischenablage/Rückgängig AusschneidenTastaturkürzel Strg+X KopierenTastaturkürzel Strg+C EinfügenTastaturkürzel Strg+V Als Klartext einfügenTastaturkürzel Strg+Alt+Umschalt+V Aus Word einfügen RückgängigTastaturkürzel Strg+Z WiederherstellenTastaturkürzel Strg+YEditieren Suchen Ersetzen Alles auswählenGrundstile FettTastaturkürzel Strg+B KursivTastaturkürzel Strg+I UnterstrichenTastaturkürzel Strg+U Durchgestrichen Formatierung entfernenAbsatz Nummerierte Liste einfügen/entfernen Liste Einzug verringern Einzug erhöhen Zitatblock Linksbündig Zentriert Rechtsbündig BlocksatzLinks Link einfügen/editierenTastaturkürzel Strg+K Link entfernen AnkerEinfügen Bild Tabelle Horizontale Linie einfügen Smiley Sonderzeichen einfügen Einen Quelltextabschnitt einfügen oder aktualisierenStileFormatFormatSchriftartSchriftartGrößeGrößeFarben Textfarbe HintergrundfarbeWerkzeuge Maximieren Blöcke anzeigenabout Über CKEditor 4 Drücken Sie ALT 0 für Hilfe

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
keine Ahnung wie ich das kurz beschreiben soll :-)	20.09.2013 11:04:17	Gast50949
keine Ahnung wie ich das kurz beschreiben soll :-)	20.09.2013 12:59:47	Gast33298
keine Ahnung wie ich das kurz beschreiben soll :-)	20.09.2013 15:49:38	Gast51007
keine Ahnung wie ich das kurz beschreiben soll :-)	21.09.2013 13:47:54	Gast21447
keine Ahnung wie ich das kurz beschreiben soll :-)	24.09.2013 10:32:11	Ursprungs Gast
keine Ahnung wie ich das kurz beschreiben soll :-)	24.09.2013 16:55:35	Neuhäusler Korbinian
keine Ahnung wie ich das kurz beschreiben soll :-)	24.09.2013 17:08:49	Gast52681
keine Ahnung wie ich das kurz beschreiben soll :-)	25.09.2013 08:59:05	Ursprungs Gast
keine Ahnung wie ich das kurz beschreiben soll :-)	25.09.2013 19:59:07	Gast77462
keine Ahnung wie ich das kurz beschreiben soll :-)	26.09.2013 11:18:19	Ursprungs Gast
keine Ahnung wie ich das kurz beschreiben soll :-)	27.09.2013 04:00:32	Gast25383
Starthilfe	27.09.2013 04:36:22	Gast52516
keine Ahnung wie ich das kurz beschreiben soll :-)	27.09.2013 04:09:50	Gast22838
keine Ahnung wie ich das kurz beschreiben soll :-)	02.10.2013 09:35:50	Gast48511