Supportnet / Forum / Tabellenkalkulation
Datei im Netzwerk mit Passwort schützen
Frage
Hallo,
Ich brauch mal Eure Hilfe!!!!
Ich hab eine Datei in einem Netzlaufwerk angelegt, wo auch nur bestimmte Leute darauf zugreifen dürfen. Jetzt meine Frage: Kann ich für die Leute die auf die Datei zugriff haben dürfen, jedem ein individuelles Passwort zuteilen? Kann man weiter die dann auf die Personehn die Rechte verteilen, wer was Schreiben und Speichern darf? Wer sich als letztes mit Passwort angemenldet hat, kann man die gespeicherten Änderungen verfolgen???
Vielen Dank für Eure Mühe????
Gruß
Elhamplo
Antwort 1 von coros
Hi Elhamplo,
ja, das kann man machen. Man kann mit dem Befehlszeile
Application.UserName
den aktuellen Benutzer auslesen. Mit dieser Zeile kann man sich in VBA etwas erstellen, was dann z.B. Blatt X Passwort schützt und Blatt Y freigibt usw. Da sind fast keine Grenzen gesetzt. Allerdings Dir hier ein Beispiel zu erstellen, wäre etwas zu Umfangreich. Man müsste schon gezielt wissen, was der einzelne Benutzer darf und was nicht.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
ja, das kann man machen. Man kann mit dem Befehlszeile
Application.UserName
den aktuellen Benutzer auslesen. Mit dieser Zeile kann man sich in VBA etwas erstellen, was dann z.B. Blatt X Passwort schützt und Blatt Y freigibt usw. Da sind fast keine Grenzen gesetzt. Allerdings Dir hier ein Beispiel zu erstellen, wäre etwas zu Umfangreich. Man müsste schon gezielt wissen, was der einzelne Benutzer darf und was nicht.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 2 von Elhamplo
Hey Coros,
Danke für Deine Hilfe, dann muss ich mir das ma Überlegen.
Mal was anderes, Ich habe Datei indem Kundendaten aufgenommen werden. Diese Datei möchte ich mit einer anderen Dateiverknüpfen mi Sverweisen. Jetzt sagt excel mir immer wieder Nicht genügend Arbeitsspeicher vorhanden. Keine Ahnung warum?? Hast Du eine Ahnung??
Dann, ist es möglich, wenn in der Urprungs Kundendatei Daten eingegeben werden, das mit Hilfe VBA die neuen Zeilen die Daten die eingegeben wurden in eine extra neue Datei kopiert werden z.B. Kopie Kundendaten und von der Kopie Kundendaten die Verknüpfungen in eine andere Datei macht?? Weil mit der Kundendatei wird könenn mehrere drauf zugreifen. Die Ursprungsdatei ist allerdings auch schon mit Sverweisen mit einer anderen Datei verknüpft.
Vielen Dank!!!!!!!
Gruß
Elhamplo
Danke für Deine Hilfe, dann muss ich mir das ma Überlegen.
Mal was anderes, Ich habe Datei indem Kundendaten aufgenommen werden. Diese Datei möchte ich mit einer anderen Dateiverknüpfen mi Sverweisen. Jetzt sagt excel mir immer wieder Nicht genügend Arbeitsspeicher vorhanden. Keine Ahnung warum?? Hast Du eine Ahnung??
Dann, ist es möglich, wenn in der Urprungs Kundendatei Daten eingegeben werden, das mit Hilfe VBA die neuen Zeilen die Daten die eingegeben wurden in eine extra neue Datei kopiert werden z.B. Kopie Kundendaten und von der Kopie Kundendaten die Verknüpfungen in eine andere Datei macht?? Weil mit der Kundendatei wird könenn mehrere drauf zugreifen. Die Ursprungsdatei ist allerdings auch schon mit Sverweisen mit einer anderen Datei verknüpft.
Vielen Dank!!!!!!!
Gruß
Elhamplo
Antwort 3 von coros
Hi Elhamplo,
das kann mehrere Ursachen haben. Eine ist, dass entweder wirklich zu wenig Arbeitsspeicher vorhanden ist, oder dass eine andere Datei den Arbeitsspeicher benötigt, so dass Excel nicht genügend abbekommt oder dass Deine Auslagerungsdatei zu klein ist. Es kann natürlich auch an der Menge der SVERWEISE liegen, denn dann kann dieser Fehler auch auftreten. Ich arbeite meistens ohne SVERWEISE und lasse das, was diese Tabellenblattfunktion sonst erledigt über einen VBA Code.
Den zweiten Teil kapiere ich noch nicht 100%ig. Kannst Du noch mal anders erklären, was Du erreichen möchtest, eventuell mit einem Beispiel der Verweisformel.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
das kann mehrere Ursachen haben. Eine ist, dass entweder wirklich zu wenig Arbeitsspeicher vorhanden ist, oder dass eine andere Datei den Arbeitsspeicher benötigt, so dass Excel nicht genügend abbekommt oder dass Deine Auslagerungsdatei zu klein ist. Es kann natürlich auch an der Menge der SVERWEISE liegen, denn dann kann dieser Fehler auch auftreten. Ich arbeite meistens ohne SVERWEISE und lasse das, was diese Tabellenblattfunktion sonst erledigt über einen VBA Code.
Den zweiten Teil kapiere ich noch nicht 100%ig. Kannst Du noch mal anders erklären, was Du erreichen möchtest, eventuell mit einem Beispiel der Verweisformel.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 4 von Elhamplo
Hey Coros,
Danke für den Tipp!!!
Wie kann ich das denn VBA Technisch übergehen, das ich z.B. durch eintippen einer Kundennummer in einer Exceldatei, die Kundendaten aus einer anderen Exceldatei in die enstprechenden Zellen eingefügt wird? Die sache ist dabei das es sich um Verkäufe handelt und somit jeder VK in eine neue Zeile eingegeben wird. So müsste man VBA technisch bei eingeben der Kundennummer nur die Daten in die Zeile in den richtigen Zellen eingegeben werden.
Jetzt zum zweitenTeil: Ich habe mit eine diese VKdatei in der die VK stehen, die mit Sverweisen an eine Kundenliste. Durch eingabe der Kundennummer werden dann die Kundendaten automatisch eingefügt. Die Datei wir dadurch sehr groß. Jetzt dachte ich mir, das neue Verkäufe in die Verkaufsdatei angelegt werden, das der Inhalt der neue angelegten Zeilen (fortlaufend) in eine neue extra Daten Kundenvk2 kopiert wird, ohne Sverweisen. jetzt kann ich diese Extra datei dazu benutzten Sie mit Sverweisen an ein Formular zu verknüpfen. So soll durch Eingabe der VK Nummern alle Daten in mdas Formular in die Richtigen Zeilen eingefügt werden.
Gibt es vielleicht eine VBA-Lösung?? Das durch Eingabe der VK Nummer die Daten automatisch in die richtigen Zeilen übernommen werden und auch mit Hilfe der VBA Durch Eingabe der Kundennummern die Kundendaten automatisch in die VK-Datei eingefügt werden????
Gruß
Elhamplo
Danke für den Tipp!!!
Wie kann ich das denn VBA Technisch übergehen, das ich z.B. durch eintippen einer Kundennummer in einer Exceldatei, die Kundendaten aus einer anderen Exceldatei in die enstprechenden Zellen eingefügt wird? Die sache ist dabei das es sich um Verkäufe handelt und somit jeder VK in eine neue Zeile eingegeben wird. So müsste man VBA technisch bei eingeben der Kundennummer nur die Daten in die Zeile in den richtigen Zellen eingegeben werden.
Jetzt zum zweitenTeil: Ich habe mit eine diese VKdatei in der die VK stehen, die mit Sverweisen an eine Kundenliste. Durch eingabe der Kundennummer werden dann die Kundendaten automatisch eingefügt. Die Datei wir dadurch sehr groß. Jetzt dachte ich mir, das neue Verkäufe in die Verkaufsdatei angelegt werden, das der Inhalt der neue angelegten Zeilen (fortlaufend) in eine neue extra Daten Kundenvk2 kopiert wird, ohne Sverweisen. jetzt kann ich diese Extra datei dazu benutzten Sie mit Sverweisen an ein Formular zu verknüpfen. So soll durch Eingabe der VK Nummern alle Daten in mdas Formular in die Richtigen Zeilen eingefügt werden.
Gibt es vielleicht eine VBA-Lösung?? Das durch Eingabe der VK Nummer die Daten automatisch in die richtigen Zeilen übernommen werden und auch mit Hilfe der VBA Durch Eingabe der Kundennummern die Kundendaten automatisch in die VK-Datei eingefügt werden????
Gruß
Elhamplo
Antwort 5 von coros
Hi Elhamplo,
ein VBA Code um Daten in einer anderen Datei zu suchen und weitere Daten die zu dem gefundenen Begriff gehören in seine Datei zu kopieren, könnte z.B. folgendermaßen aussehen.
Hier wird der Suchbegriff, der in Datei "Test.xls" in dem ersten Tabellenblatt in Zelle A1 steht in Datei "Kundendaten.xls" ebenfalls in dem ersten Tabellenblatt gesucht. Wenn eine Übereinstimmung gefunden wurde, werden die Daten aus der gleichen Zeile von Spalte B bis Spalte I kopiert und in A2 in der Datei "Test.xls" eingefügt. Wichtig in dem Makro sind die Pfadangabe und die Dateinamen der Ziel- und Quelldatei.
Der obige Code ist recht einfach gehalten. Es fehlen noch sämtliche Überprüfungen, die eventuell auftretende Fehler ausschließen läst. Aber es handelt sich ja auch erst mal um einen Beispielcode um einen kleine Einblick zu erhalten. Für Deine Datei müssen sicherlich noch Änderungen vorgenommen werden.
Sorry, aber mit dem zweiten Teil Deiner Antwort kann ich immer noch nicht viel anfangen, da ich beim besten Willen nicht verstehe, was Dir das bringen soll.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
ein VBA Code um Daten in einer anderen Datei zu suchen und weitere Daten die zu dem gefundenen Begriff gehören in seine Datei zu kopieren, könnte z.B. folgendermaßen aussehen.
Option Explicit
Sub Übereinstimmungen_finden()
Dim Wiederholungen As Long, Zeile As Integer, Suchbegriff, Datei_Ziel, Datei_Quelle
Application.ScreenUpdating = False
Set Datei_Ziel = Workbooks("Test.xls").Sheets(1)
Suchbegriff = Range("A1")
Workbooks.Open "D:\Kundendaten.xls"
Set Datei_Quelle = Workbooks("Kundendaten.xls").Sheets(1)
For Wiederholungen = 1 To Datei_Quelle.Range("A65536").End(xlUp).Row
If Suchbegriff = Datei_Quelle.Cells(Wiederholungen, 1) Then
Datei_Quelle.Range(Cells(Wiederholungen, 1), Cells(Wiederholungen, 9)).Copy _
Datei_Ziel.Range("A2")
End If
Next
Workbooks("Kundendaten.xls").Close
End SubHier wird der Suchbegriff, der in Datei "Test.xls" in dem ersten Tabellenblatt in Zelle A1 steht in Datei "Kundendaten.xls" ebenfalls in dem ersten Tabellenblatt gesucht. Wenn eine Übereinstimmung gefunden wurde, werden die Daten aus der gleichen Zeile von Spalte B bis Spalte I kopiert und in A2 in der Datei "Test.xls" eingefügt. Wichtig in dem Makro sind die Pfadangabe und die Dateinamen der Ziel- und Quelldatei.
Der obige Code ist recht einfach gehalten. Es fehlen noch sämtliche Überprüfungen, die eventuell auftretende Fehler ausschließen läst. Aber es handelt sich ja auch erst mal um einen Beispielcode um einen kleine Einblick zu erhalten. Für Deine Datei müssen sicherlich noch Änderungen vorgenommen werden.
Sorry, aber mit dem zweiten Teil Deiner Antwort kann ich immer noch nicht viel anfangen, da ich beim besten Willen nicht verstehe, was Dir das bringen soll.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 6 von Elhamplo
Hey Coros,
Cooler Code, danke!!!!!
Eine frage hab ich noch: Ich habe ja die Datei mit den Verkäufen, die mit der Datei Kundendaten verknüpft ist. Jeder Verkauf wird in einer neuen Zeile festgehalten. So ist das ein lange Liste wo in der Spalte A die Verkaufnummern eingetragen werden. In Spalte I wird die Kundennummer eingegeben und die Kundendaten werden wegen der Sverweise automatisch in die Spalten eingefügt. So ist Spalte J Firmenname, SpalteBezeichnung Firma, Spalte O die Strasse usw. Jetzt ist die Datei recht groß. Geht das auch über VBA? Das ich in der Zelle z.B. I735 eine Kundennummer eingebe un die Kundendaten werden automatiscjh eingefügt???
Vielen Dank für Deine Hilfe???
Gruß
Elhamplo
Cooler Code, danke!!!!!
Eine frage hab ich noch: Ich habe ja die Datei mit den Verkäufen, die mit der Datei Kundendaten verknüpft ist. Jeder Verkauf wird in einer neuen Zeile festgehalten. So ist das ein lange Liste wo in der Spalte A die Verkaufnummern eingetragen werden. In Spalte I wird die Kundennummer eingegeben und die Kundendaten werden wegen der Sverweise automatisch in die Spalten eingefügt. So ist Spalte J Firmenname, SpalteBezeichnung Firma, Spalte O die Strasse usw. Jetzt ist die Datei recht groß. Geht das auch über VBA? Das ich in der Zelle z.B. I735 eine Kundennummer eingebe un die Kundendaten werden automatiscjh eingefügt???
Vielen Dank für Deine Hilfe???
Gruß
Elhamplo
Antwort 7 von coros
Hi Elhamplo,
ja, das kann man auch mit VBA realisieren. Das kann ebenfalls mit einem Code, wie er in Antwort steht durchgeführt werden. Man muss dann halt anstelle ienr Copy-Anweisung mehrere aufführen, damit die Daten aus der Quelltabelle in die Zieltabelle kopiert und eingefügt werden. Also muss bezogen auf den Beispielcode, die Zeile
Datei_Quelle.Cells(Wiederholungen, 1).Copy _
Datei_Ziel.Range("A2")
mehrfach in die Abfrage eingefügt werden und dann die Bereiche angepasst werden. In der aufgeführten Anweisung wird der Zelleninhalt aus Spalte A aus der Zeile mit der Übereinstimmung in die Zelle A2 eingefügt. Diese Anwesiung muss nun mehrfach nur mit anderen zellangaben eingetragen werden.
Ich hoffe, Du hast verstanden was ich meine. Wenn nicht, melde Dich noch mal.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
ja, das kann man auch mit VBA realisieren. Das kann ebenfalls mit einem Code, wie er in Antwort steht durchgeführt werden. Man muss dann halt anstelle ienr Copy-Anweisung mehrere aufführen, damit die Daten aus der Quelltabelle in die Zieltabelle kopiert und eingefügt werden. Also muss bezogen auf den Beispielcode, die Zeile
Datei_Quelle.Cells(Wiederholungen, 1).Copy _
Datei_Ziel.Range("A2")
mehrfach in die Abfrage eingefügt werden und dann die Bereiche angepasst werden. In der aufgeführten Anweisung wird der Zelleninhalt aus Spalte A aus der Zeile mit der Übereinstimmung in die Zelle A2 eingefügt. Diese Anwesiung muss nun mehrfach nur mit anderen zellangaben eingetragen werden.
Ich hoffe, Du hast verstanden was ich meine. Wenn nicht, melde Dich noch mal.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 8 von Elhamplo
Hey,
versteh ich nicht so ganz. Wie weis der Cosde das denn, wenn ich in Zeile 725 bin und in der Spalte Kundennummer (I725) die Kundennummer eingebe das der in der Datei Verkauf die Daten aus der Datei "Kundendaten" nimmt und in den Spalte J Firmenname, SpalteBezeichnung Firma, Spalte O die Strasse usw. der Datei Verkauf einfügt und wenn ich einen neuen Verkauf in Zeile 726 Anlege das dass genau so geht?
Gruß
Elhamplo
versteh ich nicht so ganz. Wie weis der Cosde das denn, wenn ich in Zeile 725 bin und in der Spalte Kundennummer (I725) die Kundennummer eingebe das der in der Datei Verkauf die Daten aus der Datei "Kundendaten" nimmt und in den Spalte J Firmenname, SpalteBezeichnung Firma, Spalte O die Strasse usw. der Datei Verkauf einfügt und wenn ich einen neuen Verkauf in Zeile 726 Anlege das dass genau so geht?
Gruß
Elhamplo
Antwort 9 von coros
Hi Elhamplo,
ich hatte ja geschrieben, dass es bei dem obigen Code nur um ein Beispiel handelt. Ein Code für Dich muss entsprechend angepasst werden. Ich habe Dir mal einen Beispielcode erstellt, der basierend auf den ersten, bei Eingabe in Spalte A nach Übereinstimmung in der Kundendatendatei sucht. Dort wird dann der Wert aus Spalte J kopiert und in die Datei mit dem Namen Test.xls in Spalte B in der Zeile, in der die Eingabe in Spalte A erfolgte, eingefügt. Außerdem wird der Wert aus Spalte O kopiert und in Spalte D eingefügt. Du musst nun allerdings den nachfolgenden Code nicht in ein StandardModul, sondern in das VBA Projekt des Tabellenblattes eintragen, in dem Du die Kundennummern eingeben willst.
Test den Code mal und melde Dich bei Problemen oder Änderungswünschen wieder.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
ich hatte ja geschrieben, dass es bei dem obigen Code nur um ein Beispiel handelt. Ein Code für Dich muss entsprechend angepasst werden. Ich habe Dir mal einen Beispielcode erstellt, der basierend auf den ersten, bei Eingabe in Spalte A nach Übereinstimmung in der Kundendatendatei sucht. Dort wird dann der Wert aus Spalte J kopiert und in die Datei mit dem Namen Test.xls in Spalte B in der Zeile, in der die Eingabe in Spalte A erfolgte, eingefügt. Außerdem wird der Wert aus Spalte O kopiert und in Spalte D eingefügt. Du musst nun allerdings den nachfolgenden Code nicht in ein StandardModul, sondern in das VBA Projekt des Tabellenblattes eintragen, in dem Du die Kundennummern eingeben willst.
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Wiederholungen As Long, Zeile As Integer, Suchbegriff, Datei_Ziel, Datei_Quelle
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
Suchbegriff = Target.Cells
Set Datei_Ziel = Workbooks("Test.xls").Sheets(1)
Workbooks.Open "C:\Kundendaten.xls"
Set Datei_Quelle = Workbooks("Kundendaten.xls").Sheets(1)
For Wiederholungen = 1 To Datei_Quelle.Range("A65536").End(xlUp).Row
If Suchbegriff = Datei_Quelle.Cells(Wiederholungen, 1) Then
Rem: Quelldatei Spalte J kopieren, Zieldatei Spalte B einfügen
Datei_Quelle.Cells(Wiederholungen, 10).Copy _
Datei_Ziel.Cells(Target.Row, 2)
Rem: Quelldatei Spalte O kopieren, Zieldatei Spalte D einfügen
Datei_Quelle.Cells(Wiederholungen, 15).Copy _
Datei_Ziel.Cells(Target.Row, 4)
End If
Next
Workbooks("Kundendaten.xls").Close
Application.EnableEvents = True
End SubTest den Code mal und melde Dich bei Problemen oder Änderungswünschen wieder.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 10 von Elhamplo
Hey Coros,
danke für Deine Hilfe, aber ich glaub eich bin zu....!
Ich habe mir eine Datei Test.xls erstellt. habe dort in das Tabellenblatt den Code eingefügt. Habe nur die zu kopierenden Zeilen geändert, aus 10 habe ich eine fünf gemacht usw. Dann habe ich in Spalte A eine Kundennummer eingegeben, aber leider hat er keine daten übernommen (stehen aber welche in den Spalten). Was mache ich falsch???
Gruß
Elhamplo
danke für Deine Hilfe, aber ich glaub eich bin zu....!
Ich habe mir eine Datei Test.xls erstellt. habe dort in das Tabellenblatt den Code eingefügt. Habe nur die zu kopierenden Zeilen geändert, aus 10 habe ich eine fünf gemacht usw. Dann habe ich in Spalte A eine Kundennummer eingegeben, aber leider hat er keine daten übernommen (stehen aber welche in den Spalten). Was mache ich falsch???
Gruß
Elhamplo
Antwort 11 von coros
Hi Elhamplo,
z.B. dass die Datei "Kundendaten.xls" nicht in dem Verzeichnis "C:\" vorhanden ist. Wenn die woanders liegt, kann sie nicht geöffnet werden. Den Pfad gibst Du in dem Makro in der Zeile
Workbooks.Open "C:\Kundendaten.xls"
an. Dann kann es sein, das Deine Daten in der Datei "Kundendaten.xls" nicht in dem ersten Tabellenblatt, sondern in dem 2., 3. oder einem anderen Blatt liegen. Dann kann logischerweise keine Übereinstimmung gefunden werden. Wenn dem so ist, musst Du in dem Makro in der Zeile
Set Datei_Quelle = Workbooks("Kundendaten.xls").Sheets(1)
die Zahl 1 abändern.
Schau mal erst, ob es daran eventuell gelegen hat. Wenn nicht, melde Dich bitte.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
z.B. dass die Datei "Kundendaten.xls" nicht in dem Verzeichnis "C:\" vorhanden ist. Wenn die woanders liegt, kann sie nicht geöffnet werden. Den Pfad gibst Du in dem Makro in der Zeile
Workbooks.Open "C:\Kundendaten.xls"
an. Dann kann es sein, das Deine Daten in der Datei "Kundendaten.xls" nicht in dem ersten Tabellenblatt, sondern in dem 2., 3. oder einem anderen Blatt liegen. Dann kann logischerweise keine Übereinstimmung gefunden werden. Wenn dem so ist, musst Du in dem Makro in der Zeile
Set Datei_Quelle = Workbooks("Kundendaten.xls").Sheets(1)
die Zahl 1 abändern.
Schau mal erst, ob es daran eventuell gelegen hat. Wenn nicht, melde Dich bitte.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 12 von Elhamplo
Hey Coros,
Sorry, hatte aber erst gestern abend Zeit das aus zu probieren.
Es tut mir leid ich bin zu dumm dafür!!! Ich habe alles noch mal nachgeprüft und und klappt trotzdem nicht. Gebe ich die Kundennummer in der Datei Test.xls in der Zelle A1 ein dann öffnet der Code die Dadtei Kundendaten.xls, und markiert die Zelle B4. Das geht auch nur einmal. Es werden auch keine Daten in die Spalten in die Datei Test.xls kopiert. Dann muss ich die Datei Test.xls ohne Änderung speichern. Erst dann öffnet der Code durch Eingabe der Kd-Nummer die Datei Kundendaten.xls.
Sorry!!!
Gruß
Elhamplo
Sorry, hatte aber erst gestern abend Zeit das aus zu probieren.
Es tut mir leid ich bin zu dumm dafür!!! Ich habe alles noch mal nachgeprüft und und klappt trotzdem nicht. Gebe ich die Kundennummer in der Datei Test.xls in der Zelle A1 ein dann öffnet der Code die Dadtei Kundendaten.xls, und markiert die Zelle B4. Das geht auch nur einmal. Es werden auch keine Daten in die Spalten in die Datei Test.xls kopiert. Dann muss ich die Datei Test.xls ohne Änderung speichern. Erst dann öffnet der Code durch Eingabe der Kd-Nummer die Datei Kundendaten.xls.
Sorry!!!
Gruß
Elhamplo
Antwort 13 von coros
Hi Elhamplo,
also bei mir funktioniert das Ganze. Besteht die Möglichkeit mir die beiden Dateien mal zukommen zu lassen. Dabei können alle Daten wie Namen usw. gelöschgt werden. Allerdings müssen die Kundennummern bestehen bleiben. Dann kann ich mir das mal ansehen, wo das Problem liegt. Eventuell ist es ja nur einFormatproblem. Aber dass kann ich nur sagen, wenn ich beide, also Zeile und Quldteivr mir hab. De E-Mailadresse findest Du auf meiner HP u. a. im Impressum. Binde in der Betreffzeile irgendwie das Wort "Supportnet" und den Namen (Nickname), unter dem Du hier gepostet hast mit ein, da ich alle Mails deren Absender ich nicht kenne, ungelesen lösche.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
also bei mir funktioniert das Ganze. Besteht die Möglichkeit mir die beiden Dateien mal zukommen zu lassen. Dabei können alle Daten wie Namen usw. gelöschgt werden. Allerdings müssen die Kundennummern bestehen bleiben. Dann kann ich mir das mal ansehen, wo das Problem liegt. Eventuell ist es ja nur einFormatproblem. Aber dass kann ich nur sagen, wenn ich beide, also Zeile und Quldteivr mir hab. De E-Mailadresse findest Du auf meiner HP u. a. im Impressum. Binde in der Betreffzeile irgendwie das Wort "Supportnet" und den Namen (Nickname), unter dem Du hier gepostet hast mit ein, da ich alle Mails deren Absender ich nicht kenne, ungelesen lösche.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 14 von Elhamplo
Hey Coros,
Funst!!!! Danke!!!!! Keine Ahnung warum, bei meiner alten Version funst es.
Jetzt noch eine Frage: Kann man den code so umgestalten, das auch bei der geöffneten Kundendaten.xls bei Eingabe der Kundennummer in der Test.xls die Daten übernommen werden?? Jetzt klappt das bei mir wenn die Kundendaten.xls immer wieder geschlossen wird.
Danke, Danke, Danke!!!!!
Gruß
Elhamplo
Funst!!!! Danke!!!!! Keine Ahnung warum, bei meiner alten Version funst es.
Jetzt noch eine Frage: Kann man den code so umgestalten, das auch bei der geöffneten Kundendaten.xls bei Eingabe der Kundennummer in der Test.xls die Daten übernommen werden?? Jetzt klappt das bei mir wenn die Kundendaten.xls immer wieder geschlossen wird.
Danke, Danke, Danke!!!!!
Gruß
Elhamplo
Antwort 15 von coros
Hi Elhamplo,
sollte funktionieren, wenn Du die Befehlszeile
Workbooks("Kundendaten.xls").Close
in dem Code löschst.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
sollte funktionieren, wenn Du die Befehlszeile
Workbooks("Kundendaten.xls").Close
in dem Code löschst.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein
Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 16 von Elhamplo
Hey Coros,
Danke, Danke, Danke!!! Du bist der Beste!!!! Funst!!! Super!!!
Noch eine Frage: Kann ich mit dem Code (nach etwas umstellen) das auch umgekehrt mach?? Als Beispiel: Hab eine Reihe von Daten die untereinander steht von C4-C14 (Verkaufsmengen aus Datei VK-Menge.xls). Durch betätigung eines Buttons sollen die Verkaufsmengen von C4-C14 und Kd Numer die in A1 steht und VK Nummer in der Spalte B steht nebeneinander in die nächst leere Zeile Kopiert werden in eine VK-Auswertung Datei kopiert werden???
Gruß
Elhamplo
Danke, Danke, Danke!!! Du bist der Beste!!!! Funst!!! Super!!!
Noch eine Frage: Kann ich mit dem Code (nach etwas umstellen) das auch umgekehrt mach?? Als Beispiel: Hab eine Reihe von Daten die untereinander steht von C4-C14 (Verkaufsmengen aus Datei VK-Menge.xls). Durch betätigung eines Buttons sollen die Verkaufsmengen von C4-C14 und Kd Numer die in A1 steht und VK Nummer in der Spalte B steht nebeneinander in die nächst leere Zeile Kopiert werden in eine VK-Auswertung Datei kopiert werden???
Gruß
Elhamplo