Microsoft Excel

Herbers Excel/VBA-Archiv

Werte eingeben bei gesetzem Autofilter via VBA | Herbers Excel-Forum


Betrifft: Werte eingeben bei gesetzem Autofilter via VBA von: Gegga
Geschrieben am: 29.01.2010 13:10:48

Mahlzeit...

Mal ne kleine Frage

Habe ne Liste, mit einem gesetzen Autofilter (Mehre Zeilenab zeile 6 sind eingeblendet, nicht nur eine, z.B 6,12,14,19,26,37). Nach Ausdruck dieser Liste soll in die eingeblendeten Zellen via UF das Druckdatum (textbox) und der Sachbearbeiter (Combobox)in die eingeblendeten Zellen in Spalte I und J eingtragen werden.

Wie muss ich da vorgehen?

Vielen Dank.

Gruss Gegga

  

Betrifft: Daten in gefilterte Liste eintragen von: NoNet
Geschrieben am: 29.01.2010 13:59:40

Hallo Gegga,

hier ein Beispiel, das Daten in die gefilterte Tabelle einträgt :

Sub DatenInGefilteteListeEintragen()
    '29.01.2010, NoNet - www.excelei.de (z.Zt. Offline)
    Dim rngBereich As Range
    
    If ActiveSheet.AutoFilterMode Then 'Nur wenn Autofilter aktiviert ist !
        Set rngBereich = ActiveSheet.AutoFilter.Range
        If Not rngBereich Is Nothing Then
            On Error Resume Next    'Falls keine Daten angezeigt werden
            Set rngBereich = rngBereich.Offset(1).EntireRow.Resize(rngBereich.Rows.Count - 1). _
SpecialCells(xlCellTypeVisible)
            
            If rngBereich.Rows.Count > 0 Then
                'Intersect(rngBereich, [A:A]).Formula = "=Row()" 'Funktion =ZEILE()in Spalte A  _
eintragen
                Intersect(rngBereich, [I:I]).Value = "Test" 'Test in Spalte I eintragen
                Intersect(rngBereich, [J:J]).Value = Date   'Datum in Spalte J eintragen
            End If
        End If
    End If
    
    Set rngBereich = Nothing
End Sub
Anstatt ="Test" bzw. =Date kannst Du auch =Textbox1.Value bzw. =Combobox1.Value verwenden !

Gruß, NoNet


Beiträge aus den Excel-Beispielen zum Thema "Werte eingeben bei gesetzem Autofilter via VBA"