Microsoft Excel

Herbers Excel/VBA-Archiv

Makro für ISTLEER...Dann.... | Herbers Excel-Forum


Betrifft: Makro für ISTLEER...Dann.... von: Julia Schmidt
Geschrieben am: 12.11.2009 13:56:57

Hallo,
ich brächte Hilfe bei folgendem makro

Im Tabellenblatt "Datenbasis" soll in Zelle S1 die Überschrift "Abdeckung" eingefügt werden.
Anschließend soll in der Zelle S2 eine 1 eingetragen werden wenn in Spalte P 2 nichts steht
Steht in Spalte P2 irgendwas dann soll S leer bleiben.
Das dann für alle Werte in den Spalten P

Die soll bis zur letzten gefüllten Zeile gemacht werden. (prüfung letzte Zeile in Spalte A)

Kann mir da jemand helfen?

  

Betrifft: AW: Makro für ISTLEER...Dann.... von: JogyB
Geschrieben am: 12.11.2009 14:23:46

Hi.

Sub ausFuellen()
    Dim i As Long
    
    Application.ScreenUpdating = False
    With Sheets("Datenbasis")
        .Cells(1, 19).Value = "Abdeckung"
        For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
            .Cells(i, 19).Value = IIf(.Cells(i, 16).Value = "", 1, "")
        Next
    End With
    Application.ScreenUpdating = True
End Sub
Gruss, Jogy


  

Betrifft: Genial vielen Dank! von: Julia Schmidt
Geschrieben am: 12.11.2009 15:10:18

Genial vielen Dank!