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
1780to1784
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
1780to1784
1780to1784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalte kopieren, wenn Wert nicht 0

Spalte kopieren, wenn Wert nicht 0
15.09.2020 18:49:19
Marco
Hallo,
Ich komme bei dem Problem leider nicht weiter.
ich würde per Makro gerne folgendes Problem lösen:
In Tabelle1 soll die Zeile 409 durchsucht werden, beginnend bei Spalte L. Falls in der jeweiligen Zelle nicht 0 steht, soll die gesamte Spalte (oder Zeile 1 bis 413) in das Sheet Tabelle2 kopiert werden, beginnend bei H.
Die Ausgangstabelle (Tabelle1) ist dabei dynamisch hinsichtlich Spaltenanzahl. Die Zeilenanzahl ist mit 413 immer gleich.
Runtergebrochen habe ich also viele Spalten mit Daten. Wenn in der angesprochenen jeweiligen Zelle nicht 0 steht, sollen alle diese Spalten kopiert werden.
Danke vorab für die Bemühungen
Marco

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte kopieren, wenn Wert nicht 0
15.09.2020 19:07:59
ralf_b
ungetestet!
dim rng as Range , i as long
for i = 1 to Range("L409:L" & cells(409,Columns.count).end(xltoleft).Column ).columns.count
if cells(409,i) 0 or cells(409,i) "0" then
set rng= Union(rng, Range(cells(1,i+ 7),Cells(409,i+7))
end if
next
rng.copy Tabelle2.Range("h1")
AW: Spalte kopieren, wenn Wert nicht 0
15.09.2020 19:37:20
Marco
Hi, danke.
Ein erster Test davon liefert für die Zeile einen Fehler:(ungültiger Prozeduraufruf oder Argument).
set rng= Union(rng, Range(cells(1,i+ 7),Cells(409,i+7))
Ich schau mir das mal genauer an
na dann update
15.09.2020 19:56:16
ralf_b
For i = 1 To Range("L409:L" & Cells(409, Columns.Count).End(xlToLeft).Column).Columns.Count
If Cells(409, i + 11).value 0 Or Cells(409, i + 11).value "0" Then
If i = 1 Then
Set rng = Range(Cells(1, i + 11), Cells(409, i + 11))
Else
Set rng = Union(rng, Cells(Cells(1, i + 11), Cells(409, i + 11)))
End If
End If
Next
Anzeige
AW: na dann nächster versuch
16.09.2020 15:24:43
ralf_b
die zeile passt du selbst an. bei Spalte 12 wird die erste zelle geprüft
beim nächsten mal wen du eine datei hochlädst, dann pack auch den code mit rein. 
Sub test()
Dim ws As Worksheet
Set ws = Worksheets("Tabelle1")
Dim rng As Range, i As Long
For i = 12 To ws.Cells(403, Columns.Count).End(xlToLeft).Column
If (ws.Cells(403, i).Value  0 Or ws.Cells(403, i).Value  "0") And ws.Cells(403, i).Value   _
"" Then
If rng Is Nothing Then
Set rng = ws.Range(ws.Cells(1, i), ws.Cells(413, i))
Else
Set rng = Union(rng, ws.Range(Cells(1, i), Cells(413, i)))
End If
End If
Next
rng.Copy Worksheets("Tabelle2").Range("h1")
Set rng = Nothing: Set ws = Nothing
End Sub

Anzeige
AW: Spalte kopieren, wenn Wert nicht 0
15.09.2020 20:12:14
GerdL
Moin,
probier mal. 
Sub Unit()
Dim R As Range, Ct As Long
With Tabelle1
Set R = .Range(.Cells(409, 12), .Cells(409, .Columns.Count).End(xlToLeft))
Ct = WorksheetFunction.CountIf(R, 0)
If Ct  0 Then
Set R = R.RowDifferences(Comparison:=R.Find(0, , xlValues, xlWhole))
End If
Intersect(R.EntireColumn, .Range("$1:$413")).Copy Tabelle2.Cells(1, 8)
End If
End With
Set R = Nothing
End Sub

Gruß Gerd
AW: Spalte kopieren, wenn Wert nicht 0
16.09.2020 11:01:06
Marco
Hi Gerd,
danke für den Code, funktioniert aber leider nicht. Der Code läuft zwar durch aber er kopiert mir stur etwas anderes.
Vielleicht ist eine Beispieldatei hilfreich:
https://www.herber.de/bbs/user/140261.xlsm
Anzeige
AW: Spalte kopieren, wenn Wert nicht 0
16.09.2020 11:54:35
GerdL
Moin Marco,
ja, der Code ist "stur", kopiert aber m.E. -Referenzzeile angepasst - genau nach deiner Beschreibung.
Gruß Gerd

303 Forumthreads zu ähnlichen Themen

Anzahl Zellen - zwischen 80 und 200 - Filter
dwettig

Hallo,
ich möchte die Anzahl von Zellen zählen deren INhalt zwischen a und b liegt. Erschwerend kommt hinzu, das es nur für gefilterte Zeilen gelten soll.
Ich habe es bisher versucht mit:
=ZÄHLENWENN(AD12:AD1500;">80")-ZÄHLENWENN(AD12:AD1500;">200")
Da werden aber auch d...
13.08.2008 09:27:02
Thread-ID: 1001391
8 Beiträge
Anzeige
Pivottab: Werte als % anzeigen
André

Moin zusammen,
ich habe hier ein kleines Verständnisproblem bei einer Pivot-Tabelle. Muß dazu sagen, daß ich Pivottabellen bisher nur selten verwendet habe.
Die Pivottabelle hat mehrere Spalten, darunter z.B. Verkaufspreis und Rohertrag. Diese beiden Spalten sind jeweils in Euro die Sum...
10.06.2009 15:35:59
Thread-ID: 1080522
7 Beiträge
Anzahl nur zählen wenn >0
sanktflorian

Hallo,
wie ich einen Wert durch Anzahl teile ist mir bekannt.
Nun steht in jeder Zelle aber ein Wert ab 0 , ich möchte die Zelle wo eine 0 steht nicht mit zählen bei der Anzahl.
Wie stelle ich das am besten an.
Mit freundlichem Gruß
Sankt
20.08.2009 10:06:57
Thread-ID: 1097291
10 Beiträge
Anzeige
wenn kein wert dann "Wert"
Ralf

Hallo habe da mal wieder ein problem mit Einer formel
und zwar habe ich in H20 =WENN((E19-D19-F19)*24=H19;"";((E19-D19-F19)*24)-H19)
nun ist es so wenn in D19 kein eintrag ist dann kommt die Fehlermeldung "wert"
also ich weiß das das man =WENN(D19"" das dann keine fehlermeldung komm...
02.01.2010 14:57:09
Thread-ID: 1126736
10 Beiträge
Nur Rechnen wenn Betrag grösser als | Herbers Excel-Forum
Roger
Hallo zusammen
Irgendwie steh ich heute auf dem Schlauch. Mit untenstehender Formel muss ich was ausrechnen aber er soll mir nur Rechnen wenn in M6 der Betrag grösser als 100 ist sonst soll im Feld 0.00 stehen(ist so formatiert)
=RUNDEN((GANZZAHL(M6))*7.6/100/0.05;0)*0.05
Danke für eure...
07.01.2010 13:13:18
Thread-ID: 1127853
7 Beiträge
Schleife - Spalte kopieren wenn Wert in Zeile
Jonathan

Hallo zusammen,
ich bekomms einfach nicht hin...
Ich möchte in einer Tabelle die Zeile 4 nach dem Wert "Anzahl" durchsuchen lassen. Der Wert kommt in der Zeile 4 häufiger vor.
Ist der Wert "Anzahl" gefunden soll die dazugehörige Spalte (ab Zeile 5 - zum letzten Wert in der Spalte) k...
02.02.2010 16:08:02
Thread-ID: 1135159
3 Beiträge
Werte löschen wenn Nebenspalte leer
Elias

Hallo Forum,
ich möchte in einer Tabelle per Code den Bereich B175:E194 dann von den Inhalten (nicht den Formaten) her leeren,
wenn in der jeweiligen Zeile kein Wert in Spalte D steht.
Wie stelle ich das an?
Gruß
Elias
18.02.2010 00:38:05
Thread-ID: 1139380
7 Beiträge
Wenn nur ein Wert vorhanden, dann auto. Vorbelegen
Torsten

Hallo liebe Forumsgemeinde,
ich habe mehere Dropdownlisten.
Und ich blende bei der Auswahl verschiedene Möglichkeiten aus bereits aus, wenn diese nicht eintreffen können. Also wenn nur noch eine Auswahlmöglichkeit besteht, soll Excel automatisch diese Zelle mit dem einzig verfügbaren We...
22.06.2010 08:52:04
Thread-ID: 1163324
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
7
2
6
9
9
9
6
2
6
3
4
2
4
13
2
5
2
5
2
2
3
4
6
5
3