Anzeige
Archiv - Navigation
760to764
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
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

spalte einfügen

spalte einfügen
07.05.2006 17:54:49
Tina
hallo,
ich habe in den spalten a-e daten.
runter bis ca 250. immer verschieden.
da die daten aus verschiedenen blättern stammen, habe sie natürlich auch verschiedene numerierungen in spalte f (dort haben die daten aus dem ursprünglichen blatt eine nummer).
ich habe nun z.b. in meinem blatt nach kopiren der daten aus den anderen blättern folgende situation.
 
 ABCDEF
1aaaaaaaaaaaaaaa1
2bbbbbbbbbbbbbbb3
3ccccccccccccccc4
4ddddddddddddddd5
5eeeeeeeeeeeeeee8
6fffffffffffffff9
7ggggggggggggggg10
8hhhhhhhhhhhhhhh12
9iiiiiiiiiiiiiii13
10jjjjjjjjjjjjjjj15
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
ich möchte nun, immer da wo die fortlaufende numerierung in spalte f unterbrochen wird, eine spalte eingefügt wird.
runter bis der letzte datensatz erreicht ist, anschliessend eine durchnumerierte spalte f.
gruss Tin@
gruss Tin@

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: spalte einfügen
07.05.2006 18:08:39
Josef
Hallo Tin@!
Probier mal!
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub ZeilenEinfuegen()
Dim lngRow As Long, lngMax As Long, lngStart As Long, lngIndex As Long
Dim intCol As Integer

intCol = 6 'Spalte 6=F - Anpassen
lngStart = 1 'Startzeile - Anpassen
lngIndex = 1
With ActiveSheet
  lngMax = Application.Max(.Range(.Cells(lngStart, intCol), .Cells(.Cells(Rows.Count, intCol).End(xlUp).Row, intCol)))
  
  For lngRow = lngStart To lngMax + lngStart - 1
    If .Cells(lngRow, intCol) <> lngIndex Then
      .Cells(lngRow, intCol).EntireRow.Insert
      .Cells(lngRow, intCol) = lngIndex
    End If
    lngIndex = lngIndex + 1
  Next
  
End With
End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
funktioniert super, danke Sepp. o.t.
07.05.2006 18:12:33
Tina
gruss Tin@
Sorry - nicht F5ed...oT
07.05.2006 18:13:50
{Boris}
Zeilenn einfügen
07.05.2006 18:12:45
{Boris}
Hi Tina,
z.B. so:
Option Explicit
Sub do_it() Dim l As Long, lastRow As Long lastRow = Cells(Rows.Count, "A").End(xlUp).Row l = 1 Application.ScreenUpdating = False Do If Cells(l, "F") <> l Then Rows(l).Insert Cells(l, "F") = l End If l = l + 1 Loop While l <= lastRow Application.ScreenUpdating = True End Sub
Grüße Boris
danke dir auch boris. o.t.
07.05.2006 18:19:21
Tina
gruss Tin@

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige