Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
756to760
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
756to760
756to760
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zelle einfügen und Werte einfügen

Zelle einfügen und Werte einfügen
28.04.2006 10:03:48
detleffranz
Hallo zusammen,
wenn in meinem Excel-Sheet der Zellbereich (B100:B3106)
die Uhrzeit "24:00:00" steht sollte eine Zelle unterhalb
eine neue Zeile eingefügt werden. In die neue Zeile soll
dann immer in Spalte A = "Datum", Spalte B = "Zeit", Spalte C =
"Wert X" und Spalte D = "Wert Y" eingefügt werden. Habe weiter unten
mal einen Lösungsansatz, funktioniert aber leider nicht.
Hat jemand eine Idee ?
Gruss Detlef

Sub Zelleeinfügen()
Dim bereich As Range
Dim Zelle As Range
Set bereich = Range("b100:b3106")
For Each Zelle In bereich
If Zelle.Value = "24:00:00" Then
Zelle.Offset(1, 0).Selection.Insert Shift:=xlDown
Zelle(A).value = "Datum"
Zelle(B).value = "Zeit"
Zelle(C).value = "Wert x"
Zelle(D).value = "Wert Y"
End If
Next
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Zelle einfügen und Werte einfügen
28.04.2006 10:15:34
Matthias
Hallo Detlef,

Sub Zelleeinfügen()
Dim zeile As Long
Dim Zelle As Range
For zeile = 3106 To 100 Step -1
If Cells(zeile, 2).Value = 1 Then
Rows(zeile + 1).Insert shift:=xlDown
Cells(zeile + 1, 1).Value = "Datum"
Cells(zeile + 1, 2).Value = "Zeit"
Cells(zeile + 1, 3).Value = "Wert x"
Cells(zeile + 1, 4).Value = "Wert Y"
End If
Next
End Sub

  • 24:00:00 hat den Wert 1
  • wenn Zeilen eingefügt oder gelöscht werden, muss die Schleife immer von unter nach oben durchlaufen werden.
    Gruß Matthias
  • AW: Zelle einfügen und Werte einfügen
    28.04.2006 10:26:43
    detleffranz
    Besten Dank !
    Funktioniert.
    Gruss Detlef
    Anzeige

    301 Forumthreads zu ähnlichen Themen

    Anzeige
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige