Excel Hilfe

Potzblitz

Full Member

Mittwoch, 20. Oktober 2004, 13:28

1

Moin, kann einer von euch mal schauen ob er nich ein Script kennt oder schnell tippern kann das aus ungefähr 3000 Spalten ein paar bestimmte Informationen löschen kann?
Der Inhalt der Spalten sieht folgendermaßen aus:

Kdnr. - Firma (xxx).Artikelnummer - Artikelbezeichnung

Bis zu dem . soll alles rausgelöscht werden in jeder Zeile und das is halt schweine viel Arbeit da ich keine Ahnung hab wie ich das automatisieren kann. Kann mir da wer helfen? Sonst muss ich alle Zeilen per Hand durchgehen

DAP

God

Re: Excel Hilfe

Mittwoch, 20. Oktober 2004, 13:45

2

also in der 2. spalte soll die firma (vor dem punkt) gelöscht werden und nur die artikelnummer drinbleiben?

Potzblitz

Full Member

Re: Excel Hilfe

Mittwoch, 20. Oktober 2004, 13:48

3

Nein, alles steht in einer Spalte, und zwar in der zweiten, die erste ist Leer.
Und alles bis zum Punkt, incl. des Punktes soll weg.

DAP

God

Re: Excel Hilfe

Mittwoch, 20. Oktober 2004, 13:57

4

so, hab dir schnell was gebastelt

WICHTIG: mach dir vorher ne sicherungskopie der datei, die änderung kann man nicht per "Rückgängig-Button" rückgängig machen!

erstmal fügst du dir ein neues modul ein (Alt + F11 drücken, Einfügen, Modul).

das neue Modul öffnen und folgendes reinkopieren:

Quellcode

Function blubb()
    Dim i As Integer
    Dim table As Object
    Set table = Tabelle1

    For i = 1 To 3
        tmp$ = table.Cells(i, 2).Text
        If InStr(1, tmp, ".") Then table.Cells(i, 2) = Mid(tmp, InStr(1, tmp, ".") + 1)
    Next i
End Function

folgendes musst du noch anpassen:

Set table = Tabelle1 <= Tabelle1 musst du evtl durch deinen Tabellennamen ersetzen

For i = 1 To 3 <= das sind die zeilen die durchsucht werden sollen, in den fall 1 bis 3. wenn du die zeilen von 5 bis 3000 haben willst schreibst halt For i = 5 To 3000

edit: anschließend ausführen per F5. das neue modul kannst du danach wieder entfernen

Potzblitz

Full Member

Re: Excel Hilfe

Mittwoch, 20. Oktober 2004, 14:13

5

Vielen Dank!!!

Es hat geklappt ;D

Hast einen gut bei mir

*verbeug*