Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
432to436
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
432to436
432to436
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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
AW: automatischen aufrechnen...
Berai
Hallo Frank,
oder mit Formel in B1 und runterkopieren
=WENN(ZEILE()-1&lt=$A$2;ZEILE()-1;"")
Gruß
Rainer
Anzeige
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
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige