@Hary - eine weitere Frage noch
15.12.2014 14:02:19
Wolfgang
den folgenden Code hattest Du mir zur Verfügung gestellt. Er läuft auch weiterhin tadellos. Heute (im Büro, vor Ort) fiel mir auf, dass doch noch ein weiterer Ansatz besteht. Nämlich, der Suchtext entsprechend der Überschrift befindet sich direkt in der Zelle. Format z.B.: "BestellNr.: 123456", so dass dann der Text innerhalb der Zelle nach dem Text bzw. der Überschrift gesucht wird. Hättest Du da noch eine Idee, wie der Code noch ergänzt werden könnte? - Danke erneut recht herzlich.
Gruß - Wolfgang
'sucht in Tabelle Textimport nach Text entsprechend der Überschrift (entwender Zelle darüber _
oder darunter
Sub Überschriften()
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim i As Long
Dim a As Variant
Set wksQ = Worksheets("Textimport")
Set wksZ = Worksheets("Zwischenpark")
For i = 1 To 15
a = Application.Match(wksZ.Cells(1, i), wksQ.Columns(1), 0)
If IsNumeric(a) Then
Select Case wksZ.Cells(1, i)
Case "Bestellnr." ',"Ort" '----hier bei Name und Ort eine Zeile darueber
wksZ.Cells(2, i) = wksQ.Cells(a - 1, 1)
Case Else '----sonst eine Zeile darunter
wksZ.Cells(2, i) = wksQ.Cells(a + 1, 1)
End Select
End If
Next
Set wksQ = Nothing
Set wksZ = Nothing
End Sub