Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1396to1400
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
1396to1400
1396to1400
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen mit negativen Wert kopieren

Zellen mit negativen Wert kopieren
05.12.2014 09:00:57
Alex
Moin zusammen,
ich bin neu hier im Forum und sage somit zu aller erst einmal "Hallo an alle!" ;-)
Und ich habe natürlich auch ein kleines VBA-Problem, an dem ich mir bereits seit zwei Tagen die Zähne ausbeiße. Leider habe ich nichts im Forum und bei Google zu diesem Problem gefunden.
Es geht darum, das ich eine Möglichkeit suche, per VBA eine Spalte (F) in einer Tabelle zu durchsuchen und alle negativen Werte (z.B. -3.502,46 €) eine Zelle weiter (G) rechts einzufügen und in (F) zu löschen.
Hintergrund: Eine Exceldatei wird aus einem Finanzprogramm exportiert, aber dummerweise stehen die Soll- und Haben-Werte in der gleichen Spalte. Das führt aber beim Einlesen in einem anderen Programm zu einem Problem.
Ich hoffe, ich konnte es halbwegs verständlich erklären und bedanke mich schon einmal vielmals für Eure Mühe!
Besten Gruß,
-Alex

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen mit negativen Wert kopieren
05.12.2014 09:31:21
MCO
Hallo!
Versuchs mal damit:
Sub daten_schieben()
For Each cl In Range("F:F").SpecialCells(xlCellTypeConstants, 3) 'Auswahl Zellen in F
If cl.Value
Einzige Vorraussetzung ist bei der Auswahl der Zellen, dass es Konstanten sind. Formeln werden nicht beachtet. Zur Änderungen die "specialcells"-Option anpassen, Erläuterungen in der Excel-Hilfe.
Gruß, MCO

AW: Zellen mit negativen Wert kopieren
05.12.2014 09:51:17
Alex
Hey MCO,
auf diese Formel wäre ich im Leben nie gekommen.
Funktioniert perfekt!
Herzlichen Dank für Deine schnelle Hilfe!!!!!!!!!!!!!!
Bis dann,
-Alex

Anzeige
kannst mal testen
05.12.2014 09:32:44
Tino
Hallo,
hier mal ein Code zum testen.
Ich gehe davon aus, dass die Spalte G schon für die Daten zur Verfügung steht,
sonst muss erst eine leere Spalte eingefügt werden!
Sub Start()
Dim rng As Range
With Tabelle1 'evtl. Tabelle anpassen
'ab F2 in F1=Überschrift
Set rng = .Range("F2", .Cells(.Rows.Count, 6).End(xlUp)).Offset(, 1)
'keine Daten?
If rng.Rows(1).Row  0 Then
'Werte mit Zahlen
Set rng = rng.SpecialCells(xlCellTypeConstants, 1)
'Offset löschen
rng.Offset(, -1).Value = Empty
End If
End Sub
Gruß Tino

AW: Zellen mit negativen Wert kopieren
05.12.2014 09:36:56
yummi
Hallo Alex,
ohne deien Datei zu kennen, mal ein Versuch:

sub kopieneg
dim lletztezeile as long
dim i as long
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
for i = 1 to lletztezeile
If Cells(i, 1).Value
Anzeige

174 Forumthreads zu ähnlichen Themen

Negative Werte zaehlen, wenn
Thierry

Guten Abend
Ich möchte rausfinden wieviele negative Werte in den Zelle L4 bis L 900 sind. Dazu habe ich folgende Formel gefunden:
=ZÄHLENWENN($L$4:$L$900;"<0")
Die negativen Werte müssen aber nur dann gezählt werden, wenn in den Zellen K4 bis K 900 sich die Zahl befindet, welche...
08.12.2008 18:25:00
Thread-ID: 1031148
6 Beiträge
Anzeige
Wenn Formel einen Wert hat, dann....
Rob

Hallo miteinander!
Ich habe in einer Zelle folgende Funktion stehen:
{=INDEX(Abrechnungshistorie!$C$1:$C$100;KKLEINSTE(WENN(Abrechnungshistorie!$A$7:$A$100=$C$30; ZEILE(Abrechnungshistorie!$C$7:$C$100));1)) }
Diese Funktion möchte ich gerne mit einer "Wenn...Dann" Bedingung verknü...
25.03.2009 18:58:58
Thread-ID: 1063931
3 Beiträge
Wenn bistimmte Werte in zwei Zellen dann Zeile ..
Micha

Hallo zusammen,
habe folgendes Problem:
habe eine große Datentabelle (B1:O31407); in dieser sollen diejenigen Zeilen gelöscht werden
in denen sowohl in der Spalte B als auch in der Spalte H der Zellwert "1" ist.
steht in einer der besagten Zellen ein anderer Werte soll nichts...
14.05.2009 08:36:57
Thread-ID: 1074984
4 Beiträge
Anzeige
wenn wert kleine 0 dann
Ralf

Hallo Ich bin es noch einmal weiß jetzt nicht ob es richtig war einen neuen Beitrag zu eröffnen oder ich in dem alten hätte bleiben sollen es geht auf jeden fall um die gleiche Tabelle aber um eine andere Formel
hier die tabelle
https://www.herber.de/bbs/user/66718.xls
jetz meine...
20.12.2009 14:46:26
Thread-ID: 1125147
8 Beiträge
wenn wert anders dann | Herbers Excel-Forum
Ralf
Hallo und frohes neues
Kann mir jemand von euch helfen ? ich brauche da mal ne formel die meine Fähigkeiten komplett übertrifft .
ich versuche es mal in worten zu schreiben also
wenn wert in H15 = ist wie E15-D15-F15 dann "" wenn der wert aber anders ist dann ( E15-D15-F15 )-H15 und da...
02.01.2010 11:28:05
Thread-ID: 1126681
9 Beiträge
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
Wenn Wert in ComboBox2, dann Eintrag in TB
Josef

Hallo!
Ich würde bitte eine VBA Lösung suchen.
Wenn ein Wert in der ComboBox2 in einer UF aktiviert wird, dann soll dieser Wert in der Tabelle2!B2:B107 gesucht werden und der in der Spalte C danebenstehende Wert soll in die TextBox1 eingelesen werden.
If ComboBox2.Text = Tabelle2!B2...
09.02.2010 10:10:30
Thread-ID: 1136905
4 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
5
1
2
3
2
7
8
9
3
3
4
22
3
1
2
13
3
4
8
6
2
3
3
14
5