Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1264to1268
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
1264to1268
1264to1268
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

wenn dann formel mit vba

wenn dann formel mit vba
Thomas
Hallo zusammen,
ich möchte es umgehen, dass in Spalte C eine Formel steht, es soll dort nur der Wert stehen.
Meine Formel in Spalte C sieht jetzt so aus:
=WENN(A10="";"";C9+1) und runtergezogen bis 2000
Kann ich das mit VBA so lösen, dass ich in der Spalte C dann nur den Wert 1,2,3,4,5 usw. stehen habe?
Vielen Dank im Voraus
Gruß
Thomas

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: wenn dann formel mit vba
24.05.2012 10:47:26
Marc
Moin!
Probier´s mal damit 
Sub formelersatz()
For i = 10 To 2000
Cells(i, 3) = IIf(Cells(i, 1) = "", "", Cells(i, 9) + 1)
Next i
End Sub
Gruß, MCO
AW: wenn dann formel mit vba
24.05.2012 10:59:04
Thomas
Hallo MCO,
läuft leider nicht in meiner Mappe nicht.
Ich habe es auch in einer neuen Datei versucht, da lief es auch nicht.
Gruß
Thomas
AW: wenn dann formel mit vba
24.05.2012 10:52:35
Reinhard
Hallo Thomas, 
Sub tt()
Range("C10").Value = 1
Range("C10").DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
Step:=1, Stop:=2000, Trend:=False
End Sub

Gruß
Reinhard
AW: wenn dann formel mit vba
24.05.2012 10:57:35
Daniel
Hallo Thomas,
ich würde das in eine For...Next-Anweisung einbauen und über einen Commandbutton auf der Tabelle
auslösen lassen.
Hast du ggf. eine Beispieltabelle?
Grüße, Daniel
Bsp. anhand deiner Vorgaben, nach einer leeren Zelle in Spalte A wird in C wieder mit 1 begonnen,
Beispieldatei wäre hilfreich... 

Sub Formel()
Dim i As Integer
For i = 10 To 2000
With Tabelle1 'musst du auf deine ändern
If Not .Cells(i, 1).Value = "" Then
.Cells(i, 3).Value = .Cells(i - 1, 3).Value + 1
Else
.Cells(i, 3).Value = ""
End If
End With
Next i
End Sub

Anzeige
AW: wenn dann formel mit vba
24.05.2012 11:06:21
Daniel
... kleiner Denkfehler, hatte übersehen dass mit C9 hochgezählt werden soll.
so müsste es funktionieren...

Sub Formel()
Dim i As Integer
For i = 10 To 2000
With Tabelle1 'musst du auf deine ändern
If Not .Cells(i, 1).Value = "" Then
.Cells(i, 3).Value = .Cells(9, 3).Value + 1
Else
.Cells(i, 3).Value = ""
End If
End With
Next i
End Sub
Grüße, Daniel
AW: wenn dann formel mit vba
24.05.2012 11:06:57
Thomas
Hallo zusammen,
danke für die Vorschläge, ich bekomme es allerdings mit keinem Vorschlag hin.
Ich habe mal eine Beispieldatei angehängt.
Danke für die Mühe!
https://www.herber.de/bbs/user/80279.xlsx
Gruß
Thomas
Anzeige
AW: wenn dann formel mit vba
24.05.2012 11:12:42
Daniel
Hallo Thomas,
wann soll in deinem Beispiel die 7 eingestellt werden? Nach Eingabe, oder startest du die Routine?
Die bisherigen Vorschläge sind so dargestellt dass der Bereich von Zeile 10 bis 2000 durchgelaufen
wird, du aber die Routine starten musst!
Grüße, Daniel
AW: wenn dann formel mit vba
24.05.2012 11:22:25
Reinhard
Hallo Thomas,
in das Modul von Tabelle1: 

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A10:A2000")) Is Nothing Then Exit Sub
Range("C10:C2000").Formula = "=IF(A10="""","""",Max($C$9:C9)+1)"
Range("C10:C2000").Value = Range("A10:A2000").Value
End Sub

Gruß
Reinhard
Anzeige
AW: wenn dann formel mit vba
24.05.2012 11:36:35
Matze,Matthias
Moin Zusammen,
Reinhards code benutzen ohne die letzte Zeile vom Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A10:A2000")) Is Nothing Then Exit Sub
Range("C10:C2000").Formula = "=IF(A10="""","""",Max($C$9:C9)+1)"
End Sub
somit nur Zahlen in Spalte C
Matze
AW: wenn dann formel mit vba
24.05.2012 11:43:51
Thomas
Danke Euch allen....mit dem unten stehendem Code hat es geklappt
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A10:A2000")) Is Nothing Then Exit Sub
Range("C10:C2000").Formula = "=IF(A10="""","""",Max($C$9:C9)+1)"
End Sub

Anzeige
AW: wenn dann formel mit vba
24.05.2012 11:48:53
Reinhard
Hallo Thomas,
du wolltest doch keine Formeln in C sehen? Mit dem nachfolgenden Code siehst du keine.
Ich hatte einen Fehler drinnen, danke Matze, der ist jetzt raus... 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A10:A2000")) Is Nothing Then Exit Sub
Range("C10:C2000").Formula = "=IF(A10="""","""",Max($C$9:C9)+1)"
Range("C10:C2000").Value = Range("C10:C2000").Value
End Sub

Gruß
Reinhard
mein bescheidener Vorschlag...
24.05.2012 12:00:09
robert
Option Explicit 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lz%
lz = Cells(Rows.Count, 1).End(xlUp).Row
If Cells(lz, 1)  "" Then
Cells(lz, 3) = Cells(lz - 1, 3) + 1
End If
End Sub

Gruß
robert
Anzeige

345 Forumthreads zu ähnlichen Themen

"Wenn Zeit > 17.30 Uhr dann"
Susanne99

Hallo,
wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
Gruß
Susanne
14.09.2008 23:24:58
Thread-ID: 1009640
6 Beiträge
Anzeige
Wenn Formel mit Spalte
Maris

Hi zusammen,
ist das möglich, dass ich eine Wenn-Formel auf eine Spalte und eine Zelle in der Zeile beziehe? Bsp.:
Tabelle A B C Ergebnis ERM VOLL OHNE 1 x ERM 2 x...
05.11.2008 16:30:00
Thread-ID: 1021984
6 Beiträge
Wenn Funktion mit *
Stan

Hallo,
Ich habe eine WENN Funktion eingebaut die prüft Inhalt G2 und dann multipliziert andere Zellen.
Beispiel ==WENN(G2="A12";M2*4;WENN(G2="B12";M2*2;"Fehler")). Es kommen verschiedene Werte nach A und B vor (A12, A22, A27 usw.)
Kann ich nur erste Stelle Abfragen und die nächsten...
21.11.2008 13:27:00
Thread-ID: 1026711
3 Beiträge
Anzeige
Wenn-Formel mit 12 Bedingugen
Lars

Hallo.
Ich habe eine Frage zur Wenn-Formel. Ich möchte in Zelle A3 einen Wert ausgelesen bekommen.
Wenn A1 = D1 dann Wert aus D3
Wenn A1 = F1 dann Wert aus F3
usw.
Insgesamt sind es 12 bedingungen. Die Spalten liegen nicht nebeneinander.
10.12.2008 12:51:00
Thread-ID: 1031660
4 Beiträge
WENN Funktion mit mehr als 8 Bezügen
AcJoker

Hallo,
ich versuche eine Exceltabelle zu erstellen bei der in Spalte A etwas steht das 20 Verschieden Werte annehmen kann.
In Spalte B hätte ich gerne im Bezug auf Spalte A einen Wert stehen.
Im Hintergrund z.B. auf AA und AB gibt es eine "Übersetzung" der 20 möglichen Werte von Spa...
03.01.2009 16:13:58
Thread-ID: 1036563
6 Beiträge
Wenn Funktion mit mehreren Argumenten
Britta

Hallo Zusammen,
im moment steh ich total aufm Schlauch, ich habe mit Funktionen lange nicht gearbeitet und bekomme es grade nicht so recht hin.
Also hier das Ding: ich habe eine Tabelle in der in B2 eine Eingabe erfolgt, diese kann nur 16 oder 18 sein, sollte es anders sein, soll ein F...
07.03.2009 09:41:28
Thread-ID: 1057522
11 Beiträge
wenn dann funktion
jannis

Hallo zusammen
wäre super wenn mir einer weiterhelfen könnte!
3 lösungen bräuchte ich für folgende berechnungen
1.Beispiel
wenn das Ergebniss gößer als das Ziel dann 1 ; wenn das Ergebniss kleiner dann -1
wenn gleich bleibend dann 0
2. Beispiel (ich weis nicht ob man hi...
09.03.2009 15:02:36
Thread-ID: 1058181
22 Beiträge
Username und Uhrzeit mit Wenn-Dann?
Mario

Hallo zusammen,
ich habe schon so Einiges in Richtung Usernamen ermitteln usw. gelesen, bin aber nicht in der Lage, die Codes auf mein Problem hin anzupassen. Deshalb erhoffe ich mir nun hier Hilfe.
Wir haben im Team eine "offene-Punkte-Liste.xls", in die entsprechende Daten eingetragen...
30.06.2009 18:10:03
Thread-ID: 1085453
4 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
8
5
2
10
3
5
10
21
3
4
1
23
2
14
11
2
6
40
16
2
1
8
5
2