Wer kann mir helfen Bitte !!!!

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Stefan,
ich benutze Office 2007 unter Windows7 und bin leider nicht in der Lage, direkt unter "C:" Dateien abzuspeichern. Ich habe eine Lösung erarbeitet und bitte Dich, die beigefügten Dateien (WZ1 und WZ2 bitte mit WIN-ZIP entpacken) wie folgt zu speichern:
https://www.herber.de/bbs/user/108107.xlsm
Diese Datei bitte unter dem Pfad-Namen "C:\Stefan" mit dem Dateinamen "Stefano" abspeichern.
https://www.herber.de/bbs/user/108108.zip
WZ1 bitte entpacken und unter dem Pfad "C:\Datenexport" abspeichern.
https://www.herber.de/bbs/user/108109.zip
WZ2 bitte entpacken und unter dem Pfad "C:\Datenimport" abspeichern.
Ich habe die vorhandenen Makros teilweise ergänzt bzw. geändert, aber größtenteils so belassen, wie sie waren. Beim Öffnen werden automatisch die bereits vorhandenen Dateien in den Ordnern "Datenexport" und "Datenimport" im rechten Teil angezeigt. Im unteren Teil befinden sich zwei Zeilen, wo man auswählen kann, welche Datei von welchem Pfad importiert oder in welchen Pfad exportiert werden soll. Beim Export wird der rechte Teil von Tabelle 1 automatisch aktualisiert.
Mit der Verschlüsselung ist es schwierig, sowas für normale Text-Dateien zu verwenden sehe ich keine Möglichkeit. Es gibt jedoch bei http://locknote.steganos.com das LockNote-Programm, welches im Grunde eine Textdatei darstellt.
Bitte mal ausprobieren - Rückmeldung wäre schön.
Mit freundlichem Gruß
Peter Kloßek

Hallo Peter,
ne ne pass uff, ich habe Tabellen im Verein im Umlauf die noch nicht den Datenexport von meiner jetzigen Neuen Tabelle beherschen. Um die Daten aus den alten Tabellen extern als Text zu Speichern.
Die Leute können dann mit der Neuen Tabelle die Daten dann wieder einlesen und gut.
wollte ich eine Umzugsdatei erstellen.
Also:
Eine neue Mappe mit Button in der der Code drin steht

Sub Schaltfläche2_Klicken()
On Error Resume Next                                'Bei Fehler weiter
Dim pfad As String
Dim blatt As String
Dim Zeile As Integer
Dim Reihe As Integer
Dim C As Integer
Dim r As Integer
Dim s As String
Workbooks.Open Filename:="C:\Vereinsordner\Mitglieder\Mitgliederverwaltung.xlsm"
Application.Run "Mitgliederverwaltung.xlsm!LogoSTOP" 'Makro STOP
Workbooks("Mitgliederverwaltung.xlsm").Activate
Worksheets("Alle").Visible = True
Worksheets("Alle").Unprotect "Havel"
y = MsgBox("Eine evtl. schon vorhandene Datei mit dem Namen '19Af59.dll' wird ohne Rü _
ckfrage ersetzt !" _
& vbLf & vbLf & "Möchten Sie diesen Vorgang wirklich fortsetzen ?", _
4 + vbExclamation, "Security Center  ! Sicherheitsabfrage !")
If y = 7 Then Exit Sub
Application.ScreenUpdating = False              'Seite Aktualisieren
blatt = Workbooks("Mitgliederverwaltung.xlsm").Worksheets("Alle")
pfad = "C:\Vereinsordner\Datenexport"
pfad = pfad & "\1.txt"
'Ab hier dann die Probleme !!!
Workbooks("Mitgliederverwaltung.xlsm").Worksheets("Alle").Range("E300").End(xlUp).Offset(0,  _
0).Select
r = ActiveCell.Row
Open pfad For Output As #1
For Zeile = 4 To r
If Zeile > 1 Then
For C = 5 To 38
s = s & Cells(Zeile, C).Value & ";"
Next C
s = Left(s, Len(s) - 1)
Print #1, s
s = ""
End If
Next Zeile
Close #1
'AB hier wieder normal, keine Probleme
Worksheets("Menü").Activate                         'Tabellenblatt Aktiviren
Application.ScreenUpdating = True               'Seite Aktualisieren Ende                _
Sheets("Alle").Protect "Havel"
'    MsgBox "Fertig!"
Workbooks("Mitgliederverwaltung.xlsm").Close savechanges:=False
End 

Sub                                             'Makro Ende
Mein Problem ist auf die Alten Datein (Tabellen) von einer geöffneten Tabelle zuzugreifen !
Das abspeichern als Text ist nicht das Problem.
Besser kann ich es jetzt nicht mehr erklären habs hier schon 3 mal beschrieben.
Beste Grüße
Stefan

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread