Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
23.04.2024 08:59:38
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1320to1324
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
1320to1324
1320to1324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalte nach Wert größer gleich 100 durchsuchen

Spalte nach Wert größer gleich 100 durchsuchen
02.07.2013 13:03:56
Jäger
Hallo Ihr Lieben,
ich suche eine Möglichkeit per VBA Code eine Spalte nach dem ersten Wert der größer gleich 100 ist zu durchsuchen und dann 3 Spalten weiter links eine Formel einzufügen.
Problem ist, dass in den Zeilen vorher Werte stehen, die ich nicht überschreiben darf. Nur wenn Wert größer gleich 100 ist.
Gibt es da eine Möglichkeit?
Danke und Grüße
André

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

Betreff
Datum
Anwender
Anzeige
AW: Spalte nach Wert größer gleich 100 durchsuchen
02.07.2013 13:10:38
Rudi
Hallo,
Gibt es da eine Möglichkeit?
Sicher.
Einfach mit ner Schleife.
Gruß
Rudi

AW: Spalte nach Wert größer gleich 100 durchsuchen
02.07.2013 13:13:56
Jäger
Hallo Rudi,
das ist aber schön :-))
Da waren sie meine 3 Probleme VBA bescheiden,VBA bescheiden,VBA bescheiden.
Wie sieht so eine Schleife aus?
Danke und Grüße
André

AW: Spalte nach Wert größer gleich 100 durchsuchen
02.07.2013 13:19:21
Rudi
Hallo,
ich dachte bescheiden ist mehr als gar nicht ;-) 
Sub aaaa()
Dim i As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 5) >= 100 Then
'mach was
Exit For
End If
Next i
End Sub

Gruß
Rudi

Anzeige
AW: Spalte nach Wert größer gleich 100 durchsuchen
02.07.2013 13:46:44
Jäger
Hallo Rudi,
ja sooooo schlecht. :-))
Das klappt soweit, habe es mir jetzt auf Spalte 2 angepasst.
noch 2 Fragen:
1. ich würde die Schleife gerne für jede Zeile in Spalte B drehen und überall wo Wert größer gleich 100 ist die Formel eintragen.
2. Wie lege ich fest in welcher Spalte die Formel eingetragen wird.
BSP.: in Zeile B100 wird Wert größer gleich 100 gefunden jetzt möchte ich in Zelle G100 die Formel reinschreiben.

AW: Spalte nach Wert größer gleich 100 durchsuchen
02.07.2013 14:08:52
UweD
Hallo
so z.B.
Sub MIN_Größer_100()
On Error GoTo Fehler
Dim TB, i&
Dim SP%, ZE&
Set TB = Sheets("Tabelle1") 'aus bestimmtem Blatt
SP = 2 'Spalte B
ZE = 1 'ab Zeile 1
For i = ZE To TB.Cells(Rows.Count, SP).End(xlUp).Row
If TB.Cells(i, SP) >= 100 Then
TB.Range("G" & i & ":I" & i).FormulaR1C1 = "=SUM(C:C)"
End If
Next i
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Gruß UweD

Anzeige
AW: Spalte nach Wert größer gleich 100 durchsuchen
02.07.2013 14:33:00
Jäger
Hallo Uwe,
danke für die Hilfe klappt super.
1 kleines Problem habe ich noch, möchte in mehreren Spalten unterschiedliche Formeln einfügen
Also in:
G Formel1
H Formel2
K Formel3
L Formel4
usw.
Danke und Grüße
André

AW: Spalte nach Wert größer gleich 100 durchsuchen
02.07.2013 14:39:49
UweD
Hallo nochmal
...
TB.Range("G" & i).Formula = "=A1+B1"
TB.Range("H" & i).Formula = "=MIN(A:A)"
TB.Range("K" & i).Formula = "Hallo "
....
Gruß UweD

AW: Spalte nach Wert größer gleich 100 durchsuchen
02.07.2013 15:15:51
Jäger
Hallo Uwe,
vielen Dank das war des Rätsels Lösung.
Grüße
André

323 Forumthreads zu ähnlichen Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Anzeige
Makro bei Wertänderung in Bereich auslösen
Ulrich

Hallo zusammen,
kann man ein Makro starten, wenn sich in einem definierten Tabellenbereich ein Wert ändert? Wie geht das?
Danke im Voraus und Grüße,
Ulrich
19.09.2008 12:37:58
Thread-ID: 1010993
5 Beiträge
Formel gesucht: Anzahl vesch. Werte in Zellbereich
Martin

Hallo liebe Excelianer,
gibt es eine Formel, die die Anzahl verschiedener Zelleninhalte für einen Bereich ermittelt? Zum Beispiel wenn ich 15 Zellen hätte, in denen 3mal die 5 steht und 12mal die 7 steht. Da ja nur 2 verschiedene Werte in den 15 Zellen stehen, müsste also 2 herauskommen. Nu...
19.09.2008 13:25:00
Thread-ID: 1011022
4 Beiträge
UDF - pos. oder neg. Wert in ausgeblendet. Bereich
Peter

Guten Abend
Ich möchte mit Hilfe einer Funktion (z.B. yWert) abfragen, ob innerhalb einem benannten Bereich (z.B. "Zahlenteil") positive oder negative Werte in ausgeblendeten Zeilen enthalten sind. Falls dies zutrifft, sollte die Rückgabe der Tabellenname sowie die betreffenden Zelladressen...
26.09.2008 21:20:00
Thread-ID: 1012746
4 Beiträge
VBA--Zellen finden/vergleichen/kopieren
Christian

Hallo
einen Beispieldatei ist anbei!!
Bisher konnte ich mit folgendem Code Zellinhalte "täglich" teilen und in neue Zellen kopieren.
Sheets("179").Select Range("B255").End(xlUp).Offset(1, 0).Select ActiveCell.FormulaR1C1 = "=TRIM(LEFT('tägliche Statistik'!R12C6,FIND(""/"",'täglic...
07.10.2008 10:15:00
Thread-ID: 1014634
3 Beiträge
@viele meinungen: spaltenangaben in vba
Herbert

hallo,
wie macht ihr denn das: wenn ich in einem vba-code spaltenangaben mache, und in der tabelle dann spalten einfügen oder entfernen muss, muss ich alle spaltenangaben im code manuell ändern. und wehe, ich vergesse das, dann stimmt das ganze makro nicht mehr.
beispiel:
With Sheet...
08.10.2008 19:41:00
Thread-ID: 1015156
6 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
3
1
4
7
2
4
3
3
2
5
4
4
4
1
25
1
3
5
1
15
4
2
11
4
6