Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Spaltenverschiebung funktioniert nicht
zurück: Erweiterung CountIf weiter: Excel VBA-Editor wandelt Punkt in Komma Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
stoeckermann
Im Profil kannst Du frei den Rang ändern


Verfasst am:
29. Apr 2014, 16:01
Rufname: Peter

Spaltenverschiebung funktioniert nicht - Spaltenverschiebung funktioniert nicht

Nach oben
       Version: Office 2007

Guten Tag,
ich habe folgendes Problem:

Ich möchte täglich Daten aus einer Liste per Makro in Excel einfügen.

Zu der Liste ist zu sagen, dass sie:
-Mehr Spalten als benötigt enthält
-Die Spaltenüberschriften immer mitkopiert werden, was durch das Makro unterdrückt werden soll
-Die Spalten sind nicht in der richtigen Reihenfolge

Ich bin schon so weit, dass ich die unbenötigten Spalten ausblenden konnte und die ünbenötigten Überschriften entfernt habe.
Sobald ich aber die Spalten verschieben will, reduziert das Makro Liste auf 6 Spalten mit falscher Reihenfolge.

Anbei der Code:
Code:
Public Sub Einfuegen()
With ThisWorkbook.Worksheets("Tabelle1").Range("A1")
If .Value = "" Then .Select Else .Offset(.CurrentRegion.Rows.Count, 0).Select
End With
ActiveSheet.Paste
End Sub
Public Sub SpaltenFiltern()
Dim Spalte As Integer

Application.ScreenUpdating = False

For Spalte = 1 To 80
  Select Case Worksheets("Tabelle1").Cells(1, Spalte).Value2
  Case "DATUM", "BDNR", "TBD", "FEHLKZ", "ZUGEW", "WERK", "VERURS_KOST", "BEMERKUNG", "FKT", "FVF", "WFF", "DICKE"
  Columns(Spalte).EntireColumn.Hidden = False
  Case Else
  Columns(Spalte).EntireColumn.Hidden = True
  End Select
Next Spalte
Application.ScreenUpdating = True
End Sub

Public Sub ZeilenFiltern()
Dim Zeile As Integer, i As Integer

Application.ScreenUpdating = False
For i = 1 To 80

For Zeile = 2 To 100
  Select Case Worksheets("Tabelle1").Cells(Zeile, i).Value2
  Case "DATUM", "BDNR", "TBD", "FEHLKZ", "ZUGEW", "WERK", "VERURS_KOST", "BEMERKUNG", "FKT", "FVF", "WFF", "DICKE"
  Rows(Zeile).EntireRow.Hidden = True
  End Select
Next Zeile
Next i
Application.ScreenUpdating = True
End Sub
Public Sub SpaltenTauschen()
Range("O:O").Cut Destination:=Range("A:A")
Range("A:A").NumberFormatLocal = "TT."
Range("BM:BM").Cut Destination:=Range("G:G")
Range("AL:AL").Cut Destination:=Range("L:L")
'Hilfsspalten
Range("D:D").Cut Destination:=Range("P:P")
Range("H:H").Cut Destination:=Range("Q:Q")
Range("I:I").Cut Destination:=Range("R:R")
Range("J:J").Cut Destination:=Range("S:S")
Range("M:M").Cut Destination:=Range("T:T")
Range("Z:Z").Cut Destination:=Range("U:U")
Range("AC:AC").Cut Destination:=Range("V:V")
'Einsortierung
Range("P:P").Cut Destination:=Range("E:E")
Range("Q:Q").Cut Destination:=Range("F:F")
Range("R:R").Cut Destination:=Range("H:H")
Range("S:S").Cut Destination:=Range("I:I")
Range("T:T").Cut Destination:=Range("D:D")
Range("U:U").Cut Destination:=Range("K:K")
Range("V:V").Cut Destination:=Range("J:J")


End Sub

Sub Programm()
Einfuegen
SpaltenFiltern
SpaltenTauschen
ZeilenFiltern
End Sub


Ich bin für jede Hilfe dankbar und vorab schon vielen Dank dafür.

Gruß vom stoeckermann
Sven1985
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2014, 16:23
Rufname:

AW: Spaltenverschiebung funktioniert nicht - AW: Spaltenverschiebung funktioniert nicht

Nach oben
       Version: Office 2007

sind es denn immer die "gleichen" Spalten die täglich kopiert werden sollen?
Nur eben mit unterschiedlichen Datenstand?

mit der Funktion.
Code:
Range(Selection, Selection.End(xlDown)).Select

könntest Du schon mal die Überschriften umgehen.

wenn es dann immer die gleichen Spalten sind könntest Du es doch ganz "einfach" hart kopieren. Spalte für Spalte. Also Spalte A in Spalte B oder so ähnlich. Wenn in A1 z.B: die Überschrift steht:
Code:
    Range("A2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("B2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False


Und das dann Spalte für Spalte einmal definieren.
-Du definierst nur die Spalten die kopiert werden sollen.
-Die Überschriften werden nicht mit kopiert.
-Die Reihenfolge bestimmst Du.

Ist vielleicht etwas einfach gedacht, führt aber zum Ziel.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Zählenwennfarbe funktioniert nicht 6 financialmaf 3415 24. Feb 2008, 13:12
financialmaf Zählenwennfarbe funktioniert nicht
Keine neuen Beiträge Excel Formeln: SVerweis funktioniert nur manchmal.... 6 MorisT 898 14. Feb 2008, 13:36
MorisT SVerweis funktioniert nur manchmal....
Keine neuen Beiträge Excel Formeln: Wie funktioniert ein Verweis? 2 Kuhmuckel 2817 28. Jan 2008, 15:51
Kuhmuckel Wie funktioniert ein Verweis?
Keine neuen Beiträge Excel Formeln: Filterfunktion funktioniert nicht richtig mit Teilergebnis? 3 HOC_NEU 3099 06. Jan 2008, 19:09
Thomas Ramel Filterfunktion funktioniert nicht richtig mit Teilergebnis?
Keine neuen Beiträge Excel Formeln: WENN - Funktioniert nicht 3 Ahnungslose 467 06. Dez 2007, 15:31
Nicht_mehr_ahnungslose WENN - Funktioniert nicht
Keine neuen Beiträge Excel Formeln: SVERWEIS funktioniert nicht! 2 player-1 588 04. Dez 2007, 11:32
player-1 SVERWEIS funktioniert nicht!
Keine neuen Beiträge Excel Formeln: Solver - alldifferent Funktion funktioniert ned... 6 Stefan Mayer 1706 02. Nov 2007, 00:24
Stefan Mayer Solver - alldifferent Funktion funktioniert ned...
Keine neuen Beiträge Excel Formeln: sverweis funktioniert nicht immer 1 Dr. Carlos 575 20. Jul 2007, 12:00
< Peter > sverweis funktioniert nicht immer
Keine neuen Beiträge Excel Formeln: SVERWEIS zu externer Quelle funktioniert nicht 1 Shaggy84 588 20. März 2007, 11:29
Shaggy84 SVERWEIS zu externer Quelle funktioniert nicht
Keine neuen Beiträge Excel Formeln: Script funktioniert in Excel2003 nicht 1 earl_of_kiel 599 07. Feb 2007, 19:03
olafB Script funktioniert in Excel2003 nicht
Keine neuen Beiträge Excel Formeln: Wennfunktion funktioniert nicht 24 Birgit-Anfängerin 1504 07. Jan 2007, 02:23
fridgenep Wennfunktion funktioniert nicht
Keine neuen Beiträge Excel Formeln: sverweis funktioniert plötzlich nicht mehr 4 Daniel1983 1087 03. Jan 2007, 13:35
urs sverweis funktioniert plötzlich nicht mehr
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks