MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 11.01.2019, 13:41   #1
BrainStormXX
Neuer Benutzer
Neuer Benutzer
Standard VBA - Variablen Bereich markieren

Hallo zusammen

Was soll ich sagen... ich raufe mir die Haar und hab bald keine mehr.
Ich habe schon diverse Makros und diverse Kombinationen versucht, für eine Sache, die in meinen Augen anfänglich einfach erschien.

Ich habe ein Blatt einer Mappe in der ich "Fehlerarten" aufliste. Die Ergebnisse (ab Spalte F2) sind eine Zusammenfassung bzw. Aufzählung, wie häufig ein Fehler in einem anderen Blatt erwähnt wird.

Meine ersten anfänglichen Versuche haben sich darauf beschränkt die letzte benutzte Zelle zu ermitteln und anhand dieses Wertes einen Bereich zu definieren, der Kopiert werden soll.

Da das offenbar aufgrund der Formeln, die sich in der gesamten Spalte befinden, eher schwierig war, habe ich mir eine Hilfsspalte angelegt, in der alle Spalten mit einem Wert, mit dem Wert "1" gekennzeichnet werden.

Ich hoffe das ich damit das Problem ein wenig verkleinert habe.
Bis dato habe ich mit folgendem Code gearbeitet
(Problem mit dem Code: Es werden auch Zellen markiert, in denen sich kein Wert befindet)
Code:

lngLetzte = IIf(IsEmpty(Cells(Rows.Count, 8)), Cells(Rows.Count, 8).End(xlUp).Row, Rows.Count)
    Range("F2:G" & lngLetzte).Copy
Vielleicht kann mir einer von euch den Code so umstellen, dass er die Zellen zählt, die mit dem Wert 1 gekennzeichnet sind.

Ich sag schon einmal vielen vielen Dank

Gruß
Sebastian
BrainStormXX ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.01.2019, 14:41   #2
BrainStormXX
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Manchmal schlägt der Murphy doch recht hart zu.

Kurz nach dem erstellen des Posts, habe ich etwas gefunden das mein Problem gelöst hat:

Code:

Dim lngLetzte As Long
Dim Col As Range

    Sheets("Fehlerarten Berechnung").Select
            
   
   
   Application.ScreenUpdating = False
   With ActiveSheet
      Set Col = .Range("H:H")  'Anpassen
      Col.AutoFilter Field:=1, Criteria1:="<>"
      lngLetzte = Cells(1, Col.Column).End(xlDown).Row
      Col.AutoFilter
   End With
   Application.ScreenUpdating = True
    Range("F2:G" & lngLetzte).Copy
BrainStormXX ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.01.2019, 15:08   #3
Minifuzzy
MOF User
MOF User
Standard

Hallo,

mein Vorschlag wäre folgender gewesen (auch wenn ich Dein Problem nicht komplett verstanden habe):

Code:

Sub Makro1()
  'letzte verwendete Zelle in Spalte F
  Dim lastUsedRow As Long
  lastUsedRow = Range("F:F").SpecialCells(xlCellTypeLastCell).Row
  
  'alle Zellen im Bereich, die Werte enthalten
  Dim constantsRange As Range
  Set constantsRange = Range("F2:F" & lastUsedRow).SpecialCells(xlCellTypeConstants, 23)
  
  'alle Zellen im Bereich, die Formeln enthalten
  Dim formulasRange As Range
  Set formulasRange = Range("F2:F" & lastUsedRow).SpecialCells(xlCellTypeFormulas, 23)

  'Bereiche kombinieren und resultierenden Bereich markieren
  Application.Union(constantsRange, formulasRange).Select
End Sub

__________________

Gruß
Minifuzzy
Minifuzzy ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:05 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.