Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Bedingtes Kopieren markierter Spalten und Zellen
zurück: SVERWEIS dynamisch erweitern weiter: Zellen verbinden mit gleichen Eintrag 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
riesda
Neuling


Verfasst am:
29. Okt 2009, 11:03
Rufname:

Bedingtes Kopieren markierter Spalten und Zellen - Bedingtes Kopieren markierter Spalten und Zellen

Nach oben
       Version: Office 2003

Hallo,

ich habe folgendes Problem:

aus einer Tabelle sollen Spalten kopiert werden welche in der Kopfzeile mit einem X markiert sind, kopiert werden soll allerdings nicht die ganze Spalte bis zum letzten Eintrag sondern nur Einträge welche in Spalte1 (A1) ebenfalls durch ein X markiert sind.

z. B.

XX
200920102011
111213
X222324
X323435



Ergebnis:

20092011
2224
3235


Leider ist es mir bisher nur gelungen ganze Zeilen zu kopieren, jedoch keine Spalten...


{maninweb: ich hab' mir mal erlaubt, den Beitrag etwas umzuformatieren, weil HTML mit Umbrüchen in
Beiträgen elendig viele Leerzeilen produziert; Gruß}
Der_Worti
Excel & VBA ganz ordentlich


Verfasst am:
29. Okt 2009, 21:12
Rufname: Klaus
Wohnort: Coesfeld


Makro für bedingtes Kopieren - Makro für bedingtes Kopieren

Nach oben
       Version: Office 2003

Hallo riesda,
hier mal ein kleines Makro:
Option Explicit

Sub Bedingtes_Kopieren()

Dim lngZielSpalte As Long, lngZielZeile As Long

Dim rngC As Range
Dim rngCC As Range

lngZielSpalte = 12 ' Bereich wird in Spalte L und folgende kopiert
lngZielZeile = 2
For Each rngC In Range("A3:A10") 'Bereich ggf. anpassen
If rngC.Value = "x" Then
lngZielSpalte = 12
For Each rngCC In Range("B1:K1") 'Bereich ggf. anpassen
If rngCC.Value = "x" Then
Cells(lngZielZeile, lngZielSpalte).Value = Cells(rngC.Row, rngCC.Column).Value
lngZielSpalte = lngZielSpalte + 1
End If
Next rngCC
lngZielZeile = lngZielZeile + 1
End If
Next rngC


lngZielSpalte = 12
For Each rngCC In Range("B1:K1")
If rngCC.Value = "x" Then
Cells(1, lngZielSpalte).Value = Cells(2, rngCC.Column).Value
lngZielSpalte = lngZielSpalte + 1
End If
Next rngCC

End Sub

Gruß Worti

_________________
Gruß Worti
l.key
Excel (VBA) brauchbar


Verfasst am:
29. Okt 2009, 22:26
Rufname:

AW: Bedingtes Kopieren markierter Spalten und Zellen - AW: Bedingtes Kopieren markierter Spalten und Zellen

Nach oben
       Version: Office 2007

Hallo riesda,
hab auch noch was:
Code:
Sub XAuszug()
Dim rngBereich As Range, rngX1 As Range, rngX2 As Range, rngZ As Range
    Set rngBereich = Range("A1").CurrentRegion
    Set rngX1 = Range("A1")
    Set rngX2 = rngX1
    For Each rngZ In rngBereich.Resize(, 1)
        If UCase(rngZ.Value) = "X" Then
            Set rngX1 = Union(rngX1, rngZ)
        End If
    Next
    For Each rngZ In rngBereich.Resize(1)
        If UCase(rngZ) = "X" Then
            Set rngX2 = Union(rngX2, rngZ)
        End If
    Next
    Set rngX1 = Application.Intersect(rngX1, rngBereich.Offset(1, 0))
    Set rngX2 = Application.Intersect(rngX2, rngBereich.Offset(0, 1))
    Set rngBereich = Application.Intersect(rngX1.EntireRow, rngX2.EntireColumn)
    rngBereich.Copy Sheets(2).Range("A1")   ' Zielgebiet ggf. anpassen
End Sub

_________________
Grüße, Klaus.
Phelan XLPH
Fortgeschritten


Verfasst am:
29. Okt 2009, 22:46
Rufname: Phelan

AW: Bedingtes Kopieren markierter Spalten und Zellen - AW: Bedingtes Kopieren markierter Spalten und Zellen

Nach oben
       Version: Office 2003

Code:
Sub y()
    Dim rngZ As Range
    Dim rngS As Range
    On Error GoTo Ende
    Set rngZ = Rows(1).RowDifferences(Cells(1, Columns.Count))
    Set rngS = Columns(1).ColumnDifferences(Cells(Rows.Count, 1))
    Intersect(rngZ.EntireColumn, Union(Rows(2), rngS.EntireRow)).Copy _
    Worksheets.Add.Range("A1")
Ende:
    If Err Then _
    MsgBox Err.Description, , _
    "Fehler: " & Err.Number
End Sub

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Rudi4
Excel-Hobbyist


Verfasst am:
30. Okt 2009, 08:26
Rufname: Rudi
Wohnort: ganz oben rechts

AW: Bedingtes Kopieren markierter Spalten und Zellen - AW: Bedingtes Kopieren markierter Spalten und Zellen

Nach oben
       Version: Office 2003

Hallo Phelan,
deine Lösung hat so etwas von - jo - perfekt !
Könntest du noch ein Wort zur Fehlerbehandlung verlieren?
Welchen Fehler erwartest du? Oder gehst du grundsätzlich
bei Range-Operationen so vor?

_________________
MfG Rudi
Phelan XLPH
Fortgeschritten


Verfasst am:
30. Okt 2009, 11:13
Rufname: Phelan

AW: Bedingtes Kopieren markierter Spalten und Zellen - AW: Bedingtes Kopieren markierter Spalten und Zellen

Nach oben
       Version: Office 2003

Nicht perfekt denn sie erfüllt nicht ganz die Anforderungen.

1. Alle mit X-markierten Zeilen und Spalten sollen kopiert werden.
>> Bei meinem Code kann es irgendein Zeichen sein.

2. Columns(1).ColumnDifferences(Cells(Rows.Count, 1))
>> Gibt alle Zellen zurück die unterschidlich von Cells(Rows.Count, 1)
>> Cells(Rows.Count, 1) = letzte Zelle in SpalteA -> Ich nehme an dass diese
leer ist. Erste nögliche Fehlerquelle. Zweite: Sollte es keinen unterschied
geben also Ganze SpalteA enthält "X" -> Fehler

3. Das gleiche bei RowDifferences

Fazit: nicht optimal gelöst -> Ergebnis: Faulheit siegt

Endergebnis: Für so wenig Geld dennoch Gold wert Very Happy Very Happy Very Happy

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Gast



Verfasst am:
30. Okt 2009, 21:10
Rufname:

AW: Bedingtes Kopieren markierter Spalten und Zellen - AW: Bedingtes Kopieren markierter Spalten und Zellen

Nach oben
       Version: Office 2003

Hallo Phelan,
danke für deine Erlạ̈ụterungen. Perfektion liegt im Auge des Betrachters.

zu 1: da drängt sich mir die Frage auf, wie man (oder ob man überhaupt) unter Verwendung der Column- und RowDifferences die Auswahl auf die Spalten und Zeilen mit dem "x" begrenzen kann.

zu 2/3: Das sind ja Fehlerquellen, die man, so man will, ausschließen kann. Es wird wohl niemand eine Komplettlösung über das Forum erwarten können.

mein Fazit: Leute beobachten, die was auf der Kirsche haben und im Bedarfsfall nachfragen. Es lohnt sich, zumal diese kein Gold dafür haben wollen.

MfG
Rudi
Phelan XLPH
Fortgeschritten


Verfasst am:
30. Okt 2009, 21:52
Rufname: Phelan


AW: Bedingtes Kopieren markierter Spalten und Zellen - AW: Bedingtes Kopieren markierter Spalten und Zellen

Nach oben
       Version: Office 2003

@Rudi

zu1: Klar, probiers aus. Schau auch in der VBA-Hilfe nach.
Solche Sachen einfach mal testen.

...abgesehendavon... ich bin Freestyle-Coder Very Happy Very Happy Very Happy Laughing Laughing Laughing

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
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: Blattschutz: bestimmte Zellen zum Löschen freigeben 6 Christiane 1203 21. Okt 2004, 07:17
lala Blattschutz: bestimmte Zellen zum Löschen freigeben
Keine neuen Beiträge Excel Formeln: Formel als Text in Nachbarzelle kopieren 6 blauvogel 1129 19. Okt 2004, 16:54
blauvogel Formel als Text in Nachbarzelle kopieren
Keine neuen Beiträge Excel Formeln: Formel kopieren 4 Manfred50 893 24. Sep 2004, 21:31
Manfred50 Formel kopieren
Keine neuen Beiträge Excel Formeln: Gruppieren v. bestimmten Spalten/Zellen 1 Gast 4713 21. Sep 2004, 16:41
fl618 Gruppieren v. bestimmten Spalten/Zellen
Keine neuen Beiträge Excel Formeln: Anfängerfrage ***Sverweis-suchkriterium über mehrere Spalten 6 mohamedb42 6328 16. Sep 2004, 13:48
mohamedb42 Anfängerfrage ***Sverweis-suchkriterium über mehrere Spalten
Keine neuen Beiträge Excel Formeln: automatische Farbänderung mehrerer Zellen 5 Gast 2777 14. Sep 2004, 15:11
Cubitus007 automatische Farbänderung mehrerer Zellen
Keine neuen Beiträge Excel Formeln: Kopieren von Zellen, Problem mit Datumsformatierung 4 Mick 1431 08. Sep 2004, 18:59
Mick Kopieren von Zellen, Problem mit Datumsformatierung
Keine neuen Beiträge Excel Formeln: Datum aus 3 Zellen zusammenstellen 13 Aloha 3497 07. Sep 2004, 17:29
ae Datum aus 3 Zellen zusammenstellen
Keine neuen Beiträge Excel Formeln: werte in neue tabelle mit neuen spalten kopieren 1 Timo 1723 03. Sep 2004, 07:37
ae werte in neue tabelle  mit neuen spalten kopieren
Keine neuen Beiträge Excel Formeln: Hyperlink per VBA kopieren 1 Gast 1118 03. Aug 2004, 16:57
ae Hyperlink per VBA kopieren
Keine neuen Beiträge Excel Formeln: Auf Zellen einer Datei im Web verweisen. 1 kha 812 30. Jul 2004, 13:18
kha Auf Zellen einer Datei im Web verweisen.
Keine neuen Beiträge Excel Formeln: Zusammenhängende Zellen mit gleichem Text zählen 10 Red Hair 1522 09. Jul 2004, 15:22
Red Hair Zusammenhängende Zellen mit gleichem Text zählen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage