25.10.2025, 05:01
Change Language
Register
Login
You are not logged in.
Potzblitz
Full Member
Excel Hilfe
Wednesday, October 20th 2004, 1:28pm
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
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
Wednesday, October 20th 2004, 1:57pm
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:
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
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:
|
Source code |
1 2 3 4 5 6 7 8 9 10 |
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
