Thema Datum  Von Nutzer Rating
Antwort
25.08.2022 14:54:16 Steffi
NotSolved
25.08.2022 15:13:07 Gast20693
NotSolved
25.08.2022 16:59:42 Mase
NotSolved
25.08.2022 18:44:19 Steffi
NotSolved
25.08.2022 19:04:08 Gast01233
NotSolved
Blau Array als Block in gefilterten Bereich schreiben
25.08.2022 22:48:16 Mase
NotSolved
26.08.2022 05:50:33 Steffi
NotSolved
26.08.2022 06:21:19 ralf_b
NotSolved
26.08.2022 07:04:49 Steffi
NotSolved
26.08.2022 09:18:18 Mase
NotSolved
26.08.2022 11:55:50 Steffi
NotSolved
29.08.2022 11:21:52 Mase
NotSolved
29.08.2022 11:24:51 Steffi
NotSolved
29.08.2022 12:47:10 Mase
Solved

Ansicht des Beitrags:
Von:
Mase
Datum:
25.08.2022 22:48:16
Views:
451
Rating: Antwort:
  Ja
Thema:
Array als Block in gefilterten Bereich schreiben

Ich kenne Deine Umgebung,Deine Dateistruktur oder die Zusammensetzung Deines Arrays nicht und verlasse mich daher voll auf den Titel und meine Interpretation Deines Beitrags.



 

Wenn Du in einen gefilterten Bereich ein (zweidimensionales) Array schreiben willst, musst Du die Areas beachten.

 

Hier mal ein vereinfachtes Praxisbeispiel:

 

Ausgangstabelle:

 

 

Quellcode:

Sub Test01()

    Dim arr(1 To 3, 1 To 1) As Variant
    Dim rng                 As Excel.Range
    Dim rngInsect           As Excel.Range
    Dim i                   As Long
    
    arr(1, 1) = "x"
    arr(2, 1) = "xx"
    arr(3, 1) = "xxx"
    
    Set rng = ThisWorkbook.Worksheets(1).Range("A1:A10")
    
    rng.AutoFilter Field:=1, Criteria1:="0"
    
    Set rngInsect = Intersect(rng, rng.Offset(1, 0), rng.SpecialCells(xlCellTypeVisible))
    
    If Not rngInsect Is Nothing Then
    
        For i = 1 To rngInsect.Areas.Count
            rngInsect.Areas(i).Cells(1, 1).Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
        Next i
        
    End If
    
    rng.AutoFilter
    
    
End Sub

 

 

Ergebnis:

 

 



 

Wie gesagt, einfach eben.

Keine Fehlerbehandlung oder sonstig zu beachteneden Schnick-Schnack der zu Laufzeitfehlern führen kann.

Das kann jeder selbst besser.

 

Klar soweit?


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.08.2022 14:54:16 Steffi
NotSolved
25.08.2022 15:13:07 Gast20693
NotSolved
25.08.2022 16:59:42 Mase
NotSolved
25.08.2022 18:44:19 Steffi
NotSolved
25.08.2022 19:04:08 Gast01233
NotSolved
Blau Array als Block in gefilterten Bereich schreiben
25.08.2022 22:48:16 Mase
NotSolved
26.08.2022 05:50:33 Steffi
NotSolved
26.08.2022 06:21:19 ralf_b
NotSolved
26.08.2022 07:04:49 Steffi
NotSolved
26.08.2022 09:18:18 Mase
NotSolved
26.08.2022 11:55:50 Steffi
NotSolved
29.08.2022 11:21:52 Mase
NotSolved
29.08.2022 11:24:51 Steffi
NotSolved
29.08.2022 12:47:10 Mase
Solved