Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
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
1344to1348
1344to1348
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten durchlaufen, nach Bedingung kopieren

Forumthread: Spalten durchlaufen, nach Bedingung kopieren

Spalten durchlaufen, nach Bedingung kopieren
21.01.2014 15:40:03
nershl
Hallo liebe Forenmitglieder,
ich habe ein kleines VBA problem und hier bisher keine Lösung gefunden.
Userbild
So sieht meine Tabelle aus. Nun soll ein Makro jeweils durch die Zeilen laufen, dabei sollen die Spalten durchlaufen werden, bis die erste Zelle mit einem Wert "größer" 0 kommt, dann sollen alle folgenden Zellen dieser Zeile bis zur letzten Zelle mit Inhalt kopiert werden. Den Rest bekomme ich selber hin. (Die Kopierten Daten sollen dann in neue Zellen kopiert werden, wobei dann in der ersten Spalte (A) immer der Wert "größer" 0 ist)
Kann mir jemand auf die Sprünge helfen?
Viele Dank und Grüße
Nershl

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten durchlaufen, nach Bedingung kopieren
21.01.2014 16:27:55
fcs
Hallo Nershi,
ich habe ein kleines VBA problem und hier bisher keine Lösung gefunden.
Für spezielle Probleme wirst du nie eine 100% passende Lösung finden, halt nur prinzipielle Vorgehensweisen.
Nachfolgend ein Makro,das du noch ein wenig an deine Tabelle anpassen musst.
Gruß
Franz 
Sub CopyWas()
Dim wks As Worksheet
Dim Zeile As Long, Spalte As Long
Dim Zeile_L As Long, Spalte_L As Long
Dim Zeile_Ziel As Long, rngCopy As Range
Set wks = ActiveSheet
'Set wks = ActiveWorkbook.Worksheets("Tabelle2")
With wks
'Letzte Zeile mit Daten in Spalte A
Zeile_L = .Cells(.Rows.Count, 1).End(xlUp).Row
Zeile_Ziel = Zeile_L + 1 '1. einfügezeile für Kopien ggf. anpassen!!
For Zeile = 4 To Zeile_L 'startzeile anpassen !!!
'letzte Spalte mit Wert in Zeile
Spalte_L = .Cells(Zeile, .Columns.Count).End(xlToLeft).Column
Set rngCopy = Nothing
For Spalte = 1 To Spalte_L
If .Cells(Zeile, Spalte) > 0 Then
Set rngCopy = .Range(.Cells(Zeile, Spalte), .Cells(Zeile, Spalte_L))
rngCopy.Copy
.Cells(Zeile_Ziel, 1).PasteSpecial Paste:=xlPasteValues
Zeile_Ziel = Zeile_Ziel + 1
Exit For
End If
Next
Next Zeile
Application.CutCopyMode = False
End With
End Sub

Anzeige
AW: Spalten durchlaufen, nach Bedingung kopieren
22.01.2014 14:04:06
nershl
Hallo Franz,
das ist so ziemlich genau das was ich brauche! Danke. Kleine Verständnisfrage, wo kann ich angeben, in welcher Spalte er mit der Suche starten soll?
Grüße
Nershl

AW: Spalten durchlaufen, nach Bedingung kopieren
22.01.2014 15:21:46
fcs
Hallo Nershl,
in der folgenden Zeile kannst du die Startspalte anpassen: 
            For Spalte = 1 To Spalte_L
1=A, 2 = B usw.
ggf. muss du dann auch noch hier die Spalte anpassen, in der die letzte Zeile ermittelt werden soll : 
        'Letzte Zeile mit Daten in Spalte A
Zeile_L = .Cells(.Rows.Count, 1).End(xlUp).Row

Gruß
Franz
Anzeige
;

Forumthreads zu verwandten Themen

formatierte Zelle automatisch nach unten schieben
oblivion

Hallo, ich habe eine Frage zu Zellen.
Ich habe sagen wir in L2-L14 Namen stehen. Die Zellen habe ich mit einem Rahmen formatiert. Jetzt kann es aber passieren, dass ich in L15 die Liste weiterführen muss, da ein neuer Name dazugekommen ist. Gibt es eine einfache Möglichkeit, das, wenn ich i...
20.08.2008 17:36:09
Thread-ID: 1003263
5 Beiträge
Formel nach unten...
werner

Hallo zusammen,
wenni ch in Zelle D10 z.B. die Formeln = B10+C10 kann ich diese nach unten in Zelle D11,D12.......ziehen um die Formel zu übernehmen.
Meine Frage ist folgende , geht das auch mit = Tabelle1!C9 ,wenn ich da nach unten ziehe solte sich die Formel auch anpassen d.h Tabelle2...
12.01.2009 20:24:00
Thread-ID: 1039009
4 Beiträge
Zellen nach Kriterium automatisch kopieren
Matthias

Hallo zusammen,
ich würde gerne folgende Aufgabe über ein Makro lösen
Ein Tabellenblatt enthält eine Nummer in C3, dieser Nummer sind in weiteren Spalten (A3, B3, D3,...) Werte zugeordnet.
Wenn nun beispielsweise in C100 die gleiche Nummer wie in C3 eingegeben wird, sollen die Werte...
07.08.2009 12:59:15
Thread-ID: 1094257
5 Beiträge
VBA - Formeln kopieren mit Bezug auf andere Sheets
Fabian

Hallo Zusammen,
ich habe folgende Problemstellung:
Eine Exceldatei *xlsx mit insgesamt 4 Tabellenblättern.
Tabellenblatt 1 - Material Data - Dateneingabe ab Zeile 2.
Tabellenblatt 2 - ABCXYZ - nicht relevant für das Problem
Tabellenblatt 3 - Life Time Cycle - Berechnung, di...
16.09.2009 09:14:54
Thread-ID: 1103102
5 Beiträge
Anzeige
Kopieren in nächst freie Spalte
Wolle27

Hallo liebe Excel-Gemeinde,
vielleicht kann mir jemand helfen.
Ich mache bestimmte Eingaben, in eine Excel Tabellenblatt. z.B. Spalte A
Spaltenkopf ist heutiges Datum.
Nachdem alle Eingaben erledigt sind, sollen die daraus erzeugten Ergebnisse in eine andere Tabelle mit Spaltenk...
19.09.2009 15:56:11
Thread-ID: 1104091
6 Beiträge
Zellen nach unten ziehen
welga

Hallo,
ich glaube ich stehe zur Zeit voll auf dem Schlauch.
Ich habe in Spalte A die Zahlen 1 bis 1024. Dann habe ich noch B1=A1, B2=A4, B3=A7, B4=A10. Da es aber zu mühsam ist die einzelnen Zellen in Spalte B von Hand zu füllen, habe ich versucht alle ausgefüllten Zellen zu markieren u...
22.09.2009 11:14:07
Thread-ID: 1104593
3 Beiträge
Diagramm und einzelen Zellen nach PPT kopieren
Mandy

Hallo,
ich habe eine Excelmappe mit Daten und Diagrammen. Meine Frage dazu, ist es möglich, mit einem Makro aus Excel heraus, Diagramme (Diagramm 1", "Diagramm 2") und / oder ein kopierter Range (zB A1 : D10)
in ein Powerpointdokument zu bringen ?
Ich stelle mir das so vor, dass nac...
02.10.2009 09:57:53
Thread-ID: 1106620
2 Beiträge
VBA: Zellen vergleichen, Zellen nach unten
Scot

Hallo Leute
Ich hoffe, in diesem Forum eine Lösung für mein Problem zu finden. Bin seit Tagen auf der Suche.
Meine Tabelle sieht so aus, wie die hochgeladene, Blatt "Ausgangslage":
https://www.herber.de/bbs/user/66860.xls
Ziel soll sein, die Spalten B und N ab Zeile 6 Zeile für...
29.12.2009 02:57:17
Thread-ID: 1126145
6 Beiträge
Anzeige
VBA Formel kopieren und ausführen | Herbers Excel-Forum
bluesky61@team-ab.de
Hallo zusammen,
aus Access hole ich per Query immer wieder verschiedene Datensatzmengen zur weiteren Verarbeitung in ein Worksheet ("Produktion"). Überschriften A1:T1 , Datensätze unterschiedliche Anzahl
Zur weiteren Auswertung, muss ich häufig noch Formeln daneben setzen (z.B. in Spalte U)...
30.01.2010 08:49:30
Thread-ID: 1134334
20 Beiträge
Anzeige
VBA Zellformel mit rel. Bezügen kopieren
ulli

Moin moin,
ich möchte die Formel einer Zelle in die Zelle der Folgezeile kopieren, dabei sollen die relativen Zellbezüge (wie bei autoauffüllen) um die kopierte Distanz verschoben werden.
Wenn ich diese Funktion
Activecell.Offset(0, 3).Formula = Activecell.Offset(-1, 3).Formula
20.05.2010 17:02:28
Thread-ID: 1158154
3 Beiträge
Anzeige
Zelle nach unten und nächste Spalte analysieren
igoryg

Hallo an alle!
ich habe folgene Formel:
=WENN($D$5="x";ZÄHLENWENN(BL5:BL$21;1); )
Wenn ich diese Zelle einfach nach unten ziehe bekomme ich das da:
=WENN($D$5="x";ZÄHLENWENN(BL6:BL22;1); )
Mein Problem ist, dass ich das haben möchte:
=WENN($D$5="x";ZÄHLENWENN(BM5:BM21;1)...
22.07.2010 16:09:44
Thread-ID: 1168405
3 Beiträge
Formeln in gefilteter Liste nach unten kopieren
Mary

Hallo Cracks,
ich habe eine riesige Excel-Datei und aus dieser auf einem neuen Tabellenblatt eine Pivot-Tabelle per VBA erstellt. Darin erstelle ich dann (wieder über Makro) Formeln in der 4. Zeile. Nun filtere ich die Pivot nach einer bestimmten Spalte und möchte die Formeln der 1. Zeile (...
20.08.2010 10:51:53
Thread-ID: 1173298
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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