Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Spalte A durchsuchen, wenn dann sonst....

Spalte A durchsuchen, wenn dann sonst....
28.07.2004 10:15:35
Marc
hi,
folgendes will ich realisieren.
Haus Nummer
05 0001
05 0002
01 0001
02 0001
01 0002
02 0002
05 0003
....
Also ich will prüfen, was in Spalte A steht und dann in Abhängigkeit davon unter Nummer eine fortlaufende 4 stellige Nummer haben.
Steht aber in der Spalte "HAus" nix, dann darf auch keine Null oder sowas in der Spalte Nummer stehen!!
Wie kann ich das tun?
Marc
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalte A durchsuchen, wenn dann sonst....
28.07.2004 10:58:43
Roland
Hallo Marc,
eine VBA-Lösung könnte so aussehen:

Sub ergaenzen()
Dim i As Integer, j As Integer, k As Integer
For i = 2 To Range("A65536").End(xlUp).Row
k = 1
For j = 2 To Range("A65536").End(xlUp).Row
If Cells(i, 1) = "" Then Exit For
If Cells(i, 1) = Cells(j, 1) Then
With Cells(j, 2)
.Value = k
.NumberFormat = "0000"
End With
k = k + 1
End If
Next
Next
End Sub

Gruß Roland
Anzeige
dankeeeeeeeee!!
Marc
dankeeeeeeeeeeeeee!!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige