Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1184to1188
1184to1188
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro Kopieren im Bereich wenn Wert >0

Forumthread: Makro Kopieren im Bereich wenn Wert >0

Makro Kopieren im Bereich wenn Wert >0
Milan
Hallo liebe Forum Freunde,
Ich brauche ein Makro mit folgender Aufgabenstellung:
Kopiere
aus Tabelle1
suche im Bereich AS4 bis CG40 (Formeln)
kopiere
nur wenn in
Spalte AS4 bis AS40 Wert größer 0
(Beispiel:
Wenn in Spalte AS4 bis AS10 Wert größer 0
Dann kopiere AS4 bis CG 10 )
Einfügen:
in Tabelle2
suche nächste freie Zelle in der Spalte A
Nur die Werte einfügen
Vielen Dank im Voraus
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro Kopieren im Bereich wenn Wert >0
20.11.2010 18:20:03
Josef

Hallo Milan,
probier mal.

' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub kopieren()
  Dim lngRow As Long, rng As Range
  
  With Sheets("Tabelle1")
    For lngRow = 4 To 40
      If .Cells(lngRow, 45) > 0 Then
        If rng Is Nothing Then
          Set rng = .Range(.Cells(lngRow, 45), .Cells(lngRow, 85))
        Else
          Set rng = Union(rng, .Range(.Cells(lngRow, 45), .Cells(lngRow, 85)))
        End If
      End If
    Next
  End With
  
  If Not rng Is Nothing Then
    With Sheets("Tabelle2")
      rng.Copy .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1)
    End With
  End If
  
  Set rng = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Makro Kopieren im Bereich wenn Wert >0
20.11.2010 18:32:57
Milan
Hallo Sepp,
bist ein Engel, vielen DANK, es funktioniert perfekt.
Gruss
Milan
AW: Makro Kopieren im Bereich wenn Wert >0
20.11.2010 19:06:17
Milan
Hallo Sepp,
ein Problem, habe es in eine Testdatei getestet es hat funktioniert.
Habe es jetzt in meine richtige Tabelle eingespielt, nach dem Einfügen steht in jede eingefügte Zelle(#BEZUG!) . Was habe ich falsch gemacht?
Auch die Formate werden eingefügt ich brauche aber nur die Werte.
So habe ich es verändert (nur Tabellennamme geändert):
Option Explicit
Sub kopieren()
Dim lngRow As Long, rng As Range
With Sheets("Eingabe")
For lngRow = 4 To 40
If .Cells(lngRow, 45) > 0 Then
If rng Is Nothing Then
Set rng = .Range(.Cells(lngRow, 45), .Cells(lngRow, 85))
Else
Set rng = Union(rng, .Range(.Cells(lngRow, 45), .Cells(lngRow, 85)))
End If
End If
Next
End With
If Not rng Is Nothing Then
With Sheets("Historie")
rng.Copy .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1)
End With
End If
Set rng = Nothing
End Sub

Gruss
Milan
Anzeige
AW: Makro Kopieren im Bereich wenn Wert >0
20.11.2010 19:21:40
Josef

Hallo Milan,
sorry, mein Fehler, habe das "nur Werte" überlesen

Sub kopieren()
  Dim lngRow As Long, rng As Range
  
  With Sheets("Eingabe")
    For lngRow = 4 To 40
      If .Cells(lngRow, 45) > 0 Then
        If rng Is Nothing Then
          Set rng = .Range(.Cells(lngRow, 45), .Cells(lngRow, 85))
        Else
          Set rng = Union(rng, .Range(.Cells(lngRow, 45), .Cells(lngRow, 85)))
        End If
      End If
    Next
  End With
  
  If Not rng Is Nothing Then
    With Sheets("Historie")
      rng.Copy
      .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1).PasteSpecial xlValues
      Application.CutCopyMode = False
    End With
  End If
  
  Set rng = Nothing
End Sub

Gruß Sepp

Anzeige
AW: Makro Kopieren im Bereich wenn Wert >0
20.11.2010 19:30:11
Milan
SUPER!
jetzt läufts!!
DANKE SEPP
Gruss
Milan
;

Forumthreads zu verwandten Themen

Kopieren von bestimmten Bereichen
bestimmten

Hallo Zusammen!
Ich brauche ein Markro, was nach einem bestimmten Begriff sucht und von da aus bis zum nächsten gefundenen Begriff den Bereich markiert.
Sub test() 'Suchen Cells.Find(What:=orginal).Activate ActiveCell.Range("A1:(bis zum Begriff (Ende)").Select Selection.Copy End Sub <...
18.08.2008 14:48:47
Thread-ID: 1002610
5 Beiträge
Durchlaufende numerierung beim kopieren bereich
Karel

Guten abend Forum,
habe letzte mal mit hilfe von euch ein bestimmtes bereich x mal Kopieren in anderes Tabelleblatt Etikett_print gemacht.
zusatz frage:
wie kan man noch eine durchlaufenden nummerierung machen beim Kopieren in Tabelleblat Etikett_print
anzahl durch eingabe in G3...
10.09.2008 20:31:33
Thread-ID: 1008914
5 Beiträge
Excel schneidet beim Kopieren alles über 255 ab
Joachim

Hi,
ich möchte eine komplette Tabellen von einer Mappe in die andere kopieren. Dabei werden mir aber alle Zellen, die mehr als 255 Zeichen haben, auf 255 gestuzt.
Excel meint dazu, ich soll alle Zellen , die mehr als 255 haben, einzeln kopieren :-((((
Mache ich was falsch ?
Da...
10.10.2008 10:48:00
Thread-ID: 1015526
17 Beiträge
Merged Cells: Zell-Inhalt im Verband kopieren
Martin

Hallo,
folgende Frage: Ich habe eine grosse Liste in der in Spalte A unterschiedlich viele Zellen vertikal "gemerget", also "verbunden" (?) sind (sorry, verwende Office in Englisch). In einer der Zellen, die verbunden sind, steht ein Zell-Inhalt. Ich möchte diese Inhalt auf alle Zellen, die...
24.10.2008 11:03:48
Thread-ID: 1018919
4 Beiträge
Datumsformat der ComboBox beim Kopieren ändern
Heinz

Hallo Leute
Ich habe in der Combobox1 das Format "DDD. DD MMMM YY"
Nur in E6 sollte das Format "DD MMMM YY"stehen.
Die Combobox darf das Format aber nicht abändern,
da ich es für weitere Berechnungen genau so brauche.
Könnte mir bitte jemand wieder weiterhelfen.
Danke...
20.01.2009 13:30:12
Thread-ID: 1041823
8 Beiträge
Code optimieren beim Spalten kopieren
edie

Hallo zusammen,
habe mir ein Makro zusammen geschustert, ein Excel-Profi wird schon mal lachen, aber es
funktioniert. Dabei werden Spalten (beinhalten Lücken) in Abhängigkeit der Zeile 1 kopiert.
Und nun, würde ich gerne das Makro optimieren, so dass die Spalten nacheinander im Blat...
11.06.2009 22:42:07
Thread-ID: 1080857
3 Beiträge
Code beim kopieren löschen
Bowl

Hallo zusammen,
ich habe eine Arbeitsmappe mit am Haufen an Makros darin.
Nun möchte ich die entsprechende Datei automatisch (jede woche einmal oder so) oder per schaltfläche
automatisch kopieren/in einem anderen verzweichnis speichern und anschließend auf der kopie sämtliche schal...
15.09.2009 14:48:06
Thread-ID: 1102963
11 Beiträge
Bereichsnamenabfrage beim Kopieren unterdrücken
Jörg-HH

Hallo zusammen
wenn ich ein Blatt mit Bereichsnamen unter einem anderen Namen speichere, irgendwie verändere und danach wieder in das Ursprungsblatt kopiere, erkennt Excel die Namen als schon vorhanden und fragt für jeden einzelnen ab, wie die Verwendung sein soll. Sind vielen Namen vorhand...
02.03.2010 14:16:35
Thread-ID: 1142719
4 Beiträge
Code beim Kopieren mit umziehen
Volker

Hallo liebe Excel-Könner.
Ich möchte das beim kopieren eines Arbeitsblatts und den anschließenden speichern ein bestimmten Code der in der Arbeitsmappe ist "mitgenommen" bessergesagt auch in diese neue Arbeitsmappe "kopiert" wird. Damit kann ich den Code auch in dieser neuen Mappe nutzen.
07.03.2010 15:50:05
Thread-ID: 1144141
13 Beiträge
Tabelle in Word einfügen
Carle

Hallo miteinander,
ich stehe vor der an und für sich einfachen Aufgabe (sollte man jedenfalls meinen) eine Tabelle in ein Word-Dokument einzubinden. Ich gehe wie folgt vor: Tabelle wird in Excel markiert und kopiert, dann wechsele ich in das Word-Dokument und gehe auf Bearbeiten/Inhalte ein...
03.01.2011 12:26:59
Thread-ID: 1193638
4 Beiträge
Kopieren von Werten nach Suche bestimmter Zeichenk
Werten

Hallo Zusammen,
ich habe eine Excel-Datei mit mehreren Tabellen.
In einer bestimmten Spalte eines dieser Arbeitsblätter möchte ich nun nach einer genauen Zeichenkette suchen und, wenn vorhanden, den Wert der benachbarten Zelle in ein bestimmtes Feld einer anderen Tabelle eintragen.
...
02.02.2011 15:14:21
Thread-ID: 1198638
2 Beiträge
beim kopieren im Neue Mappe Spalte Löschen
Karel

Hallo Leute,
Habe ein Dank dieses Forum eine Schöne Code (vom Sepp) erhalten.
er Kopiert ein Tabelle in eine Neue Mappe Eins zu Eins inklusiv Formatierung, Bilder und Ohne Makros einwandfrei.
Jetzt möchte ich noch diese Code Ergänzen wenn das geht mit, wenn im erste Zeile eine X dan...
22.03.2011 17:00:20
Thread-ID: 1206794
5 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Makro Kopieren im Bereich wenn Wert > 0

Schritt-für-Schritt-Anleitung

  1. Öffne die Excel-Datei: Stelle sicher, dass Du die Datei mit den Tabellen „Tabelle1“ und „Tabelle2“ geöffnet hast.

  2. Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

  3. Erstelle ein neues Modul: Klicke mit der rechten Maustaste auf „VBAProject (DeineDatei.xlsx)“, wähle „Einfügen“ und dann „Modul“.

  4. Füge den folgenden Code ein:

    Sub kopieren()
   Dim lngRow As Long, rng As Range
   With Sheets("Tabelle1")
       For lngRow = 4 To 40
           If .Cells(lngRow, 45) > 0 Then
               If rng Is Nothing Then
                   Set rng = .Range(.Cells(lngRow, 45), .Cells(lngRow, 85))
               Else
                   Set rng = Union(rng, .Range(.Cells(lngRow, 45), .Cells(lngRow, 85)))
               End If
           End If
       Next
   End With
   If Not rng Is Nothing Then
       With Sheets("Tabelle2")
           rng.Copy
           .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1).PasteSpecial xlValues
       End With
   End If
   Set rng = Nothing
End Sub

  5. Schließe den VBA-Editor: Drücke ALT + Q, um zum Excel-Fenster zurückzukehren.

  6. Führe das Makro aus: Gehe zu „Entwicklertools“ > „Makros“, wähle „kopieren“ und klicke auf „Ausführen“.

Häufige Fehler und Lösungen

  • Fehler: #BEZUG! in den Zellen
    Lösung: Stelle sicher, dass Du nur die Werte kopierst. Achte darauf, dass Du .PasteSpecial xlValues im Code verwendest, um nur die Werte einzufügen.

  • Fehler: Das Makro funktioniert nicht
    Lösung: Überprüfe, ob die Tabellennamen korrekt sind. In dem Beispiel sind die Tabellennamen „Tabelle1“ und „Tabelle2“. Passe sie an, wenn Du andere Namen verwendest.

Alternative Methoden

Falls Du kein VBA verwenden möchtest, kannst Du auch die „SVERWEIS“-Funktion oder die Filterfunktion in Excel nutzen, um die gewünschten Werte zu extrahieren und an einen anderen Ort zu kopieren. Diese Methoden erfordern jedoch manuelle Schritte und sind weniger automatisiert.

Praktische Beispiele

  • Beispiel 1: Du hast Verkaufszahlen in „Tabelle1“ und möchtest alle Zeilen kopieren, wo die Verkaufszahlen größer als 0 sind, um sie in „Tabelle2“ zu konsolidieren.

  • Beispiel 2: Du verwendest den Code für eine andere Tabelle, z.B. „Eingabe“ und „Historie“. Ändere einfach die Tabellennamen im Makro-Skript.

Tipps für Profis

  • Optimierung des Codes: Wenn Du regelmäßig mit großen Datenmengen arbeitest, kannst Du den Code optimieren, indem Du Application.ScreenUpdating auf False setzt, bevor Du den Kopiervorgang startest, und auf True, nachdem Du fertig bist. Dies beschleunigt den Prozess erheblich.

    Application.ScreenUpdating = False
' Dein Kopiercode hier
Application.ScreenUpdating = True

  • Fehlerbehandlung einfügen: Nutze On Error Resume Next, um sicherzustellen, dass das Makro nicht abbricht, wenn es auf einen Fehler stößt.

FAQ: Häufige Fragen

1. Frage
Was mache ich, wenn ich keine Entwicklertools in meinem Excel finde?
Antwort: Du kannst die Entwicklertools aktivieren, indem Du zu „Datei“ > „Optionen“ > „Menüband anpassen“ gehst und das Kästchen „Entwicklertools“ aktivierst.

2. Frage
Kann ich das Makro für andere Bereiche anpassen?
Antwort: Ja, Du kannst die Zeilen- und Spaltenreferenzen im Code anpassen, um andere Bereiche zu kopieren.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige