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

fehlende Werte übertagen

fehlende Werte übertagen
15.02.2004 10:41:56
Dani
Hallo Excelfreunde
Hab da ein grösseres Problem
Auf Tabelle 1 sind verschieden Werte in Spalte C eingetragen. Z.B c1 = 100; c2 = 101; c3 = 103 u.s.w.
Nun sollte es mir in Tabelle 2 in Spalte C die fehlenden Werte eintragen, in meinem Beispiel wäre das 102 . Dieser Wert sollte in Spalte c1 eingetragen werden.Der zweite fehlende Wert in C2 u.s.w
Solche Werte habe ich auf Tabelle 1 von den Spalten C – AG. Alle fehlenden Werte sollten dann auf der richtigen Spalte in Tabelle 2 angezeigt werden. Also fehlende Werte Tabelle1 Spalte C in Tabelle 2 Spalte C eintragen und fehlende Werte Tabelle1 Spalte D in Tabelle 2 Spalte D eintragen. u.s.w.
Danke Tausendmal, habs lange versucht erhalte aber immer wieder falsche Werte oder habe mit zu vielen Sprungmarken ein riesen flimmern auf dem Kasten.
Dani

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

Betreff
Datum
Anwender
Anzeige
AW: fehlende Werte übertagen
15.02.2004 10:54:24
Beni
Hallo Dani,
sind die Zeilen identisch, wenn ja, dann kopiere die ganze Spalte hinüber, andernfalls braucht Du einen Schlüssel, das heist, Excel muss die identischen Datensätze erkennen.
Gruss Beni
AW: fehlende Werte übertagen
15.02.2004 11:06:42
Nepumuk
Hallo Dani,
so lange es sich um Ganzzahlen handelt, so:

Option Explicit
Public Sub suchen()
Dim intSpalte As Integer, lngZeile As Long, lngfehlt As Long
Application.ScreenUpdating = False
With Worksheets("Tabelle1")
For intSpalte = 3 To 33
For lngZeile = 2 To .Cells(65536, intSpalte).End(xlUp).Row
If .Cells(lngZeile, intSpalte) - 1 <> .Cells(lngZeile - 1, intSpalte) Then
For lngfehlt = .Cells(lngZeile - 1, intSpalte) + 1 To .Cells(lngZeile, intSpalte) - 1
Call uebertragen(intSpalte, lngfehlt)
Next
End If
Next
Next
End With
Application.ScreenUpdating = True
End Sub
Private Sub uebertragen(intSpalte As Integer, lngfehlt As Long)
Dim lngfreieZeile As Long
With Worksheets("Tabelle2")
If Trim(.Cells(1, intSpalte)) = "" Then lngfreieZeile = 1 Else lngfreieZeile = .Cells(65536, intSpalte).End(xlUp).Row + 1
.Cells(lngfreieZeile, intSpalte) = lngfehlt
End With
End Sub


Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige