Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1348to1352
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
1348to1352
1348to1352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte in Zeilen zusammenrücken

Werte in Zeilen zusammenrücken
07.02.2014 17:05:15
Markus
Hallo,
Ich habe folgendes Problem:
In einer Zeile von a1 bis x1 stehen Formeln und Werte z.Bsp:
0 0 0 55,65 0 0 0 0 33,77 0 0 0 0 22,55 0 0
Jetzt möchte ich nur die Werte größer 0 rechts neben der Zeile stehen haben:
0 0 0 55,65 0 0 0 0 33,77 0 0 0 0 22,55 0 0 55,65 33,77 22,55
Da ich nicht sehr viele Kenntnisse habe würde mir eine Anleitung oder vielleicht sogar eine passende Formel sehr helfen.
Vielen Dank im voraus.
Gruß
Markus

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte in Zeilen zusammenrücken
07.02.2014 17:39:05
WolfgangA
Hallo Markus,
denke mal dass einfach die Formel:
=WENN(SUMME(A1:X1);SUMME(A1:X1);)
reicht?
oder hast du mehr vor ?

AW: Werte in Zeilen zusammenrücken
07.02.2014 18:27:03
Heinz
Hallo Markus,
probier mal. 
Sub test()
Dim i
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = "" Then Exit Sub
If Cells(i, 1)  "" Then
Cells(i, 1).Copy Destination:=Cells(i, 2)
Cells(i, 2).Replace What:="0", Replacement:="", LookAt:= _
xlPart, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End If
Next
End Sub
Gruß Heinz

wer lesen...
07.02.2014 18:49:38
Heinz
kann ist klar im Vorteil. Du hattest deine Werte ja in Zeile 1 stehen.
Dann eher das als nur mal so als Vorschlag. 
Sub test()
Range("A1:X1").Copy Destination:=Range("Y1")
Range("Y1:AV48").Replace What:="0", Replacement:="", LookAt:= _
xlPart, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
End Sub

Gruß Heinz

Anzeige
AW: wer lesen...
07.02.2014 21:17:12
Markus
Danke für die schnelle Antwort,
aber wie unter Level schon steht: Kaum Excel/Vba Kenntnisse
Ich weiß noch nicht mal wie und in welches Feld ich diese Formel eingeben kann /muss.
Gibt´s nicht irgendwas mit Inhalte beim kopieren löschen oder autofilter oder sowas ?
Ich nehme auch gerne den langen umständlichen Weg , denn Makros oder VBA ist wirklich
nicht mein Ding.
Gruß
Markus

AW: wer lesen...
08.02.2014 10:51:47
Heinz
Hallo Markus,
hier eine Bsp.-Mappe. Dabei werden deine Werte von A1 bis X1 nach Y1 bis AV1 geschrieben, also rechts neben deine Werte, wie beschrieben. Alle Nullen werden dabei ersetzt. Es sollte aber nur mal ein Ansatz sein. Ganz glücklich denke ich, bist damit nicht, da rigeros alle Nullen entfernt werden, auch wenn sie zu einem deiner Werte gehören, die du erhalten möchtest. Hier im Forum gibts sicher noch richtige VBA Experten, die da eine bessere Lösung für dich haben. Sicher wäre es ratsam eine Bsp-Mappe deinerseits hochzuladen, um sehen zu können wie dein gewünschtes Ergebnis aussehen soll.
https://www.herber.de/bbs/user/89169.xlsm
Grüße
Heinz

Anzeige
könnte sie... owt
08.02.2014 12:36:49
Heinz

AW: könnte sie... owt
08.02.2014 13:53:13
Markus
Hi,
ja, genauso soll die Tabelle aussehen.
Wie bereits erwähnt : Level:Kaum Excel/VBA-Kenntnisse.
Kenntnisse beschränken sich auf Funktionen wie WENN ; SVERWEIS usw.
Ich brauche keine besonders elegante Lösung die ich nicht verstehe,
sondern einen umständlichen für Idioten gemachten "zu Fuß" Weg.
Ich mache von mir aus auch den ganzen Tag "kopieren und einfügen"
und "filtere" was das Zeug hergibt.

AW: wer lesen...
08.02.2014 14:01:25
Markus
Hi,
Das Ergebnis soll genauso aussehen wie in der Tabelle von Heinz´ Antwort.
Die Nullen in den Werten die ich brauche zu löschen ist kein Problem da
sie nur in den Nachkommastellen auftreten und diese nicht so wichtig sind.
Leider muss ich erst die xlsm Datei in xls konvertieren, da ich mit excel 2000
arbeite.
Gruß
Markus

Anzeige
AW: Nochmal nachgefragt
08.02.2014 14:15:35
hary
Moin
Steht Bsp. dieses hier:
0 0 0 55,65 0 0 0 0 33,77 0 0 0 0 22,55 0 0
in einer Zelle oder ist jeder Wert in einzelnen Zellen?
gruss hary

letzter Versuch
08.02.2014 15:58:54
Heinz
Hallo Markus,
da du keine schlüssigen Infos lieferst, hier ein (zwei) letzte Versuche.
Bsp.1: https://www.herber.de/bbs/user/89176.xls
das selbe Makro in einer xls. Wird bei Doppelklick ausgeführt.
Bsp.2: https://www.herber.de/bbs/user/89177.xls
falls die Werte alle in einzelnen Zellen stehen. Allerdings sind dann noch Leerzellen vorhanden.
Wird ebenfalls bei Doppelklick ausgeführt.
Gruß Heinz

Anzeige
AW: letzter Versuch
08.02.2014 16:37:10
Markus
Hallo Heinz,
das zweite ist es !
Herzlichsten Dank !
Gruß
Markus

AW: letzter Versuch
08.02.2014 18:01:11
Heinz
Hi Markus,
danke für die Rückmeldung. Schön wenns hilft. Beim nächsten mal lade einfach eine Bsp.-Mappe hoch und zeige was du möchtest. Dann wäre dieser Thread wesentlich kürzer geworden. Eine richtig gestellte Frage ist meist die halbe Antwort.
Grüße aus Elbflorenz
Heinz

AW:ohne Null und Leerzellen
10.02.2014 06:45:18
hary
Moin
So ginge es auch. 
Dim sammeln As Range
Dim i As Long
For i = 1 To 24
If Cells(1, i) > 0 Then
If sammeln Is Nothing Then
Set sammeln = Cells(1, i)
Else
Set sammeln = Union(sammeln, Cells(1, i))
End If
End If
Next i
sammeln.Copy
Range("Y1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

gruss hary

Anzeige
AW: Nochmal nachgefragt
08.02.2014 16:33:23
Markus
Hi,
ja, jeder Wert in einzelnen Zellen(in den Zellen steht auch eine Formel)
Gruß
Markus

315 Forumthreads zu ähnlichen Themen

Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Anzeige
Letzen wert in Zeile(nicht Spalte)
hary

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...
28.08.2008 21:25:00
Thread-ID: 1005592
5 Beiträge
Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Anzeige
Wert innerhalb Array suchen
David

Hallo VBAler,
wenn ich ein Array in der Form
treffer_n(n)
habe, gibt es da eine schnelle und einfache Möglichkeit zu prüfen, ob ein bestimmter Wert in diesem Array vorhanden ist, oder muss ich alle Werte per Schleife einzeln prüfen lassen?
Gruß
David
19.09.2008 08:48:14
Thread-ID: 1010894
3 Beiträge
Text verbinden und den Inhalt der Zelle ausgeben
Jörg

Hallo,
ich benötige etwas Hilfe, vermutlich für euch kein Problem:
in Zelle A1 möchte ich den Spaltenbuchstaben eintragen
in Zelle A2 möchte ich eine Zeilennummer eintragen
in Zelle A3 fehlt mir nun die Formel, mit der ich A1undA2 verbinden kann UND dann den Inhalt der Zelle aus...
19.09.2008 11:42:31
Thread-ID: 1010969
6 Beiträge
In Textfile bestimmte Zeile suchen
Pascal

In einem Textfile soll nach einer bestimmten Zeile (immer der gleiche Text) gesucht werden.
Wird dieser Text gefunden, so soll alles vom Beginn weg des Textfiles bis und mit dieser Zeile (plus zusätzlich noch die nächste Zeile) gelöscht werden.
Geht das irgendwie ?
Wenn ja, wie ?
24.09.2008 16:14:00
Thread-ID: 1012111
8 Beiträge
Zeilen autom nach Werten d. Spalte C sortieren
obelix-xxl

Hallo,
ich bitte um Unterstützung bei der Lösung mittels Makro für nachfolgende Aufgabenstellung.
Im aktuellen Tabellenblatt "Raum 1" sind in der Spalte C einer jeden Zeile ganze Zahlen von 1 bis 30 eingetragen. Diese Zeilen sollen automatisch nach Eingabe des Wertes in Spalte C sortier...
02.10.2008 09:16:11
Thread-ID: 1013794
15 Beiträge
zeile ermitteln, werte prüfen
sonja

hallo ihr lieben,
ich hoffe ihr könnt mir auch dieses mal wieder helfen.
ich möchte in einer zeile (die sich ständig ändert letzte beschriebene zeile minus 6)
in jeder spalte prüfen ob der wert kleiner als ... ist, wenn dies zutrifft sollte sich eine userform
mit einem hinweis...
10.10.2008 16:55:00
Thread-ID: 1015638
11 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
8
5
4
2
7
2
5
7
14
10
4
6
6
12
6
1
11
2
3
6
1
4
2
1
4