Die gleichen Spalten aus allen Arbeitsblättern einer Excel Datei löschen

[Jumper512]

Hallo Leute, 

ich habe eine Excel Tabelle mit ca. 30 Arbeitsblättern. Nun möchte ich in allen Arbeitsblättern die gleichen Spalten löschen :19: .
Wenn ich die Arbeitsblätter gruppiere, kommt eine Fehlermeldung, das dies nicht möglich ist, wenn mehrere Arbeitsblätter markiert sind .

Kennt jemand eine Möglichkeit mit der ich das löschen kann? Per Hand dauert das ewig, da ich jedes Arbeitsblatt auch noch in eine CSV Datei umwandle, damit ich diese später in eine Oracle Datenbank importieren kann.

Vielen Dank schonmal :D

[Steffl]

Hallo,

wenn Du VBA benutzen darfst.

Code:

Sub prcSpaltenloeschen()
    Dim wksBlatt As Worksheet
    Dim arrTabellen As Variant
    Dim lngC As Long
    
    arrTabellen = Array(7, 5, 3)
    For Each wksBlatt In ThisWorkbook.Worksheets
        For lngC = 0 to UBound(ArrTabellen)
            wksBlatt.Columns(arrTabellen(lngC)).Delete
        Next lngC
    Next wksBlatt
End Sub

Es wird hier die 7., 5. und 3. Spalte gelöscht.

[Jumper512]

Hallo,

wenn Du VBA benutzen darfst.

Code:

Sub prcSpaltenloeschen()
   Dim wksBlatt As Worksheet
   Dim arrTabellen As Variant
   Dim lngC As Long
   
   arrTabellen = Array(7, 5, 3)
   For Each wksBlatt In ThisWorkbook.Worksheets
       For lngC = 0 to UBound(ArrTabellen)
           wksBlatt.Columns(arrTabellen(lngC)).Delete
       Next lngC
   Next wksBlatt
End Sub

Es wird hier die 7., 5. und 3. Spalte gelöscht.

Vielen Dank hat geklappt :D

Andere Frage: Ich muss jetzt noch in der ersten Spalte alle Zeilen mit dem Namen des Arbeitsblattes füllen. Also sagen wir ein Arbeitsblatt hat 4000 Zeilen die gefüllt sind, dann soll in der ersten Spalte überall der Name auftauchen. Das soll dann später in der Datenbank als ID dienen. Bin leider nicht so fit in VBA . SQL ist eher meine Abteilung :P

[GMG-CC]

SQL ist eher meine Abteilung :P

Das passt aber rein gar nicht zu deinem Ansinnen, dass immer der (identische) Arbeitsblattname als ID verwendet werden soll!
Aber in 2016 hast du ja Power Query integriert, und damit kannst du auf SQL-Basis schick auffüllen.

[schauan]

Hallöchen,

das ist relativ easy, wenn in Spalte B auch alles gefüllt ist. Trage in A1 den Namen ein, markiere A1 gehe mit der Maus über die rechte untere Ecke von A1 und klicke doppelt auf die Ecke. Dann füllt Excel alles bis zum letzten Eintrag in B aus.
Ist nicht alles in B gefüllt, musst Du die Aktion ggf. mit dem letzten Eintrag in A wiederholen.

[GMG-CC]

Es gibt noch mehr (und bei mehreren Begriffen in einer Spalte) vielleicht elegantere Möglichkeiten. Schau mal bei Excel-ist-sexy rein ... .

[Jumper512]

SQL ist eher meine Abteilung :P

Das passt aber rein gar nicht zu deinem Ansinnen, dass immer der (identische) Arbeitsblattname als ID verwendet werden soll!
Aber in 2016 hast du ja Power Query integriert, und damit kannst du auf SQL-Basis schick auffüllen.

Am Ende kommen alle Arbeitsblätter in die gleiche Oracle Datenbank Tabelle. Die ID soll dann die Zugehörigkeit bestimmen. Diese Daten werde ich dann später in der Oracle Datenbank weiterverarbeiten.

[Jumper512]

Hallöchen,

das ist relativ easy, wenn in Spalte B auch alles gefüllt ist. Trage in A1 den Namen ein, markiere A1 gehe mit der Maus über die rechte untere Ecke von A1 und klicke doppelt auf die Ecke. Dann füllt Excel alles bis zum letzten Eintrag in B aus.
Ist nicht alles in B gefüllt, musst Du die Aktion ggf. mit dem letzten Eintrag in A wiederholen.

Danke, aber ich wollte mehr eine automatische Lösung. Wenn ich doch wieder was ändere, müsst ich wieder 30 Arbeitsblätter manuell umändern ;D

[Steffl]

Hallo,

nicht das Gelbe vom Ei :s

Code:

Sub prcSpaltenloeschen()
   Dim wksBlatt As Worksheet
   Dim arrTabellen As Variant
   Dim lngC As Long, lngLetzteZeile As Long
  
   arrTabellen = Array(7, 5, 3)
   For Each wksBlatt In ThisWorkbook.Worksheets
       For lngC = 0 To UBound(arrTabellen)
           wksBlatt.Columns(arrTabellen(lngC)).Delete
       Next lngC
       lngLetzteZeile = wksBlatt.Cells(wksBlatt.Rows.Count, 2).End(xlUp).Row
       wksBlatt.Cells(1, 1).Resize(lngLetzteZeile).Value = wksBlatt.Name
   Next wksBlatt
End Sub

[Rabe]

Hi,

Danke, aber ich wollte mehr eine automatische Lösung. Wenn ich doch wieder was ändere, müsst ich wieder 30 Arbeitsblätter manuell umändern ;D

dann trage ein Mal in jedes Arbeitsblatt in jede Zelle der Spalte A folgende Formel ein:
=TEIL(ZELLE("filename";$A$1);FINDEN("]";ZELLE("filename";$A$1))+1;FINDEN("]";ZELLE("filename";$A$1))-FINDEN("[";ZELLE("filename";$A$1))-1)

Nun hast Du dort in jeder Zelle den Blatt-Namen als "ID" stehen und bei Änderung des Blattnamens ändert sich auch die "ID".