Office: mehrere getrennte Spalten markieren

Helfe beim Thema mehrere getrennte Spalten markieren in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo Thomas, wenn du an den Anfang der Codezeile ein einfaches Hochkomma setzt, wird die Codezeile nicht mehr ausgeführt, sondern als Kommentar... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von thomme1, 5. September 2010.

Seite 2 von 4

INGGI

IngGi

mehrere getrennte Spalten markieren

Hallo Thomas,

wenn du an den Anfang der Codezeile ein einfaches Hochkomma setzt, wird die Codezeile nicht mehr ausgeführt, sondern als Kommentar interpretiert. Ohne das On Error Resume Next entsteht der Fehler bereits in der Codezeile
Code:

Set wbVorlage = Workbooks.Open(Filename:="C:\BBAG Abrechnung\Rechnungsübersicht.xlt", ReadOnly:=False)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

falls es ein Problem mit dem Öffnen der Vorlagendatei gibt, was ich vermute.

Gruß Ingolf

IngGi, 8. September 2010

#16
THOMME1

thomme1

Habe Dir ein Screen als Anlage beigefügt, so siehst Du was er macht.

thomme1, 8. September 2010

#17
INGGI

IngGi

Hallo Thomas,

jetzt hast du die falsche Codezeile auskommentiert. Ich meinte die Zeile davor:
Code:

On Error Resume Next
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ingolf

IngGi, 8. September 2010

#18
THOMME1

thomme1

mehrere getrennte Spalten markieren

Hallo Ingolf
Habe nochmals einen Sceen gemacht.

thomme1, 8. September 2010

#19
INGGI

IngGi

Hallo Thomas,

ok, das deutet darauf hin, dass es tatsächlich ein Problem beim Öffnen der Vorlagendatei gibt. Ersetze mal die Codezeile
Code:

Set wbVorlage = Workbooks.Open(Filename:="C:\BBAG Abrechnung\Rechnungsübersicht.xlt", ReadOnly:=False)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

durch
Code:

Set wbVorlage = Workbooks.Add("C:\BBAG Abrechnung\Rechnungsübersicht.xlt")
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ingolf

IngGi, 8. September 2010

#20
THOMME1

thomme1

Hab Dir nochmals ein Screen beigefügt.
Der Teufel steckt im Detail.
Bin Dir dankbar für die Hilfe

Änderung:
Hab das Semikolon noch entfernt und jetzt läuft er weiter bis zu Vorlage Zeile, siehe Anhang 60

thomme1, 8. September 2010

#21
INGGI

IngGi

Hallo Thomas,

mir fällt keine andere Möglichkeit ein, als die, dass die angegebene Vorlagendatei nicht existiert. Versuch mal, die Vorlagendatei (Rechnungsübersicht.xlt) von Hand zu öffnen. Wenn das funktioniert, schau dir nochmal den Pfad und Dateinamen ganz genau an. Ein Schreibfehler ist schnell übersehen. Und es ist durchaus normal, wenn man etwas 5 mal durchliest, dass man einen Schreibfehler 5 mal überliest. Lass also vielleicht noch jemand anderen einen Blick darauf werfen.

Gruß Ingolf

IngGi, 8. September 2010

#22
THOMME1

thomme1

mehrere getrennte Spalten markieren

Hallo Ingolf
Hab jetzt in aller Ruhe zuhause nochmals probiert und siehe da, es funktioniert fast perfekt.
Hab den Code noch angepasst, sodas er nicht in die erste Tabelle der Datei schreibt, sondern in die gewünschte von mir.
Aktueller Code: Code:

Sub KopierentestJinx()

'Beispiel: C:\BBAG Abrechnung\Rechnungsübersicht.xlt (richtig!) öffnen
Dim bExists As Boolean
Dim wb As Workbook
Dim wbVorlage As Workbook
Dim wbDaten As Workbook
Dim wsVorlage As Worksheet
Dim wsDaten As Worksheet

Set wbDaten = ThisWorkbook
Set wsDaten = wbDaten.ActiveSheet

' Prüfen ob Datei bereits geöffnet ist
bExists = False
With Application
For Each wb In .Workbooks
If UCase$(wb.Name) = "RECHNUNGSÜBERSICHT.XLT" Then
' Jetzt aktivieren
Set wbVorlage = Workbooks(wb.Name)
bExists = True
Exit For
End If
Next
End With

' Mappe neu laden!
If Not bExists Then
On Error Resume Next
Set wbVorlage = Workbooks.Open(Filename:="C:\BBAG Abrechnung\Rechnungsübersicht.xlt", ReadOnly:=False)
On Error GoTo 0
End If

Set wsVorlage = wbVorlage.Sheets("Versuch")

wsDaten.Range("A1:A" & wsDaten.Range("A1").End(xlDown).Row).Copy
wsVorlage.Range("A1").PasteSpecial Paste:=xlPasteValues
wsDaten.Range("C1:C" & wsDaten.Range("C1").End(xlDown).Row).Copy
wsVorlage.Range("B1").PasteSpecial Paste:=xlPasteValues
wsDaten.Range("F1:F" & wsDaten.Range("F1").End(xlDown).Row).Copy
wsVorlage.Range("E1").PasteSpecial Paste:=xlPasteValues
wsDaten.Range("G1:G" & wsDaten.Range("G1").End(xlDown).Row).Copy
wsVorlage.Range("D1").PasteSpecial Paste:=xlPasteValues
wsDaten.Range("I1:I" & wsDaten.Range("I1").End(xlDown).Row).Copy
wsVorlage.Range("C1").PasteSpecial Paste:=xlPasteValues

Set wsVorlage = Nothing
Set wbVorlage = Nothing
Set wsDaten = Nothing
Set wbDaten = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Lege Dir noch einen Screen bei weil er in Spalten wo Zellen ohne Wert er mir nicht alles in die neue Tabelle schreibt.
Wo muss nachgebessert werden.
Wünsche noch einen schönen Abend.

thomme1, 8. September 2010

#23
INGGI

IngGi

Hallo Thomas,

ersetze
Code:

wsDaten.Range("A1:A" & wsDaten.Range("A1").End(xlDown).Row).Copy
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

durch
Code:

wsDaten.Range("A1:A" & wsDaten.Cells(Rows.Count, "A").End(xlUp).Row).Copy
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und entsprechend für die anderen Spalten.

Gruß Ingolf

IngGi, 8. September 2010

#24
THOMME1

thomme1

Hallo Ingolf
Es klappt alles bestens.
Ich schreibe jetzt alles in eine Tabelle.
Code:

Set wsVorlage = wbVorlage.Sheets("Bestellwert Bestellnummer")

wsDaten.Range("J16:J" & wsDaten.Cells(Rows.Count, "J").End(xlUp).Row).Copy
wsVorlage.Range("A2").PasteSpecial Paste:=xlPasteValues
wsDaten.Range("CI16:CI" & wsDaten.Cells(Rows.Count, "CI").End(xlUp).Row).Copy
wsVorlage.Range("B2").PasteSpecial Paste:=xlPasteValues
wsDaten.Range("CH16:CH" & wsDaten.Cells(Rows.Count, "CH").End(xlUp).Row).Copy
wsVorlage.Range("C2").PasteSpecial Paste:=xlPasteValues
wsDaten.Range("F16:F" & wsDaten.Cells(Rows.Count, "F").End(xlUp).Row).Copy
wsVorlage.Range("D2").PasteSpecial Paste:=xlPasteValues
wsDaten.Range("BM16:BM" & wsDaten.Cells(Rows.Count, "BM").End(xlUp).Row).Copy
wsVorlage.Range("E2").PasteSpecial Paste:=xlPasteValues
wsDaten.Range("O16:O" & wsDaten.Cells(Rows.Count, "O").End(xlUp).Row).Copy
wsVorlage.Range("F2").PasteSpecial Paste:=xlPasteValues
wsDaten.Range("BL16:BL" & wsDaten.Cells(Rows.Count, "BL").End(xlUp).Row).Copy
wsVorlage.Range("G2").PasteSpecial Paste:=xlPasteValues
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ist es möglich dass anhand von drei Werten (s, k und d) in der Ausgangstabellenspalte die Daten in verschiedene Tabelle der neuen Rechnugsübersicht kopiert werden.
Nämlich Zeilen mit Wert K in Spalte CI der Ausgangstabelle in Tabelle "Konfigurator" der neuen Rechnungsübersicht.
Nämlich Zeilen mit Wert S in Spalte CI der Ausgangstabelle in Tabelle "Standard" der neuen Rechnungsübersicht.
Nämlich Zeilen mit Wert D in Spalte CI der Ausgangstabelle in Tabelle "Div" der neuen Rechnungsübersicht.

Vielleicht weist Du eine Möglichkeit.

Wünsche einen schönen Abend

thomme1, 9. September 2010

#25
INGGI

IngGi

Hallo Thomas,

schön, dass es jetzt läuft. Um die Daten anhand des jeweiligen Inhaltes auf unterschiedliche Tabellenblätter zu verteilen, musst du die Zeilen beim Kopieren in einer Schleife einzeln bearbeiten:

Dim rng As Range

For Each rng In wsDaten.Range("CI16:CI" & _
wsDaten.Cells(Rows.Count, "CI").End(xlUp).Row)

If rng = "K" Then
Set wsVorlage = wbVorlage.Sheets("Konfigurator")
ElseIf rng = "S" Then
Set wsVorlage = wbVorlage.Sheets("Standard")
Else
Set wsVorlage = wbVorlage.Sheets("Div")
End If

rng.Offset(0, -77).Copy 'Spalte J
wsVorlage.Range("CI" & wsVorlage.Cells(Rows.Count, "CI") _
.End(xlUp).Offset(1, -77).Row).PasteSpecial Paste:=xlPasteValues

rng.Offset(0, 0).Copy 'Spalte CI
wsVorlage.Range("CI" & wsVorlage.Cells(Rows.Count, "CI") _
.End(xlUp).Offset(1, 0).Row).PasteSpecial Paste:=xlPasteValues

rng.Offset(0, -1).Copy 'Spalte CH
wsVorlage.Range("CI" & wsVorlage.Cells(Rows.Count, "CI") _
.End(xlUp).Offset(1, -1).Row).PasteSpecial Paste:=xlPasteValues

rng.Offset(0, -81).Copy 'Spalte F
wsVorlage.Range("CI" & wsVorlage.Cells(Rows.Count, "CI") _
.End(xlUp).Offset(1, -81).Row).PasteSpecial Paste:=xlPasteValues

rng.Offset(0, -22).Copy 'Spalte BM
wsVorlage.Range("CI" & wsVorlage.Cells(Rows.Count, "CI") _
.End(xlUp).Offset(1, -22).Row).PasteSpecial Paste:=xlPasteValues

rng.Offset(0, -72).Copy 'Spalte O
wsVorlage.Range("CI" & wsVorlage.Cells(Rows.Count, "CI") _
.End(xlUp).Offset(1, -72).Row).PasteSpecial Paste:=xlPasteValues

rng.Offset(0, -23).Copy 'Spalte BL
wsVorlage.Range("CI" & wsVorlage.Cells(Rows.Count, "CI") _
.End(xlUp).Offset(1, -23).Row).PasteSpecial Paste:=xlPasteValues

Next 'rng
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

VBA/HTML - CodeConverter für Excelforen
AddIn für Excel XP+2003 - komplett in VBA geschrieben von IngGi
Anbindung an VBE-Kontextmenü geklaut ;-) bei:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

IngGi, 9. September 2010

#26
THOMME1

thomme1

Hallo Ingolf
Bist Du von der frühen Truppe, 01.39 Uhr?!
Besten Dank für den Code.
Ich hatte noch einen falschen Tabellennamen angegeben,. Habe ich im Code geändert.

Werde Deine Codegerippe anpassen auf meine Bedürfnisse und melde mich dann nochmals.

Danke für Deine Bemühungen.

thomme1, 9. September 2010

#27
THOMME1

thomme1

mehrere getrennte Spalten markieren

Hallo Ingolf

Habe Deine Zeilen vor folgende Zeile eingefügt:

Set wsVorlage = wbVorlage.Sheets("Bestellwert Bestellnummer")

So arbeitet er lange, und kopiert alles ohne Filterung in Tabelle "Bestellwert Bestellnummer".
Die drei Tabellen wo er die jeweils gefilterten Werte (K, S, D) schreiben soll bleiben leer.
Eine Fehlermeldung wird nicht ausgegeben.
Hab sicher wieder was falsch gemacht :-(

thomme1, 9. September 2010

#28
INGGI

IngGi

Hallo Thomas,

da steckt noch ein kleiner Fehler in meinem Code. Ich habe nicht berücksichtigt, dass die Daten ja nicht in dieselben Spalten kopiert werden, wie in der Ausgangstabelle. Der korrigierte Code sieht so aus:

Dim rng As Range

For Each rng In wsDaten.Range("CI16:CI" & _
wsDaten.Cells(Rows.Count, "CI").End(xlUp).Row)

If rng = "K" Then
Set wsVorlage = wbVorlage.Sheets("Konfigurator")
ElseIf rng = "S" Then
Set wsVorlage = wbVorlage.Sheets("Standard")
Else
Set wsVorlage = wbVorlage.Sheets("Div")
End If

rng.Offset(0, -77).Copy 'Spalte J
wsVorlage.Range("B" & wsVorlage.Cells(Rows.Count, "B") _
.End(xlUp).Offset(1, -1).Row).PasteSpecial Paste:=xlPasteValues

rng.Offset(0, 0).Copy 'Spalte CI
wsVorlage.Range("B" & wsVorlage.Cells(Rows.Count, "B") _
.End(xlUp).Offset(1, 0).Row).PasteSpecial Paste:=xlPasteValues

rng.Offset(0, -1).Copy 'Spalte CH
wsVorlage.Range("B" & wsVorlage.Cells(Rows.Count, "B") _
.End(xlUp).Offset(1, 1).Row).PasteSpecial Paste:=xlPasteValues

rng.Offset(0, -81).Copy 'Spalte F
wsVorlage.Range("B" & wsVorlage.Cells(Rows.Count, "B") _
.End(xlUp).Offset(1, 2).Row).PasteSpecial Paste:=xlPasteValues

rng.Offset(0, -22).Copy 'Spalte BM
wsVorlage.Range("B" & wsVorlage.Cells(Rows.Count, "B") _
.End(xlUp).Offset(1, 3).Row).PasteSpecial Paste:=xlPasteValues

rng.Offset(0, -72).Copy 'Spalte O
wsVorlage.Range("B" & wsVorlage.Cells(Rows.Count, "B") _
.End(xlUp).Offset(1, 4).Row).PasteSpecial Paste:=xlPasteValues

rng.Offset(0, -23).Copy 'Spalte BL
wsVorlage.Range("B" & wsVorlage.Cells(Rows.Count, "B") _
.End(xlUp).Offset(1, 5).Row).PasteSpecial Paste:=xlPasteValues

Next 'rng
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

VBA/HTML - CodeConverter für Excelforen
AddIn für Excel XP+2003 - komplett in VBA geschrieben von IngGi
Anbindung an VBE-Kontextmenü geklaut ;-) bei: Creating Menus For The VBA Editor
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ist mit der Änderung überflüssig und kann gelöscht werden.

Gruß Ingolf

IngGi, 9. September 2010

#29
THOMME1

thomme1

Hallo Ingolf
Habe Deinen Code eingefügt und die Zeile mit Set Bestellwert gelöscht.
Im beiliegenden Screen habe ich Dir den Fehler der angezeigt wird wenn ich bei Zeile " wsVorlage.Range("a" & wsVorlage.Cells(Rows.Count, "a") _
.End(xlUp).Offset(1, -1).Row).PasteSpecial Paste:=xlPasteValues" mit F8 weiter will.
Ich gehe davon aus das in Zeile Copy die Spalte angibt die ich kopieren will und danach in der zweiten Zeile wohin er kopieren soll.
Ist das richtig so?
Ist der Ort wo ich Deinen Code eingefügt habe auch richtig?

thomme1, 9. September 2010

#30

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 2 von 4

Thema:

mehrere getrennte Spalten markieren

Die Seite wird geladen...

mehrere getrennte Spalten markieren - Similar Threads - getrennte Spalten markieren
Zelleninhalte in andere Zelle mit Komma getrennt
in Microsoft Excel Hilfe
Zelleninhalte in andere Zelle mit Komma getrennt: Hallo, ich weiß nicht, ob ich im EXCEL Bereich richtig bin, da es sich um eine Tabelle aus einer Access Datenbank handelt. Allerdings müsste ich "nur" in dieser Tabelle einiges ändern: Für jeden...
Textdatei mit Semikolon getrennten Werten in Verteilerliste in Outlook exportieren
in Microsoft Outlook Hilfe
Textdatei mit Semikolon getrennten Werten in Verteilerliste in Outlook exportieren: Hallo, mein PC mit einigen Verteilerlisten ist mir leider verschmiert, dass ich keinen Zugriff mehr auf diese Verteiler habe. Ich habe allerdings noch die gesendete Verteilerlisten Kontakte,...
Spalteninhalte vergleichen Werte durch Leerzeichen getrennt
in Microsoft Excel Hilfe
Spalteninhalte vergleichen Werte durch Leerzeichen getrennt: Hallo, ich stehe vor der Aufgabe zwei Spalteninhalte zu vergleichen in welchen mehrere Werte stehen welche wiederum durch Leerzeichen getrennt sind. Die Reihenfolge der Werte kann dabei jedoch...
Index Vergleich Zahlen durch Komma getrennt werden erkannt einzelne ohne Komma aber nicht
in Microsoft Excel Hilfe
Index Vergleich Zahlen durch Komma getrennt werden erkannt einzelne ohne Komma aber nicht: Hallo zusammen, ich habe eine Formel erstellt, die bei durch Komma getrennten Werten funktioniert, aber nicht bei einem einzelnen Wert in der Zelle. Ich hänge mal ein Beispiel mit an um es...
Werte von getrennten und verbundenen Zellen vereinen
in Microsoft Excel Hilfe
Werte von getrennten und verbundenen Zellen vereinen: Hi, ich habe ein sog. Dialogbuch in Excel und muss einige Werte aus verbundenen Zellen extrahieren. Schwer in Worte zu fassen. Ich versuche es mal mit Bilder zu verdeutlichen. Das ist die...
Getrennte Bereiche in PDF auf einer Seite
in Microsoft Excel Hilfe
Getrennte Bereiche in PDF auf einer Seite: Hallo alle zusammen, ich versuche aktuell mehrere Bereiche als PDF zu exportieren. Das klappt auch schön und gut, aber die Bereiche werden auf zwei verschiedene Seiten aufgetrennt. Wie kann...
Mehrere Werte getrennt (,) in eine Zelle eintragen
in Microsoft Excel Hilfe
Mehrere Werte getrennt (,) in eine Zelle eintragen: Hallo zusammen Habe in Excel eine UserForm mit Textfelder und mehrere Checkboxen erstellt. Mit einem klick auf den Button sollen die Werte der Textfelder in die Tabelle auf eine Zeile...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden