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
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


    Hallo zusammen,
    wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
    Danke
    Anzeige

    Guten Tag zusammen!
    Bitte helft mir bei folgendem Problem:
    In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
    Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...

    Guten Tag zusammen!
    Bitte helft mir bei folgendem Problem:
    In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
    Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
    Anzeige

    Halli Hallo,
    ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...

    hallo,
    ich muß eine liste erstellen. die werte unten will ich nicht immer eingeben müssen, sondern nur dort wo ein wert stehen soll ein x machen. excel soll mir dann für jedes x den wert aus der zeile 2 der gleichen spalte eintragen. mache ich in eine zelle 2 x, dann muß der wert auch 2 mal...

    Hi Leute
    Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
    CODE:
    rowbeforeinteger = 2
    Dim text As String
    text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige