Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1112to1116
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
1112to1116
1112to1116
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert in Zelle um 1 erhöhen

Wert in Zelle um 1 erhöhen
Daniel
Hallo,
kann mir jemand sagen wie der VBA Code aussehen muss für folgendes Problem?!
Also ich habe in Zelle sagen wir B200 einen Wert von 100. Nun möchte ich das per Makro bei Zelle B201 mit dem Wert 1 angefangen wird und in den darunterliegenden Zellen jeweils um 1 erhöht wird, also 1,2,3... usw und zwar bis der Wert in Zelle B200 erreicht ist. (müsste in diesem Fall also bis B301 gehen)
mfg
Daniel
AW: Wert in Zelle um 1 erhöhen
26.10.2009 12:35:35
hary
Hi Daniel
eine Moeglichkeit. Wobei das loeschen von evtl. Vorhandenen nich in Code ist. 

Sub n()
Dim i As Long
For i = 201 To Cells(200, 2).Value + 200
Cells(i, 2) = i - 200
Next
End Sub

AW: Wert in Zelle um 1 erhöhen
26.10.2009 13:31:01
Daniel
Das ist schon gut, aber ich komm noch nicht ganz klar mit. Und zwar steht bei mir in der Zelle B166 eine veränderbare Zelle, sprich der Wert wird berechnet je nach Benutzereingaben aus anderne Blättern. Nun soll in B167 eine 1 stehen und immer um ein platz nach unten in der Spalte gesprungen werden, wobei der Wert um 1 erhöht wird. und zwar so lange bis die Zahl in B166 ereicht ist, kannst du vll kurz mit kommentaren im vba code erklären wo ich das eintragen muss?!
Danke im Voraus!
Anzeige
AW: Wert in Zelle um 1 erhöhen
26.10.2009 14:18:41
JogyB
Hi.
Andere Variante, die bei großen Zahlen etwas schneller ist:
Sub n()
Dim i As Long
Const myRow = 166 ' Zeile
Const myCol = 2 ' Spalte, hier B
With Cells(myRow, myCol)
' Muss eine Zahl sein
If IsNumeric(.Value) Then
' Und die muss >0 und ganzzahlig sein
If .Value > 0 And CLng(.Value) = .Value Then
With Range(Cells(myRow + 1, myCol), _
Cells(Application.Min(Rows.Count, myRow + _
Cells(myRow, myCol).Value), myCol))
.Formula = "=Row()-" & myRow
.Value = .Value
End With
End If
End If
End With
End Sub
Du mußt nur für myRow die Zeile und für myCol die Spalte (als Zahl!) eingeben.
Gruss, Jogy
Anzeige
AW: Wert in Zelle um 1 erhöhen
26.10.2009 14:36:27
Daniel
Was setz ich denn für .Value ein, ich habs mit unterschiedlichen Zahlen probiert, seh aber keinen unterschied?!
AW: Wert in Zelle um 1 erhöhen
26.10.2009 14:47:18
JogyB
Hi.
Für .Value mußt Du gar nichts einsetzen, das ist in dem Fall der Wert von B166 (Zeile 166, Spalte 2). Der Wert in der Zelle muss natürlich eine Zahl, >0 und ganzzahlig sein - einen nichtganzzahlige Anzahl an Zellen gibt es ja nicht.
Wie gesagt, nur mit den beiden Konstanten den richtigen Zellbezug herstellen, die Anzahl der einzufügenden Werte steht dann ja in der entsprechenden Zelle.
Gruss, Jogy
AW: Wert in Zelle um 1 erhöhen
26.10.2009 14:57:57
hary
Hi
teste mal diese Mappe. Tabelle1 reagiert wenn in Tabelle2 A1 die Zahl geaendert wird. Hab mir den Code von Daniel ausgeborgt ;-)
https://www.herber.de/bbs/user/65343.xls
Fuer Daniel Code Habe ich in den Code der Tabelle 1 gebracht : 

Private Sub Worksheet_Calculate()
Dim i As Long
Dim zelle As Long
Const myRow = 166 ' Zeile
Const myCol = 2 ' Spalte, hier B
zelle = Cells(Rows.Count, 2).End(xlUp).Row
If zelle = 166 Then zelle = 167
Range("B167:B" & zelle).ClearContents 'loescht alte Eintrage
With Cells(myRow, myCol)
' Muss eine Zahl sein
If IsNumeric(.Value) Then
' Und die muss >0 und ganzzahlig sein
If .Value > 0 And CLng(.Value) = .Value Then
With Range(Cells(myRow + 1, myCol), _
Cells(Application.Min(Rows.Count, myRow + _
Cells(myRow, myCol).Value), myCol))
.Formula = "=Row()-" & myRow
.Value = .Value
End With
End If
End If
End With
End Sub

gruss hary
Anzeige
sry muss heissen von JogyB ausgeliehen owT
26.10.2009 15:11:43
JogyB
.
AW: Wert in Zelle um 1 erhöhen
26.10.2009 15:31:47
Daniel
Also so nehm ich jetzt den code ;=)
Sub n()
Dim i As Long
Const myRow = 377
Const myCol = 21
With Cells(myRow, myCol)
If IsNumeric(.Value) Then
If .Value > 0 And CLng(.Value) = .Value Then
With Range(Cells(myRow + 1, myCol), _
Cells(Application.Min(Rows.Count, myRow + _
Cells(myRow, myCol).Value), myCol))
.Formula = "=Row()-" & myRow
.Value = .Value
End With
End If
End If
End With
End Sub
Allerdings soll er doch bei 0 anfangen zu zählen, wo muss ich denn das ändern?!
Vielen Dank euch allen für die Hilfe ;=)
Gruß
Daniel
Anzeige
AW: Wert in Zelle um 1 erhöhen
26.10.2009 16:03:26
JogyB
Hi.
Ich habe noch eine Konstante Startwert eingeführt, da kannst Du den nach belieben ändern.
Sub n()
Dim i As Long
Const myRow = 377
Const myCol = 21
Const startWert = -1
With Cells(myRow, myCol)
If IsNumeric(.Value) Then
If .Value > 0 And CLng(.Value) = .Value Then
With Range(Cells(myRow + 1, myCol), _
Cells(Application.Min(Rows.Count, myRow + _
Cells(myRow, myCol).Value), myCol))
.Formula = "=Row()-1-" & myRow & "+" & startWert
.Value = .Value
End With
End If
End If
End With
End Sub
Gruss, Jogy
startet so natürlich bei -1 owT
26.10.2009 16:04:09
JogyB
.
Wert in Zelle um 1 erhöhen
26.10.2009 14:32:21
Bernd
Hallo,
wenn B166 immer mit Zahl befüllt, keine Fehlerroutine-
siehe JogyB
Gruß
Bernd
Sub TT()
Dim i As Long
Dim x As Long
Dim z As Long
x = Range("B166").Value
z = x + 166
Range("B167:B1000") = ""
For i = 167 To z
Cells(i, 2) = i - 166
Next
End Sub

Anzeige

323 Forumthreads zu ähnlichen Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Anzeige
VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
x ersetzen durch wert aus bestimmter zelle
Ingolf

hallo,
ich muß eine liste erstellen. die werte unten will ich nicht immer eingeben müssen, sondern nur dort wo ein wert stehen soll ein x machen. excel soll mir dann für jedes x den wert aus der zeile 2 der gleichen spalte eintragen. mache ich in eine zelle 2 x, dann muß der wert auch 2 mal...
22.08.2008 09:08:22
Thread-ID: 1003727
5 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Makrostart wenn in Zelle was geschrieben wird
Bernd

Hallo,
wie stelle ich es an, damit ein Makro startet, sobald ich in einer bestimmten Zelle etwas schreibe?
Mein Code will irgendwie nicht so wie ich will. Der läuft ohne nonstop.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("D3") "" Then Call tabelle_kopi...
31.08.2008 11:09:00
Thread-ID: 1006152
2 Beiträge
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
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
5
3
2
4
3
16
4
5
1
5
3
2
1
4
4
6
5
30
3
4
11
8
6
10
4