Automatisches Ausfüllen

Bild

Betrifft: Automatisches Ausfüllen
von: Peter
Geschrieben am: 17.06.2015 08:17:39

Guten Morgen,
ich benötige wieder einmal Hilfe von den Excelspezialisten.
Es besteht eine Tabelle mit mehreren Spalten. In Spalte A sind folgende Werte:
Spalte A
Konto-ID:
Gesamt
Konto-ID:
Konto-ID:
Gesamt
Gesamt
Konto-ID:
Gesamt
Die Liste ist sehr lang. Es sollen jeweils in die leeren Zellen die passenden Werte eingefügt werden. Wenn 2xKonto-ID: dann dazwischen Gesamt, wenn 2xGesamt dann dazwischen Konto-ID:
Wie kann ich das mit Makro automatisch durchführen.
Besten Dank für Eure Hilfe.
Gruss Peter

Bild

Betrifft: AW: Automatisches Ausfüllen
von: Daniel
Geschrieben am: 17.06.2015 09:44:52
Hi

Sub test()
With Range("A:A")
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = _
        "=If(R[-1]C=""Gesamt"",""Konto-ID:"",IF(R[-1]C=""Konto-ID:"",""Gesamt"",""""))"
    .Formula = .Value
End With
End Sub
gruß Daniel

Bild

Betrifft: AW: Automatisches Ausfüllen
von: Peter
Geschrieben am: 17.06.2015 10:08:05
Hallo Daniel,
besten Dank für Deine Hilfe.
Habe das Makro abgeändert auf Range A2:A12 und die Datenreihe ab A2 eingefügt.
Das Ergebnis:
Konto-ID
Konto-ID
Gesamt
Konto-ID:
Gesamt
Konto-ID:
Gesamt
Konto-ID
Gesamt
Konto-ID:
Gesamt
Fehler: die erste leere Zelle nach dem ersten Konto-ID bleibt leer. Der Rest funktioniert.
Kannst Du mir helfen?
Gruss Peter

Bild

Betrifft: AW: Automatisches Ausfüllen
von: Daniel
Geschrieben am: 17.06.2015 10:42:38
vielleicht ist die Zelle nicht leer, sondern enthält ein Leerzeichen oder den Text "Leerstring"?
ohne die Datei zu kennen ist da nur schwer was zu zu sagen.
Ratespiele mache ich nur mit, wenns auch was zu gewinnen gibt.
Gruß Daniel

Bild

Betrifft: AW: Automatisches Ausfüllen
von: Peter
Geschrieben am: 17.06.2015 10:44:20
Hallo Daniel,
habe die Sache nochmals geprüft. Fehler liegt bei mir. Konto-ID ist ohne :.
Dein Makro läuft einwandfrei. Nochmals besten Dank und einen schönen Tag.
Gruss Peter

Bild

Betrifft: AW: Automatisches Ausfüllen
von: Peter
Geschrieben am: 17.06.2015 10:08:41
Hallo Daniel,
besten Dank für Deine Hilfe.
Habe das Makro abgeändert auf Range A2:A12 und die Datenreihe ab A2 eingefügt.
Das Ergebnis:
Konto-ID
Konto-ID
Gesamt
Konto-ID:
Gesamt
Konto-ID:
Gesamt
Konto-ID
Gesamt
Konto-ID:
Gesamt
Fehler: die erste leere Zelle nach dem ersten Konto-ID bleibt leer. Der Rest funktioniert.
Kannst Du mir helfen?
Gruss Peter

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Automatisches Ausfüllen"