MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 11.10.2018, 14:07   #1
besserleben
MOF User
MOF User
Standard Excel 2013 - VBA Datenblatt ausfüllen und in Ordner

Hallo,


Ich habe eine Excel in Anhang gestellt da bräuchte ich eure Hilfe.

wenn ich einen Doppelklick in Spalte A mache, und die Nummer anklicke, soll es mir die Daten der Nummer in das Datenblatt spielen und das Datenblatt dann in den Ordner den ich vorher per VBA erstellt habe (Ordnername steht in Spalte B "Bezeichnung") abgelegt werden.
Es soll nur das Datenblatt als normale Excel ohne VBA abgelegt werden in dem Ordner.

wäre super wenn ihr mir helfen könnt.

gruss besserleben
Angehängte Dateien
Dateityp: xlsm TEST_Neu.xlsm (96,6 KB, 8x aufgerufen)
besserleben ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.10.2018, 14:53   #2
Beverly
MOF Guru
MOF Guru
Standard

Hi,

und wo ist das Problem?


GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.10.2018, 18:16   #3
besserleben
Threadstarter Threadstarter
MOF User
MOF User
Standard Hallo Beverly

stehe im moment total auf den schlauch und wollte fragen wie das VBA dazu aussehen kann/soll

Danke im vorraus
besserleben ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.10.2018, 08:04   #4
Beverly
MOF Guru
MOF Guru
Standard

Das Worksheet_BeforeDoppelklick-Ereignis gehört ins Codemodul des Tabellenblattes. Prüfe, ob die Target.Column = 1 ist und ob Target eine verbundene Zelle ist. Sind beide Bedingungen erfüllt, erhältst du mit Target.Row die Zeile der ersten der 3 Verbundenen Zellen und mit Cells(Target.Row, Spalte) findest du zu übertragende Zelle. Du kannst dann einfach mittels

Code:

Worksheets("Datenblatt").Range(....) = Cells(Target.Row, Spalte)
den Inhalt der gewünschten Zelle in die betreffende Zelle im Datenblatt übernehmen.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 Then
        If Target.MergeCells = True Then
            Cancel = True '<== diese Zeile ist erforderlich damit nach Doppelklick die Zelle nicht editiert wird
            Worksheets("Datenblatt").Range("C7") = Cells(Target.Row, 2)
            
            '....
            
        End If
    End If
End Sub

Das Kopieren der Tabelle "Datenblatt" in eine neue Arbeitsmappe und Speichern dieser neuen Mappe unter dem gewünschten Namen kannst du mit dem Makrorekorder aufzeichnen.


GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.10.2018, 17:12   #5
besserleben
Threadstarter Threadstarter
MOF User
MOF User
Standard Danke

super danke für die Antwort,

noch eine Frage.

mit

ActiveWorkbook.SaveAs Filename:="C:TempNeuer Ordner" & neuName & ".xls"

soll eine Datenblatt in einen Ordner kopiert werden.
neuName ist ein Ordner den ich vorher erstellt habe und der Ordnername steht immer in Zelle "D7".

leider speichert der Satz das Datenblatt nur in C:TempNeuer Ordner und nicht in den Ordner den ich erstellt habe und der Ordnername in Zelle "D7" steht.

warum ?

MFG

besserleben
besserleben ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.10.2018, 17:53   #6
Beverly
MOF Guru
MOF Guru
Standard

neuName wird anscheinend als Dateiname erkannt, weil unmittelbar danach & ".xls" steht.
Beachte auch, dass am Ende jedes Ordners ein Backslash stehen muss.


GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.10.2018, 21:28   #7
besserleben
Threadstarter Threadstarter
MOF User
MOF User
Standard hi

Backslash hab ich eingefügt.

wie kann ich das umgehen?
mfg
besserleben ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.10.2018, 21:49   #8
Beverly
MOF Guru
MOF Guru
Standard

Was umgehen? So richtig verstehe ich dein Problem leider nicht.


GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.10.2018, 02:50   #9
besserleben
Threadstarter Threadstarter
MOF User
MOF User
Standard hi

Hallo beverly

hier die codezelle nochmal

ActiveWorkbook.SaveAs Filename:="C:TempNeuer Ordner" & neuName & ".xls"


C:TempNeuer Ordner ist der fester link.

bei neuName beziehe ich mich auf Zelle "D7"

ich erstelle mehrere Ordner in C:TempNeuer Ordner der sagen wir mal Test1, Test2, Test3,... heissen.
die Exceltabelle heisst Datenblatt.

in D7 steht der Testordner in der das Tabellenblatt gespeichert werden soll.
sozusagen wenn in D7 Test1 steht solle das Datenblatt in C:TempNeuer OrdnerTest1 gespeichert werden.
wenn in D7 Test3 steht,
dann soll das Datenblatt in C:TempNeuer OrdnerTest3 gespeichert werden.
besserleben ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.10.2018, 07:40   #10
Beverly
MOF Guru
MOF Guru
Standard

Hi,

wenn neuName der Ordnername (aus Zelle D7) ist - wo ist dann der Dateiname in deiner Codezeile?


GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.10.2018, 11:21   #11
besserleben
Threadstarter Threadstarter
MOF User
MOF User
Standard hi

Hallo,

D7 ist der Ordnername der sich immer wieder ändert.
die Ordner sind aber schon vorher erstellt. das heisst das Arbeitsblatt wird immer in den Ordner von D7 gestellt.

du meinst ich brauch noch nen Dateinamen?

wie würde die Zelle aussehn ?
besserleben ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.10.2018, 14:32   #12
Beverly
MOF Guru
MOF Guru
Standard

Hi,

na die Datei muss doch irgend einen Namen haben und der muss nach dem Ordnernamen stehen (mit oder ohne Dateiendung je nachdem). Wenn du eine Mappe von Hand in einem anderen Ordner speicherst, gibst du doch auch einen Namen an (selbst wenn es derselbe ist wie die aktuelle Mappe) - wie soll das denn sonst funktionieren? Wenn dir unklar ist wie eine Mappe mit VBA gespeichert wird, dann zeichne doch einfach mal den Code mit dem Makrorekorder auf...


GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.10.2018, 18:39   #13
besserleben
Threadstarter Threadstarter
MOF User
MOF User
Standard hi

und wenn Dateiname und Ordnername gleich wären?

gruss
besserleben ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.10.2018, 23:18   #14
Beverly
MOF Guru
MOF Guru
Standard

Zitat: von Beverly Beitrag anzeigen

Wenn dir unklar ist wie eine Mappe mit VBA gespeichert wird, dann zeichne doch einfach mal den Code mit dem Makrorekorder auf...


GrußformelBeverly's Excel - Inn

__________________

Bitte im Beitrag eine kurze Rückmeldung auch in dem Fall geben, wenn ein Problem gelöst wurde - dies hilft auch anderen Usern, wenn sie den betreffenden Thread lesen.
Möchtest du dich außerdem für die Hilfe bei der Lösung deines Problems bedanken? Das kannst du ganz einfach durch die Bewertung eines Beitrags (Schalter unten links).
Beverly ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.10.2018, 09:45   #15
besserleben
Threadstarter Threadstarter
MOF User
MOF User
Standard Makrorecorder

Hallo Beverly,

hab ich doch schon gemacht, sieht so aus

Sub Makro1()
'
' Makro1 Makro
'

'
Sheets("Datenblatt").Select
Sheets("Datenblatt").Copy
ChDir "C:UsersRehmDesktopNeuer Ordner (5)B044"
ActiveWorkbook.SaveAs Filename:= _
"C:UsersRehmDesktopNeuer Ordner (5)B044B044.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False
ActiveWindow.Close
End Sub

mein Problem liegt darin, dass das Datenblatt in diesem Fall B044 heissen soll und auch der Ordner.

Den Ordner gibt es und ist erstellt. aber auch fariabel, kann auch B300 heissen.
wenn der Ordner B300 heisst, soll das Datenblatt auch B300 heissen.

der Name des Datenblattes steht immer in Zelle D7.
somit ist D7 auch der Ordner wo das Datenblatt gespeichert werden soll.

bekomme immer wieder Fehlermeldungen wie Pfad nicht gefunden oder ähnliches.

hoffe du verstehst jetzt mein Problem.
besserleben ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:06 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.