|
Hallo zusammen,
Ich habe eine für euch warscheinlich recht einfache Frage.
Und Zwar:
Ich bekomme eine Tabelle wie volgt von einer Maschine ausgegeben. (CSV - Datei). Die wird auch in meine Exceldatei übertragen (importiert). Das Funktioniert zumindest super.
|
Nr. |
Name |
Dimension X |
Dimension Y |
Dimension Z |
Fläche |
Volumen |
|
1 |
01_106W B-C_BT_1,3_si ist oben_oben ist vorne_O [10500,00 x 2650,00 x 106,00] |
10500 |
2650 |
106 |
27,825 |
2,949 |
|
2 |
02_106W B-C_BT_2,4,5,6_si ist oben_oben ist vorne_O [12000,00 x 2650,00 x 106,00] |
12000 |
2650 |
106 |
31,8 |
3,371 |
soweit so gut.
Nun möchte ich Zeile für Zeile prüfen ob die Zelle im Bereich Name die Zeichenkette "106W" beinhaltet. (dieser Wert kann nämlich abweichend sein.)
Eigentlich möchte ich nur wissen ob die Zeichenkette vorhanden ist. Dann kann ich entsprechende Attribute in einer Anderen Tabelle per VBA setzen.
Ich bekomme das nicht ganz hin. Er findet zwar in der zweiten Zeile die "106W" mit meinem Code und ich kann dann auch die Attribute setzen, allerdings macht mein Prog das nur einmal.
Ich möchte nun in die nächste Zeile und ebenfalls prüfen, ob die "106W" -Zeichenkette vorhanden ist.
und genau das ist es, wo ich momentan einfach nicht weiter komme. - Mein Programm findet die 106W nur 1x.
********************** mein code *********************
Dim vorhanden As Long
Dim schreibzeile As Integer
Dim suchzeile As Integer
For suchzeile = 1 To 52
vorhanden = InStr(Tabelle2.Cells(2, suchzeile).Value, "106W") 'prüft ob 106W in Tabelle 2 vorhanden ist
If vorhanden > 0 Then
Tabelle1.Cells(schreibzeile, 2).Value = 36 ' hier sollen - falls vorhanden - attribute in der Tabelle 1 gesetzt werden
Tabelle1.Cells(schreibzeile, 14).Value = 1
schreibzeile = schreibzeile + 1 ' damit der meine geschrieben Zeile nicht überschreibt, sondern in die nächste Zeile springt
End If
Next suchzeile ' eigentlich sollte der jetzt in die nächste Zeile springen und dann die Zelle auf die Zeichenkette durchsuchen.
*************************************************
sorry, ich bin ein absoluter beginner in der VBA programmierung. Dennoch hoffe ich auf eure Hilfe.
Vielen lieben Dank
|