Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Wenn Bedingung ganze Zeile in endere Arbeitsmappe kopieren
zurück: Daten aus anderem Tabellenblatt übernehmen weiter: Zellen werten zum Teil nicht gesperrt Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Unregistered7
Gast


Verfasst am:
04. Mai 2005, 16:47
Rufname:

Wenn Bedingung ganze Zeile in endere Arbeitsmappe kopieren - Wenn Bedingung ganze Zeile in endere Arbeitsmappe kopieren

Nach oben
       

Hallo,

ich benutze E2k und habe folgendes Problem: Razz

In einer Arbeitsmappe sind von B7 - AA7 Daten eingegeben. Nun soll in der gleichen Mappe auf einem seperaten Blatt folgende Bedingung erfüllt werden, geht das mit der wenn Funktion:
Wenn in Zelle B7 = "Kunde1"; dann kopiere die ganze Spalte (B7 - AA7) in Blatt 2. Es sollen dann alle Zeilen angefügt werden, die mit Kunde1 anfangen.

Könnt Ihr mir da bitte weiterhelfen? Idea

Danke im voraus

Chris
fl618
Gibt sich Mühe


Verfasst am:
04. Mai 2005, 19:36
Rufname:
Wohnort: Wallbach, CH

AW: Wenn Bedingung ganze Zeile in endere Arbeitsmappe kopier - AW: Wenn Bedingung ganze Zeile in endere Arbeitsmappe kopier

Nach oben
       

Hallo Chris

Das geht nur mit Makros. Traust Du Dich da ran?

Alternativ könntest Du die Liste filtern und dann manuell rüberkopieren.

_________________
Ciao
Franz

--------------------------------------------
(da ich eine engl. Excel Version verwende, kann es vorkommen, dass ich leider nicht immer die richtige deutsche Übersetzung erwische ...)
Gast



Verfasst am:
05. Mai 2005, 22:32
Rufname:


AW: Wenn Bedingung ganze Zeile in endere Arbeitsmappe kopier - AW: Wenn Bedingung ganze Zeile in endere Arbeitsmappe kopier

Nach oben
       

Hallo

Hatte so ein aehnliches problem. Hier mal ein Vorschlag. Du muss es nur noch ein bisschen anpassen. Range, das kriterium "Kunde1" usw.

Code:

Sub kopieren()
Sheets("Sheet2").Range("A1:AA300").Clear

Dim rngZelle        As Range
Dim lngZeile        As Long
   With Worksheets("Sheet2")
   lngZeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
    With Worksheets("Sheet2")
        For Each rngZelle In Sheets("Sheet1").Range("A9:A33")
         If Not IsEmpty(rngZelle) Then
            Range(rngZelle, rngZelle.Offset(0, 11)).Copy .Cells(lngZeile, 1)
            lngZeile = lngZeile + 1
         End If
      Next rngZelle
    End With
   End With
End Sub


Frag mich bitte nicht wie du dass anpassen musst. Ich hab nicht wirklich viel Ahnung von Makros. Ich verstehe gerade mal was es macht. Ich bin sicher jemand hier im Formu kann weiterhelfen.

Marcel
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: zuletzt befüllte Zeile anzeigen 1 michi1234 949 29. März 2005, 13:54
fridgenep zuletzt befüllte Zeile anzeigen
Keine neuen Beiträge Excel Formeln: Hyperlink mit Bedingung 3 NcMandy 839 19. März 2005, 19:09
Hübi Hyperlink mit Bedingung
Keine neuen Beiträge Excel Formeln: Formel für Zusammenzählen jeder zweiten Zelle einer Zeile 2 toto_225 814 11. März 2005, 12:04
toto_225 Formel für Zusammenzählen jeder zweiten Zelle einer Zeile
Keine neuen Beiträge Excel Formeln: Summe mit automat. Hochzählen der Zeile 7 Excellehrling_Tom 1544 09. März 2005, 15:40
Excellehrling_Tom Summe mit automat. Hochzählen der Zeile
Keine neuen Beiträge Excel Formeln: *** Automatische übernahme einer Zeile in ein anderes Sheet 5 Lucas 1586 10. Feb 2005, 17:44
fridgenep *** Automatische übernahme einer Zeile in ein anderes Sheet
Keine neuen Beiträge Excel Formeln: Teilinhalt einer Zelle in einer neuen Zelle kopieren 2 nastromo2001 2812 24. Jan 2005, 18:48
nastromo2001 Teilinhalt einer Zelle in einer neuen Zelle kopieren
Keine neuen Beiträge Excel Formeln: Formel automatisch in nächste zeile übernehmen 2 Laura 2073 21. Jan 2005, 12:43
Laura Formel automatisch in nächste zeile übernehmen
Keine neuen Beiträge Excel Formeln: Verknüpfungen nach Kopieren eines Verzeichnises 17 Toledo 4274 12. Jan 2005, 10:27
Toledo Verknüpfungen nach Kopieren eines Verzeichnises
Keine neuen Beiträge Excel Formeln: Datensätze automatisch kopieren 2 Gast 2731 04. Jan 2005, 20:57
Gast Datensätze automatisch kopieren
Keine neuen Beiträge Excel Formeln: Teile aus Zellen ersetzen und kopieren?? 2 Marbi 1145 03. Dez 2004, 14:49
Gast Teile aus Zellen ersetzen und kopieren??
Keine neuen Beiträge Excel Formeln: Sehr langsame Arbeitsmappe 4 FMPO 610 16. Nov 2004, 03:14
Aloha Sehr langsame Arbeitsmappe
Keine neuen Beiträge Excel Formeln: automatisches Ausfüllen einer Zeile 1 Carla 1554 03. Nov 2004, 13:18
ae automatisches Ausfüllen einer Zeile
 

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