Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

nach Kriterium in anderes Blatt kopieren

nach Kriterium in anderes Blatt kopieren
15.01.2005 15:53:45
Tim
Hallo zusammen,
komme einfach nicht weiter!
Ich möchte gerne meine Daten nach einem Kriterium
aus Sheet3 in Sheet4 kopieren lassen.
Es sollen alle Daten kopiert werden, die ein "x" in
Sheet3 Spalte A enthalten.
Die kopierten Daten in Sheet4 sollen nicht durch eine
Leerzeile getrennt werden.
Bin für jede Hilfe Dankbar.
Gruß
Tim
Tabelle3
  
 ABCDEFGHIJKL
7 0  0,97  0,120,90   
8x10  0,96  0,270,91   
9x20  0,91  0,410,88  OK
10 30  0,84  0,530,84   
 
 Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  


Tabelle4
  
 ABCDEFG
6       
7 100,960,270,91  
8 200,910,410,88OK 
9       
 
 Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  

                    


            


    
    



    
    

    
    
    

    

        

                        
            6
            
Beiträge zum Forumthread

            
Beiträge zu diesem Forumthread

        

    

    

                    

                
                Betreff
            

            
Datum

            
Anwender

            

    
    


    
Anzeige

    

        
                    
            
                
    



    
    



    
            
                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: nach Kriterium in anderes Blatt kopieren
                                            

                    

                                                    15.01.2005 16:25:57
                                            

                                

                                            Josef
                                    

            

        

        

                            
Hallo Tim!

Das sollte es tun!

Der Code gehört in ein allgemeines Modul!
(Alt+F11 um in den VBE zu wechseln &gt Einfügen &gt Modul)


      
Option Explicit

Sub kopieren()
'by Josef Ehrensberger
Dim wks1 As Worksheet, wks2 As Worksheet
Dim lRow As Long, lastRow As Long, myRow As Long
Dim lastCol As Integer

On Error GoTo ERRORHANDLER

With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
.Calculation = xlCalculationManual
End With

Set wks1 = Sheets("Sheet3")
Set wks2 = Sheets("Sheet4")

myRow = 3   'Startzeile in Sheet4! -      anpassen <---
lastCol = 12 'Letzte Spalte mit Daten -   anpassen <---

'Letzte gefüllte Zeile in Spalte "A" (Sheet3) ermitteln
lastRow = IIf(wks1.Range("A65536") <> "", 65536, _
wks1.Range("A65536").End(xlUp).Row)

'Datenbereich in Sheet4 leeren!
wks2.Range(wks2.Cells(myRow, 2), wks2.Cells(65536, lastCol)).ClearContents

   For lRow = 1 To lastRow
      If wks1.Cells(lRow, 1) = "x" Then
      
      'Daten kopieren
         wks1.Range(wks1.Cells(lRow, 2), wks1.Cells(lRow, lastCol)). _
         Copy wks2.Cells(myRow, 2)
         
         'Leerzellen entfernen
         wks2.Range(wks2.Cells(myRow, 2), wks2.Cells(myRow, lastCol)).Cells. _
         SpecialCells(xlCellTypeBlanks).Delete
         
         myRow = myRow + 1
      End If
   Next
   
ERRORHANDLER:
With Application
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
.Calculation = xlCalculationAutomatic
End With
   
End Sub 


		

                    


                    


    
Anzeige

    

        
                    
            
                
    



            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: nach Kriterium in anderes Blatt kopieren
                                            

                    

                                                    15.01.2005 16:49:10
                                            

                                

                                            Tim
                                    

            

        

        

                            
Hallo Sepp,
danke für deine schnelle Antwort!
Leider funzt es nicht.
 
Code in ein allgemeines Modul eingefügt,
Schaltfläche zugewiesen und ...
es funzt leider nicht.

Kannst du eventuell noch einmal nachschauen?
Gruß
Tim

                    


            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: nach Kriterium in anderes Blatt kopieren
                                            

                    

                                                    15.01.2005 16:58:18
                                            

                                

                                            Josef
                                    

            

        

        

                            
Hallo Tim!

Mein Code funzt!

Stimmen die Tabellennamen?
Hast du verbundene Zellen?
Gruß Sepp

                    


            


    
    


                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: nach Kriterium in anderes Blatt kopieren
                                            

                    

                                                    15.01.2005 18:09:03
                                            

                                

                                            Tim
                                    

            

        

        

                            
Hallo Sepp,
hab alles in einer neuen Mappe ausprobiert, klappt
aber aus welchen Gründen auch immer nicht!
Hier noch mal der angepasste Code in einer Beispielmappe:

https://www.herber.de/bbs/user/16148.xls

Vielleicht hab ich ja doch einen Fehler gemacht, wüßte dann
aber nicht wo.

Gruß
Tim

                    


                    


    
Anzeige

    

        
                    
            
                
    



            


    
    


                    
                                
            
                    
                                
            

    
    

        

            
            

                                    

                                                    
                            AW: wer lesen kann.....
                                            

                    

                                                    15.01.2005 19:02:22
                                            

                                

                                            Tim
                                    

            

        

        

                            
Hi Sepp,
Du hast Recht!
Aber....
als NichtVBA´ler ist es doch schon schwierig,
ob es nun
Set wks1 = Sheets("Sheet1")
Set wks2 = Sheets("Sheet2")
oder
Set wks1 = Sheets("Tabelle1")
Set wks2 = Sheets("Tabelle2")
heißt.
Wie heißt es doch so schön:
"Der Teufel steckt oft im Detail"

Jedenfalls wäre ich so schnell nicht
drauf gekommen!
Vielen, vielen Dank für Deine Hilfe.
Gruß
Tim

                    


                    


    
Anzeige

    

        
                    
            
                
    



            


    
    


            
    
    
    
                    


    
    
    
    
    
    
            


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

    
    
    


    
Anzeige

    

        
                    
                
    




    
    

    

        

            

                
                    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
                
            

            

                

                
            

        

    




    
    

    
    
            
 

            
            

                
                
                                    

                        


    

        
        Beliebteste Forumthreads (12 Monate)
    

    
    

 

                    

                                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige

    

        
                    
            
                
    



                


    
Anzeige