AW: Daten aus anderer Datei in UF ziehen
06.06.2014 21:46:41
Spenski
habs jetzt so
der pfad der zieldatei ist C:\Users\Spenski\Desktop\MD.xlsx (5x kpntrolliert^^)
Tabelle2 heist das Blatt
Option Explicit
Dim Suchergebnis As Range
Private Sub CommandButton1_Click()
With Workbooks("C:\Users\Spenski\Desktop\MD.xlsx").Worksheets("Tabelle2")
.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = TextBox4.Value
.Cells(Rows.Count, 1).End(xlUp).Offset(0, 1).Value = TextBox3.Value
End With
End Sub
Private Sub CommandButton2_Click()
With Workbooks("C:\Users\Spenski\Desktop\MD.xlsx").Worksheets("Tabelle2")
Suchergebnis.Offset(0, 1).Value = TextBox3.Value
End With
End Sub
Private Sub CommandButton3_Click()
With Workbooks("C:\Users\Spenski\Desktop\MD.xlsx").Worksheets("Tabelle2")
With .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
Set Suchergebnis = .Find(TextBox4, LookIn:=xlValues, lookat:=xlWhole)
If Not Suchergebnis Is Nothing Then
TextBox3.Value = Suchergebnis.Offset(0, 1).Value
Else
TextBox3.Value = ""
End If
End With
End With
End Sub
Private Sub CommandButton4_Click()
Dim strListe As Variant
Workbooks.Open Filename:=ThisWorkbook.Path & "\MD.xlsx" 'wenn sich die Dateien im selben _
Ordner befinden
Workbooks.Open Filename:="C:\Users\Spenski\Desktop\MD.xlsx" 'Pfad anpassen
strListe = Workbooks("C:\Users\Spenski\Desktop\MD.xlsx").Worksheets("Tabelle2").Range("A2:A" _
& Cells(Rows.Count, 1).End(xlUp).Row)
ListBox1.List = strListe
End Sub
Private Sub ListBox1_Click()
With ListBox1
TextBox4 = .List(.ListIndex, 0)
End With
End Sub
Private Sub TextBox4_Change()
With Workbooks("C:\Users\Spenski\Desktop\MD.xlsx").Worksheets("Tabelle2")
With .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
Set Suchergebnis = .Find(TextBox4, LookIn:=xlValues, lookat:=xlWhole)
If Not Suchergebnis Is Nothing Then
TextBox3.Value = Suchergebnis.Offset(0, 1).Value
Else
TextBox3.Value = ""
End If
End With
End With
End Sub
möchte dir nochmal für deine mühe und den zeitaufwand danken