Hallo,
Ich bin neu in der Branche.
Edit: Es tut mir im Vorfeld leid das dies wahrscheinlich ein sehr banales Anliegen ist, doch leider gehen mir selbst für Googel langsam die Ideen aus wonach ich fragen sollte..
Ich hoffe mir kann hier jemand weiter helfen und zwar geht es mir darum ob der Code soweit iO oder ob man den besser schreiben könnte.
Ich arbeite mit Visual Studio 2015 Community und schreibe in Visual Basic mit der .NETFramework 4.6
Aufgabenstellung:
Es soll eine Stückliste neu Formatiert werden so das sie optisch besser lesbar ist.
Gelöst bekommen hab ich:
Kopfzeile und Tabellenkopf zu formatieren
Nach unnötige Zeilen zu filtern und diese zu löschen
Problematik:
Wenn die Stückliste erstellt wird kommt leider je Baugruppe immer eine Zelle in der Spalte A die wie folgt aussieht:
Stückliste: [BoM_001_TEST_]BG[1_feststehende Seite]
- Das was in eckigen Klammern ist, ist grundsätzlich variabel.
- je mehr Baugruppen die Stückliste enthält desto mehr Zeilen mit dem obenstehenden Text ist in der Exeltabelle enthalten.
- Alles was links von "BG" Steht soll gelöscht werden
Edit:
Nach ewiger Suche hab ich dann doch eine Lösung gefunden.
Zeile 3-6: Beschreibt das Filtern der Zeilen nach Stückliste.
Zeile 7-12: Beschreibt die Lösung der oben genannten Problematik.
Danke schonmal im Voraus.
Ich bin neu in der Branche.
Edit: Es tut mir im Vorfeld leid das dies wahrscheinlich ein sehr banales Anliegen ist
Ich hoffe mir kann hier jemand weiter helfen und zwar geht es mir darum ob der Code soweit iO oder ob man den besser schreiben könnte.
Ich arbeite mit Visual Studio 2015 Community und schreibe in Visual Basic mit der .NETFramework 4.6
Aufgabenstellung:
Es soll eine Stückliste neu Formatiert werden so das sie optisch besser lesbar ist.
Gelöst bekommen hab ich:
Kopfzeile und Tabellenkopf zu formatieren
Nach unnötige Zeilen zu filtern und diese zu löschen
Problematik:
Wenn die Stückliste erstellt wird kommt leider je Baugruppe immer eine Zelle in der Spalte A die wie folgt aussieht:
Stückliste: [BoM_001_TEST_]BG[1_feststehende Seite]
- Das was in eckigen Klammern ist, ist grundsätzlich variabel.
- je mehr Baugruppen die Stückliste enthält desto mehr Zeilen mit dem obenstehenden Text ist in der Exeltabelle enthalten.
- Alles was links von "BG" Steht soll gelöscht werden
Edit:
Nach ewiger Suche hab ich dann doch eine Lösung gefunden.
Quellcode
- Dim arrTextNeu
- Dim Zelle As Excel.Range
- With xlWorkSheet
- .AutoFilterMode = False
- With xlWorkSheet.Range("A1", xlWorkSheet.Range("A" & xlWorkSheet.Rows.Count).End(Excel.XlDirection.xlUp))
- .AutoFilter(Field:=1, Criteria1:="*Stückliste*")
- For Each Zelle In xlWorkSheet.Range("A1:A1000")
- If InStr(Zelle.Value, "BG") > 0 Then
- arrTextNeu = Split(Zelle.Value, "BG")
- Zelle.Value = "BG" + arrTextNeu(1)
- End If
- Next Zelle
- End With
- .AutoFilterMode = False
- End With
Zeile 3-6: Beschreibt das Filtern der Zeilen nach Stückliste.
Zeile 7-12: Beschreibt die Lösung der oben genannten Problematik.
Danke schonmal im Voraus.
