Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1888to1892
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
1888to1892
1888to1892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Range ohne Column?

VBA Range ohne Column?
09.07.2022 16:26:35
Joschi
Hallo Forum.
wie kann ich an einer Range wie der folgenden einfach erkennen, dass keine Spalte angegeben ist?
Mein Range: $20:$22
Gruß Joschi

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Range ohne Column?
09.07.2022 16:57:32
Sulprobil 

Function IsEntireRow(r As Range) As Boolean
IsEntireRow = r.Address = r.EntireRow.Address
End Function

AW: VBA Range ohne Column?
09.07.2022 17:02:32
Daniel
Hi
naja, "keine Spalte" gibt es nicht.
das sind alle Spalten.
zur Prüfung vielleicht so:
If Range("$20:$22").columns.count = Rows(1).Columns.Count then
Gruß Daniel
AW: VBA Range ohne Column?
09.07.2022 17:25:24
Joschi
Hallo Sulprobil, hallo Daniel.
Ich habe beide Vorschläge getestet, und beide erfüllen den gewünschten Zweck.
Mein Problem ist damit erledigt. Vielen Dank
Gruß Joschi
AW: Kleine abschließende Preisfrage
10.07.2022 01:09:03
Sulprobil
Was ist teurer?
.Count oder .Address?
Have fun,
Bernd
in welcher Währung?
10.07.2022 01:41:46
Daniel
Rechenzeit?
Anzeige
AW: Ja, Rechenzeit
10.07.2022 01:55:38
Sulprobil
nach meinen Testes ist
10.07.2022 02:14:48
Daniel
.columns.count ist schneller als .Address
wobei in Reallife die unterschiede hier keine Rolle spielen, also eher akadmischer Schwanzvergleich.
damit habe ich getestet, Kritik und Verbesserungsvorschläge an und für diese Methode sind gerne willkommen.

Sub test()
Dim x As Boolean
Dim i As Long
Const anz As Long = 10000
Dim t  As Double
Dim rng As Range
Set rng = Range("A1:Mno50000")
t = Timer
For i = 1 To anz
x = A(rng)
Next
Debug.Print Timer - t,
t = Timer
For i = 1 To anz
x = C(rng)
Next
Debug.Print Timer - t
End Sub
Function C(rng As Range) As Boolean
C = rng.Columns.Count = rng.EntireRow.Columns.Count
End Function
Function A(rng As Range) As Boolean
A = rng.Address = rng.EntireRow.Address
End Function

Anzeige
AW: Das geht genauer, denke ich
10.07.2022 09:44:37
Sulprobil
Hallo Daniel,
ich stimme Dir zu: in der Praxis sind beide Methoden so schnell, dass der Unterschied kaum jemals relevant sein wird.
Rein intuitiv dachte ich, dass .Address schneller sein muss.
Gemäß folgendem Test ist es das auch, aber lediglich zu ~12%.
Siehe anliegende Datei (ohne jegliche Gewährleistung, aber ich verwende einen aktuellen Virenscanner).
https://www.herber.de/bbs/user/154077.xlsm
JKP hat eine sehr schöne Klasse zur Performancemeesung veröffentlicht, die ich gern verwende: https://jkp-ads.com/Articles/performanceclass.asp
Ich habe .Count, .Address, und eine Basis (ohne jede Rangeprüfung, damit man den Systemoverhead sieht) gemessen.
Ich denke, dass man in der Simulationsschleife die Range ändern muss, sonst optimiert VBA die Schleife und der Erkenntnisgewinn ist Null.
Viele Grüße,
Bernd
Anzeige

301 Forumthreads zu ähnlichen Themen

Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Anzeige
VBA Datumsspalte bis zum aktuellen Tag markieren
Michael

Hallo, ich habe einiges ausprobiert aber nichts hat annährend funktioniert daher suche ich nun hier Hilfe.
Ich habe eine Tabelle wo in der Spalte A immer ein Datum steht.
In Zelle E:3 befindet sich das aktuelle Datum.
Nun möchte ich gern das in Spalte A alle Werte bis zum Tag vor de...
10.06.2009 09:13:18
Thread-ID: 1080342
2 Beiträge
Dateien Zählen mit VBA 2003 Mac
Jan

Hallo!
Wie erstellt mann einen Macro die die Anzahl an Dateien in einen Verzeichnis ermittelt. Dazu habe ich verschieden Beispiele gefunden die mit "FileSearch" arbeiten. Leider verwende ich Excel 2003 für Apple, wo dieser Funktion nicht vorhanden ist. Vielleicht kennt jemand einen Workarou...
23.06.2009 16:02:28
Thread-ID: 1083851
3 Beiträge
Anzeige
Zahlen mit VBA Aufsummieren
Beno

Hallo Leute,
habe folgende Situation:
in Tabellenbereich C5:C29 habe ich alle Zellen verknüpft mit eine andere Tabelle mit formel z.B
C5=Wert aus Q10, C6=Wert aus Q11 usw., ist immer pro Woche (Mo-SA) soweit alles ok. Nacher gebe ich die Wochenzahlen in eine zusätzliche Tabelle mit...
03.09.2009 08:15:48
Thread-ID: 1100224
9 Beiträge
VBA - Mehrere Ordner auswählen + Pfade speichern
Thomas

Hallo,
der Betreff sagt eigentlich schon alles:
ich möchte ein Dialogfenster öffnen, in dem man mehrere Ordner (nur die Ordner, nicht deren Inhalt) auswählen kann und dann deren Pfad in einem Array gespeichert haben.
Ich habe es schon mit "msoFileDialogFolderPicker" versucht, nur le...
08.10.2009 17:03:03
Thread-ID: 1108139
2 Beiträge
VBA: Text in Spalten - mehrere Spalten | Herbers Excel-Forum
Jonathan
Hallo liebe Experten,
ich bräuchte mal wieder etwas Hilfe...
In einer Tabelle stehen in einigen Spalten (jeweils ab Zeile 9 - Zeile 46) Zahlen.
Die Zellen sind als "Standart" definiert. Jedoch ist es so, dass einige Zahlen dennoch nicht als solche erkannt werden. Erst nach einem Doppelk...
05.02.2010 09:43:46
Thread-ID: 1136027
4 Beiträge
Lottozahlen mit VBA, Kontrollkästchen Frage
Niklas

Guten Tag,
ich muss einen Lottoschein erstellen.
Ich habe für díe 1-49 Zahlen jeweils Kontrollkästchen gemacht.
Nun möchte ich wissen, wie ich es machen kann, dass 6 Kästchen aktiviert werden können.. nicht mehr und nicht weniger.
Zudem würde ich gerne wissen wie ich den Kontrol...
25.02.2010 10:35:24
Thread-ID: 1141373
6 Beiträge
Zählenwenn mit 2 Bereichen mit VBA
Dietmar

Hallo zusammen,
mit einer Excelformel bekomme ich es hin, aber leider nicht mit VBA.
Wie lautet derIf-Code wenn ich 2 Bereiche darauf überprüfen möchte, ob in ihnen eine Zahl Wenn dies der Fall ist, dann soll eine msgbox darauf hinweisen.
Die Formel wäre z.B: =Zählenwenn(A2:A19;"...
12.07.2010 23:01:00
Thread-ID: 1166720
9 Beiträge

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
3
12
1
2
5
8
1
3
5
8
3
2
2
5
4
9
11
6
1
2
5
6
4
6
2