AW: VBA Makro modifying
02.04.2016 19:11:53
soletto
Hey was bedeutet die 11 in dem Code?
Ich habe nun etwas programmiert aber noch probleme.
Ich würde noch das einlesen von "s" und dem Werkstoff brauchen.
Also Trage mir Material Temperatur s in die Werkstoffdatenbank und hole mir den entsprechenden Wert aus der Datenbank. Schreibe ihn mir in zeile 5. Funktionieren dud es aber noch nicht ganz :-(
https://www.herber.de/bbs/user/104730.xlsm
https://www.herber.de/bbs/user/104731.xlsm
Hier mein code:
Sub Einlesen()
Dim pfad$, datei$
Dim wkbDieses As Workbook, wkbData As Workbook
Dim wksZiel As Worksheet, wksData As Worksheet
Dim Spalte&, SpalteMax&
Dim arrSuche As Variant
Set wkbDieses = ActiveWorkbook
Set wksZiel = wkbDieses.Sheets("Test") 'in deinem Beispiel "Test"
With wksZiel
SpalteMax = .Cells(1, .Columns.Count).End(xlToLeft).Column
End With
pfad = wkbDieses.Path & "\"
datei = "103601_Werkstoffe_DB.xlsm"
Set wkbData = Workbooks.Open(Filename:=pfad & datei, ReadOnly:=True)
Set wksData = wkbData.Sheets("Zentrale")
With wksZiel
'Zeilenbereich mit den Werten (T ?) die in dem Berechnugsblatt eingetragen werden _
sollen
'Bereich A3:?11
arrSucheT = .Range(.Cells(3, 1), .Cells(11, SpalteMax)) ' was bedeutet 11?
arrSuches = .Range(.Cells(4, 1), .Cells(11, SpalteMax))
End With
' Yield Strenth @ TRaum for
For Spalte = 3 To SpalteMax
wksData.Range("I4") = arrSucheT(3, Spalte) 'T-Wert
wksData.Range("I3") = arrSuches(4, Spalte) 's-Wert
' Application.Run datei & "!WerkstoffLaden", a(z, 1)
Application.Run datei & "!WerkstoffLaden", wksZiel.Cells(2, Spalte) ' hier soll jeder _
werkstoff in die daten eingetragen werden für jede gefundene Spalte
If IsError(wksData.Range("I1")) Then
wksZiel.Cells(5, Spalte) = "" 'Ergebnisausgabe oin Zeile 5
Else
wksZiel.Cells(5, Spalte) = wksData.Range("I1")
End If
Next
wkbData.Close savechanges:=False
End Sub