soletto@gmx.at

Hey, as written before i want to replace the search by NaN:
zmax should be the number before NaN
Dim pfad$, datei$
Dim dieses As Workbook, dasandere As Workbook
Dim dies As Worksheet, das As Worksheet
Dim z&, zmax&
Dim a As Variant
Set dieses = ActiveWorkbook
Set dies = Sheets("HPPipe")
' zmax = dies.Range("A" & dies.Rows.Count).End(xlUp).Row
zmax = dies.Columns(1).Find(what:="?*", LookIn:=xlValues, _
lookat:=xlWhole, searchdirection:=xlPrevious).Row
pfad = ActiveWorkbook.Path & "\"
datei = "103601_Werkstoffe_DB.xlsm"
Workbooks.Open Filename:=pfad & datei
Set dasandere = ActiveWorkbook
Set das = dasandere.Sheets("Zentrale")
a = dies.Range("D1:BO" & zmax)
' Yield Strenth @ Tmin for checking duktility
For z = 3 To zmax
das.Range("I3") = a(z, 14)
das.Range("I4") = a(z, 15)
Application.Run datei & "!WerkstoffLaden", a(z, 1)
If IsError(das.Range("I1")) Then
dies.Range("AE" & z) = ""
Else
dies.Range("AE" & z) = das.Range("I1")
End If
Next
' Yield Strenth @ TRaum for
For z = 3 To zmax
das.Range("I3") = a(z, 14)
das.Range("I4") = a(z, 16)
Application.Run datei & "!WerkstoffLaden", a(z, 1)
If IsError(das.Range("I1")) Then
dies.Range("AF" & z) = ""
Else
dies.Range("AF" & z) = das.Range("I1")
End If
Next
' Yield Strenth @ T1
For z = 3 To zmax
das.Range("I3") = a(z, 14)
das.Range("I4") = a(z, 18)
Application.Run datei & "!WerkstoffLaden", a(z, 1)
If IsError(das.Range("I1")) Then
dies.Range("AG" & z) = ""
Else
dies.Range("AG" & z) = das.Range("I1")
End If
Next
' Yield Strenth @ T2
For z = 3 To zmax
das.Range("I3") = a(z, 14)
das.Range("I4") = a(z, 20)
Application.Run datei & "!WerkstoffLaden", a(z, 1)
If IsError(das.Range("I1")) Then
dies.Range("AH" & z) = ""
Else
dies.Range("AH" & z) = das.Range("I1")
End If
Next
' Yield Strenth @ T3
For z = 3 To zmax
das.Range("I3") = a(z, 14)
das.Range("I4") = a(z, 22)
Application.Run datei & "!WerkstoffLaden", a(z, 1)
If IsError(das.Range("I1")) Then
dies.Range("AI" & z) = ""
Else
dies.Range("AI" & z) = das.Range("I1")
End If
Next
Can anyone help me plz?
Thx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Wie bitte?

18.03.2016 10:33:18

mumpel

AW: soletto@gmx.at

18.03.2016 13:36:52

Werner

AW: soletto@gmx.at

21.03.2016 21:00:32

soletto

AW: soletto@gmx.at

22.03.2016 00:48:23

Werner

Public Sub test() '## Suche Blatt1, SpalteA, exakter Begriff NaN, Suchrichtung von unten nach oben '## Treffer nur, wenn exakt NaN (alleine) in der Zelle steht Dim zmax As Long zmax = Sheets("Tabelle1").Columns(1).Find(what:="NaN", LookIn:=xlValues, _ lookat:=xlWhole, searchdirection:=xlPrevious).Row MsgBox "Fundstelle ist in Zeile " & zmax End Sub Public Sub test1() '## Suche Blatt1, SpalteA, exakter Begriff NaN, Suchrichtung von oben nach unten '## Treffer nur, wenn exakt NaN (alleine) in der Zelle steht Dim zmax As Long zmax = Sheets("Tabelle1").Columns(1).Find(what:="NaN", LookIn:=xlValues, _ lookat:=xlWhole, searchdirection:=xlNext).Row MsgBox "Fundstelle ist in Zeile " & zmax End Sub Public Sub test2() '## Suche Blatt1, SpalteA, Begriff ist Teil des Zellinhaltes (z.B.: NaN-123, Suchrichtung von _ unten nach oben '## Treffer auch wenn z.B.: 123-NaN-123 in der Zelle steht Dim zmax As Long zmax = Sheets("Tabelle1").Columns(1).Find(what:="NaN", LookIn:=xlValues, _ lookat:=xlWhole, searchdirection:=xlPrevious).Row MsgBox "Fundstelle ist in Zeile " & zmax End Sub Public Sub test3() '## Suche Blatt1, SpalteA, exakter Begriff NaN, Suchrichtung von unten nach oben '## ausgegeben wird die Zeile vor der Fundstelle Dim zmax As Long zmax = Sheets("Tabelle1").Columns(1).Find(what:="NaN", LookIn:=xlValues, _ lookat:=xlWhole, searchdirection:=xlPrevious).Row - 1 MsgBox "Zeile vor der Fundstelle ist die Zeile " & zmax End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread