Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
432to436
432to436
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

automatischen aufrechnen...

Forumthread: automatischen aufrechnen...

automatischen aufrechnen...
29.05.2004 09:33:29
Frank
hallo,
so eine frage noch...
also ich ahbe in zelle
A1= 0
und in zelle
A2 = 999
nun möchte ich das
in den zellen
B1 bis B1000 die einzelnen werte angezeigt werden
beispiel:
B1 = 0
B2 = 1
B3 = 2
B1000 = 999
also fortlaufen so wie die angaben in a und a2 es vorgeben
besten dank vorab
frank
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: automatischen aufrechnen...
29.05.2004 09:45:06
FloGo
Guten Morgen Frank
Mit dem folgenden Code sollte es klappen:

Sub zahlen()
Dim a As Long, b As Long
With Sheets("Tabelle1") 'Name ändern
a = .Cells(1, 1)
b = .Cells(2, 1)
For i = a To b
.Cells(i + 1, 2) = i
Next i
End With
End Sub

Du musst noch den Namen des Tabellenblattes ändern!
Hoffe ich konnte dir helfen!
FloGo
Anzeige
AW: automatischen aufrechnen...
29.05.2004 11:17:52
Frank
hallo,
hat leider nicht funktioniert...
evtl hab ich es falsch beschrieben..
also...
ich möchte wenn ich in spalte
C5 = 35000
und in spalte
c6 = 35999
da in spalte
c11 bis c1010
die zahlen automatisch eingebaut werden
c11= 35000
c12= 35001
c1010= 35999
wenn ich nun in c5=1000 schreibe
und in c6 = 1999 sollen sich die zahlen automaitsch mitändern
bin leider nicht so fit das ich mit VBA klarkommt, sorry
anfänger eben ;))
gruss
frank
Anzeige
AW: automatischen aufrechnen...
29.05.2004 09:47:33
GraFri
Hallo


Sub Nummerieren()
Dim n       As Long
Dim x       As Long
  With Worksheets("Tabelle1")
    .Range("B:B").ClearContents
    x = 1
    If IsNumeric(.[A1]) And IsNumeric(.[A2]) Then
        For n = .[A1].Value To .[A2].Value
            .Cells(x, 2) = n + 1
            x = x + 1
        Next n
    End If
  End With
  
End Sub


Mit freundlichen Grüßen, GraFri
Anzeige
AW: automatischen aufrechnen...
29.05.2004 10:50:53
frank
hallo,
hat leider nicht funktioniert...
evtl hab ich es falsch beschrieben..
also...
ich möchte wenn ich in spalte
C5 = 35000
und in spalte
c6 = 35999
da in spalte
c11 bis c1010
die zahlen automatisch eingebaut werden
c11= 35000
c12= 35001
c1010= 35999
wenn ich nun in c5=1000 schreibe
und in c6 = 1999 sollen sich die zahlen automaitsch mitändern
bin leider nicht so fit das ich mit VBA klarkommt, sorry
anfänger eben ;))
gruss
frank
Anzeige
AW: automatischen aufrechnen...
Berai
Hallo Frank,
oder mit Formel in B1 und runterkopieren
=WENN(ZEILE()-1&lt=$A$2;ZEILE()-1;"")
Gruß
Rainer
AW: automatischen aufrechnen...
29.05.2004 10:31:18
Frank
hallo,
hat leider nicht funktioniert...
evtl hab ich es falsch beschrieben..
also...
ich möchte wenn ich in spalte
C5 = 35000
und in spalte
c6 = 35999
da in spalte
c11 bis c1010
die zahlen automatisch eingebaut werden
c11= 35000
c12= 35001
c1010= 35999
wenn ich nun in c5=1000 schreibe
und in c6 = 1999 sollen sich die zahlen automaitsch mitändern
bin leider nicht so fit das ich mit VBA klarkommt, sorry
anfänger eben ;))
gruss
frank
Anzeige
AW: automatischen aufrechnen...
29.05.2004 11:35:09
GraFri
Hallo


Private Sub Worksheet_Change(ByVal Target As Range)
Dim n       As Long
Dim x       As Long
On Error GoTo Fehler
Application.EnableEvents = False
If Target.Row <> 5 And Target.Row <> 6 Then GoTo Fehler
If Target.Column <> 3 Then GoTo Fehler
  
  With Worksheets("Tabelle1")
    .Range("C11:C65536").ClearContents
    x = 1
    If IsNumeric(.[C5]) And IsNumeric(.[C6]) Then
        For n = .[C5].Value To .[C6].Value - 1
            .Cells(10 + x, 3) = n + 1
            x = x + 1
        Next n
    End If
  End With
Fehler:
Application.EnableEvents = True
End Sub


Mit freundlichen Grüßen, GraFri
Anzeige
AW: automatischen aufrechnen...
29.05.2004 12:14:08
Frank
danke...
geht subba
gruss
frank
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige