Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 18:50:53
Fehlermeldung bei Code - Excel speichern mit Bez. aus Zelle
16.04.2024 17:18:01
Projektplan-Tabelle oder Gantt ohne Balken
16.04.2024 17:05:25
formatierten Text direkt in Zelle einfügen
16.04.2024 16:47:14
Wörter in verschiedenen Zellen suchen und Wert zurückgeben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1448to1452
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1448to1452
1448to1452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

mit VBA nur bestimmte Anzahl von gefilterter Werte

mit VBA nur bestimmte Anzahl von gefilterter Werte
07.10.2015 14:47:26
gefilterter
Hallo liebe Profis,
ich habe folgendes Problem: ich filtere per VBA eine Liste, kopiere dann die gefilterten Werte und übertrage sie in eine andere Liste.
wie kann ich dem Code klarmachen, dass er, wenn mehr als 10 Werte gefiltert wurden, nur die 10 ersten markiert / kopiert werden sollen? (wg. limitierter Zeilenzahl in der Zieltabelle)
Da die gefilterten Werte Text sind, geht kein Top 10...
Ulrike

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
mit .Resize(10,) o.T.
07.10.2015 20:21:46
Sepp
Gruß Sepp

AW: mit .Resize(10,) o.T.
11.10.2015 14:09:08
u_hoernchen
Hallo Sepp,
danke erst einmal für den Tipp, leider funktioniert er nicht bei gefilterten Listen... hast Du noch eine anderen Idee?
ggf. müsste ich die gefilterten Werte irgendwo zwischenparken und dann resize machen?
Ulrike

AW: Maximal 10 Gefilterte
11.10.2015 14:56:28
Gerd
Hallo Ulrike! 
Sub a()
Dim lngRow As Long, lngCt As Long
Dim Q As Range
With Tabelle1 'Blatt mit Autofilter
Set Q = .AutoFilter.Range
For lngRow = Q.Row + 1 To Q.Row + Q.Rows.Count - 1
lngCt = lngCt - Not .Rows(lngRow).Hidden
If lngCt = 10 Then Exit For
Next
.Range(.Rows(Q.Row + 1), .Rows(lngRow)).Copy Tabelle2.Cells(2, 1) 'Zielzelle
End With
End Sub
Gruß Gerd

Anzeige
AW: mit .Resize(10,) o.T.
11.10.2015 19:35:31
Sepp
Hallo Ulrike,
dann so.
' **********************************************************************
' Modul: Modul1  Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub firstTen()
Dim rng As Range, rngC As Range, rngSource As Range, rngTarget As Range

On Error GoTo ErrorHandler

Set rngSource = Tabelle1.AutoFilter.Range 'Ausgangstabelle - Anpassen!
Set rngTarget = Tabelle2.Range("A2")      'Zielbereich     - Anpassen!

With rngSource
  For Each rng In .Columns(1).Cells
    If rng.Row > .Cells(1, 1).Row Then
      If Not rng.EntireRow.Hidden Then
        If rngC Is Nothing Then
          Set rngC = rng
        Else
          Set rngC = Union(rngC, rng)
          If rngC.Count = 10 Then
            rngC.EntireRow.Copy rngTarget
            Exit For
          End If
        End If
      End If
    End If
  Next
End With

ErrorHandler:

With Err
  If .Number <> 0 Then
    MsgBox "Fehler in Prozedur:" & vbTab & "'firstTen'" & vbLf & String(60, "_") & _
      vbLf & vbLf & IIf(Erl, "Fehler in Zeile:" & vbTab & Erl & vbLf & vbLf, "") & _
      "Fehlernummer:" & vbTab & .Number & vbLf & vbLf & "Beschreibung:" & vbTab & _
      .Description & vbLf, vbExclamation + vbMsgBoxSetForeground, _
      "VBA - Fehler in Prozedur - firstTen"
    .Clear
  End If
End With

On Error GoTo 0

Set rng = Nothing
Set rngC = Nothing
Set rngSource = Nothing
Set rngTarget = Nothing
End Sub

Gruß Sepp

Anzeige
AW: mit .Resize(10,) o.T.
14.10.2015 11:05:45
u_hoernchen
wow, danke, das gehe ich jetzt mal testen.
ULrike

330 Forumthreads zu ähnlichen Themen

Summen in bestimmte Zeilen
Thomas

Hallo,
ich suche eine sicherlich einfache Möglichkeit Summen in einer bestimmten Zeile bilden zu lassen. Das Problem ist das die Bereiche unterschiedlich groß sind.
Zur besseren Erläuterung habe ich eine Bsp-Datei angehängt.
Vielen Dank!
MfG Tom
Die Datei https://www.herber....
27.08.2008 14:19:00
Thread-ID: 1005088
13 Beiträge
Anzeige
Nur sichtbare Zellen addieren (Spezialfall)
Nicolas

Hallo Zusammen
Ich möchte gern nur die Werte in sichtbaren Zellen addieren. Mit der Nettosummenformel geht das aber nicht, weil bei meiner Problemstellung es kein zusammenhängender Bereich ist, sondern die Werte in Zellen der Spalten A, C, E, G... stehen.
Kann dieser VBA-Code evtl. an...
04.11.2008 14:06:00
Thread-ID: 1021622
6 Beiträge
Makro nur in bestimmten Zellen
TomTom

Hi,
der folgende Code soll in der Spalte Q das Datum umformatieren. Nun habe ich aber auch in der Spalte Q auch leere Zellen drin und der Code schreibt dann in die leeren Zellen immer 01.01.1900 rein, obwohl sie eigentlich leer bleiben sollen.
Wie kann man den Code ändern, dass leere Ze...
13.11.2008 08:56:51
Thread-ID: 1024041
5 Beiträge
Anzeige
Bestimmte Zellen addieren
Willi

Mahlzeit allerseits,
ich möchte folgendes Addieren.
Beginnend In V6 und dann jede siebte Zelle in Spalte V.
V6+V13+V20 usw. bis zum Ende des Tabellenblattes, es kommt
aber zwischendurch vor, das sich Text bzw. Symbole in den
Zellen dazwischen befinden.
Wie kann ich am be...
15.02.2009 11:48:00
Thread-ID: 1050858
5 Beiträge
Ergebnis auslesen und in andere Spalte übertragen
Alex

Hallo,
Kann mir jemand bei folgendem Problem helfen:
Ich habe drei Spalten A, B, C.
In Spalte A steht in wenigen Zellen etwas drin und sehr viele Zellen sind leer. In Spalte B wird die Anzahl leerer Zellen der Spalte A gezählt und jedes Mal wenn in A etwas drin steht, beginnt er mit...
17.03.2009 08:16:28
Thread-ID: 1060992
5 Beiträge
Spalte A und E aus allen Blätern zusammenkopieren
Mindjogger

Servus,
ich möchte aus einer Excel Datei aus allen darin enthaltenen Blättern jeweils die Spalte A und E in eine neue Excel Datei auf ein Sheet kopieren.
Oder noch genauer:
ich möchte aus einer Excel Datei aus allen darin enthaltenen Blättern jeweils ein Schlüsselwort (unique) als...
26.03.2009 17:01:20
Thread-ID: 1064329
4 Beiträge
Spalten mit Makro nach Vorgabe ein und ausblenden
Christoph

Hallo,
will mit Hilfe eines Makros eine bestimmte Anzahl an Spalten ein- bzw. ausgeblendet haben. Habe selbiges mal für Zeilen selbst programmiert:
Sub Zeilenausblenden() Rows("9:209").Hidden = True Rows("9:" & (9 + Range("A4").Value)).Hidden = False End Sub
Für Spalten klapp...
09.04.2009 14:44:26
Thread-ID: 1068032
3 Beiträge
Nur bestimmte Werte auslesen
Nic

Hallo zusammen,
ich versuche Zahlen in einer ComboBox 1-10, die mit jeweiligen Beschreibung versehen sind
z.B. 4 (es handelt sich hierbei um Missmanagement), 5 (Wasserball macht Spass) je nach Wahl in Zellen auszulesen. Dabei möchte ich nicht den Befehl benutzen
Private Sub ComboB...
17.04.2009 22:16:22
Thread-ID: 1069409
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
12
5
5
4
12
4
4
3
2
5
8
1
2
1
4
1
5
3
2
6
5
7
3
4
20