Hallo Excelianer,
hab ein Problem.....
ich brauche bestimmte datensätze
(z.B. wksbew_dat.Cells(loZeileName, 19) - wksbew_dat.Cells(loZeileName, 119))
in einer neuen Tabelle
eine ID ist zugewiesen unter (loZeileName, 146)
unten noch auszüge aus dem code der UF
zur erklärung: ich gebe Daten zu einer Wunderhebung per UF in eine Tabelle. Lese bei aufruf die daten wieder ein und kann sie ggf ändern. Nur sollte es jetzt so sein das ich bei neuerhebung die gespeicherten Daten (alt) in eine andere Tabelle kopieren möchte um mir die altdaten für eine Verlaufsdarstellung wieder zurück holen zu können.
Der Pfad der neuen Ordner sollte via z.B. (Workbooks.Open FileName:=Sheets("Daten").Range("K2").Text) festgelegt werden.
nun das problem...wie kann ich überprüfen ob schon ein ordner mit Datei vorhanden ist und wenn ja sollen die Daten unter der nächst freien zeile eingefügt werden, wenn nein sollte ein ordner in o.g. Pfad angelegt werden und eine neue Tabelle erstellt werden.
Hoffentlich kann mir jemandhelfen...verzweifele schon
Gruß und Dank im vorraus
Holger
Private Sub UserForm_Initialize()
Workbooks.Open FileName:=Sheets("Daten").Range("J2").Text
und anschließend mit
Private Sub ComboBox1_change()
On Error Resume Next
Application.ScreenUpdating = False
Dim loZeile As Long
With wksbew_dat
Set wksbew_dat = Worksheets("Bew_Dat")
For loZeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(loZeile, 1).Value = Me.ComboBox1.Value Then
loZeileName = loZeile
Call TextBoxenAktiveren
Call picFile_Trennen
Exit For
End If
Next
End With
On Error Resume Next
sowie mit
Sub TextBoxenAktiveren()
On Error Resume Next
WUND.Image2.Picture = LoadPicture("")
Dim wb As String
wb = wksbew_dat.Cells(loZeileName, 16).Value
TextBox15 = wksbew_dat.Cells(loZeileName, 65).Value
TextBox11 = wksbew_dat.Cells(loZeileName, 1).Value 'Name für Anzeige
Me.TextBox12 = wksbew_dat.Cells(loZeileName, 2).Value 'Vorname für Anzeige
Me.TextBox13 = wksbew_dat.Cells(loZeileName, 4).Value ' gebdat für altersberechnung
Me.TextBox14 = Int((Now - DateValue(WUND.TextBox13)) / 365) 'altersberechnung
Me.TextBox4 = wksbew_dat.Cells(loZeileName, 3).Value 'Anrede für image1_load
Me.Label20 = wksbew_dat.Cells(loZeileName, 17).Value
Me.Label19 = wksbew_dat.Cells(loZeileName, 20).Value
Me.Label24 = wksbew_dat.Cells(loZeileName, 18).Value
Me.Label25 = wksbew_dat.Cells(loZeileName, 19).Value
usw.
fülle