Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 19:22:16
Von exceltabelle in word per steuerelement temarker
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
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1572to1576
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
1572to1576
1572to1576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten markieren mit vba Columns(1,5,7).Select

Spalten markieren mit vba Columns(1,5,7).Select
10.08.2017 08:39:31
Dasha
Hallo Leute,
ich habe nur eine kurze Frage.
Gibt es eine Möglichkeit Spalten (1,5,7) mit dem Befehl Columns(1, 5, 7).Select zu markieren?
Liebe Grüße!
Dasha

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Range("A:A,E:E,G:G").Select (owT)
10.08.2017 09:02:25
EtoPHG

AW: Range("A:A,E:E,G:G").Select (owT)
10.08.2017 09:23:25
Dasha
Befehl funktioniert nicht.
iCh brauchte das mit columns und nicht range
aha, darum also VBA gut ;-) (owT)
10.08.2017 09:57:08
EtoPHG

Daumen hoch, gefällt mir ;-) (owT)
10.08.2017 10:14:03
Martin
Hier mit Nummern, so wie Du es möchtest
10.08.2017 09:23:28
lupo1 

Sub SpaltenNachNummerlisteSelektieren()
SpZ = "1,5,7" 'hier würde man stattdessen ein Argument verwenden
Arr = Split(SpZ, ",")
For Each i In Arr
SpB = SpB & "," & Chr(i + 64) & ":" & Chr(i + 64)
Next
Range(Mid(SpB, 2, 999)).Select
End Sub

was bei z.B. Spalte(1,5,50) oder(1,5,35) ;-) owT
10.08.2017 09:37:24
Matthias
berechtigter Einwand
10.08.2017 09:49:46
lupo1 

Sub SpaltenNachNummerlisteSelektieren()
SpZ = "27,29,53"
Arr = Split(SpZ, ",")
For Each i In Arr
j = Evaluate("=SUBSTITUTE(ADDRESS(1," & i & ",4),1,)")
SpB = SpB & "," & j & ":" & j
Next
Range(Mid(SpB, 2, 999)).Select
End Sub

Anzeige
AW: Range("A:A,E:E,G:G").Select (owT)
10.08.2017 09:25:22
Matthias
Bitte keine versteckte doppelte Werbung für einen Haushaltsgerätehersteller ";-);-)"
GetColumns(1, 3, 5).Select
10.08.2017 09:53:39
Martin
Hallo Dasha,
wie wäre es damit:
Sub Beispiel()
GetColumns(1, 3, 5).Select
End Sub
Function GetColumns(ParamArray arrCol() As Variant) As Range
Dim i As Integer, rngCols As Range
For i = 0 To UBound(arrCol)
If i = 0 Then
Set rngCols = Columns(arrCol(i))
Else
Set rngCols = Application.Union(rngCols, Columns(arrCol(i)))
End If
Next
Set GetColumns = rngCols
End Function
Viele Grüße
Martin
Sogar so geht es: GetColumns(1, "E:E", 7).Select
10.08.2017 11:22:52
Martin
Mir ist erst jetzt aufgefallen, dass so auch "Mischangaben" möglich sind:
Sub Beispiel()
GetColumns(1, "E:E", 7).Select
End Sub


Function GetColumns(ParamArray arrCol() As Variant) As Range
Dim i As Integer, rngCols As Range
For i = 0 To UBound(arrCol)
If i = 0 Then
Set rngCols = Columns(arrCol(i))
Else
Set rngCols = Application.Union(rngCols, Columns(arrCol(i)))
End If
Next
Set GetColumns = rngCols
End Function

Anzeige
und mehr als 30 Arg.(Union) gehen auch ;-) owT
10.08.2017 11:47:20
Matthias
Interessant, die Union-Grenze kann ich nicht. owT
10.08.2017 12:16:42
Martin
Interessant, die Union-Grenze kannte ich nicht.owT
10.08.2017 12:17:22
Martin
Union(Columns(1), Columns(5), Columns(7)).Select
10.08.2017 10:07:44
Case
:-)
warum leicht wenn es auch schwer geht?
10.08.2017 10:12:34
Martin
Hallo Case,
ich war so stolz auf meine Lösung, aber deine ist einfach nur genial ;-)
- es ärgert mich nur ein wenig, dass es quasi die Kurzfom meiner Lösung ist und ich nicht selbst darauf gekommen bin.
Viele Grüße, Martin
Deine ist voll ok, Martin, weil die von Case ...
10.08.2017 10:49:21
Case
"mengenhart" im Code steht. Es sind ja nicht immer genau 3 Spalten.
Ich danke dir ;-) (owT)
10.08.2017 11:14:59
Martin
Entschuldiung und Danke an Case, lupo1, Mathias un
10.08.2017 13:50:08
Dasha
Ich musste schnell weg und habe die Vorschläge von Case, lupo1, Mathias und Martin nun ausprobiert. Leider hilft das alles mir nicht weiter, obwohl eure Befehle funktionierne. Also vielen dank schon mal für eure Hilfe!
Ich schreibe im nächsten Post, nun mit Bildern, was nicht klappt. Ich bin schon seit Dienstag dran und es klappt einfach nicht, obwohl es eine Kleinigkeit ist.
Anzeige

76 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
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
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