Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
552to556
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
552to556
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA lernen. Spalten markieren. Aber wie ?

VBA lernen. Spalten markieren. Aber wie ?
23.01.2005 09:24:46
Diago
Hallo zusammen,
derzeit lerne ich VBA. EIn paar Grundzüge kann ich auch - im Moment suche ich aber ein Script, das mir die letzen DREI gefüllten Spalten (also die gesamten drei Saplten) markiert.
Mein Problem ist weder eilig noch sehr wichtig, aber wenn jemand Zeit hat, wäre es lieb, wenn er mir die ein Script posten könnt, das genau das tut.
Ich löse das Makro aus, in dem ich das Marko starte - und dann sollten die jeweils drei letzen Spalten markiert sein.
Danke !
Diago

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA lernen. Spalten markieren. Aber wie ?
23.01.2005 09:33:06
Josef
Hallo Diago!
Im Prinzio so:

Sub dreiSpalten()
Dim lastCol As Integer
lastCol = IIf(Range("IV1") <> "", 256, Range("IV1").End(xlToLeft).Column)
Range(Cells(1, lastCol - 2), Cells(65536, lastCol)).Select
End Sub

Dazu ist aber zu sagen, das selectieren und markieren fast immer unnötig ist!
Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: VBA lernen. Spalten markieren. Aber wie ?
Diago
Vielen Dank ! Hat perfekt geklappt.
Eine Frage aber noch - wie verbinde ich ein solches Script mit einem aufgezeichneten Makro ?
Ich würde gerne "erst das Script wie oben" laufen lassen und dann direkt das folgende Makro :

Sub test1()
' test1 Makro
' Makro am 23.01.2005 von Diago aufgezeichnet
Selection.Font.Bold = True
Selection.Font.Italic = True
With Selection.Font
.Name = "Arial"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.NumberFormat = "0.0"
Selection.NumberFormat = "0.00"
End Sub

Anzeige
AW: VBA lernen. Spalten markieren. Aber wie ?
23.01.2005 10:14:38
Josef
Hallo Diago!
Das ganze in einem Makro und ohne Select!


      
Sub dreiSpalten()
Dim lastCol As Integer
lastCol = IIf(Range("IV1") <> "", 256, Range("IV1").End(xlToLeft).Column)
With Range(Cells(1, lastCol - 2), Cells(65536, lastCol))
   
   .Font.Bold = True
   .Font.Italic = True
   
   With .Font
   .Name = "Arial"
   .Size = 11
   End With
   
   .HorizontalAlignment = xlCenter
   .VerticalAlignment = xlBottom
   .WrapText = False
   .Orientation = 0
   .AddIndent = False
   .IndentLevel = 0
   .ShrinkToFit = False
   .ReadingOrder = xlContext
   .MergeCells = False
   
   .NumberFormat = "0.00"
   
End With
End Sub 


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: VBA lernen. Spalten markieren. geht nimmer ?
Diago
Hallo zusammen,
gestern ging es noch. Heute in eine bestehende Excel-Datei das "Modul" eingefügt - das ganz einfache (!) - das da :

Sub dreiSpalten010()
Dim lastCol As Integer
lastCol = IIf(Range("IV1") <> "", 256, Range("IV1").End(xlToLeft).Column)
Range(Cells(1, lastCol - 2), Cells(65536, lastCol)).Select
End Sub

Und ...es geht nicht mehr - beim Debuggen "macht er mir die Zeile Ragne(Cells etc.etc.) - gelb. Warum ? jetzt dachte ich, das ich es verstanden hätte :-(
Danke einstweilen - wie gesagt - ist nicht eilig !
Diago
Anzeige
AW: VBA lernen. Spalten markieren. geht nimmer ?
24.01.2005 09:30:04
Josef
Hallo Diago!
Ich vermute mal, das in der Tabelle erst ein oder zwei Spalten gefüllt sind!
Dann ergibt "lastCol" zB. zwei "lastCol - 2" wäre dann Null und die Spalte
Null gibt's nun mal nicht!
Das lässt sich so abfangen:

Sub dreiSpalten010()
Dim lastCol As Integer
lastCol = IIf(Range("IV1") <> "", 256, Range("IV1").End(xlToLeft).Column)
If lastCol < 3 then lastCol = 3
Range(Cells(1, lastCol - 2), Cells(65536, lastCol)).Select
End Sub

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!

302 Forumthreads zu ähnlichen Themen

Range aus mehreren Zellbereichen als Variabeln
Randolf

Hallo,
ich möchte folgenden Zeile mit Variabeln darstellen:
Range("AM65:AN65,BB65:BC65").Select folgenden Ansatz habe ich derzeit, aber mir mach der Doppelpunkt zu schaffen:
Range(Cells(i, 39), Cells(i, 40), Cells(i, 54), Cells(i, 55)).Select
versuche wie Range(Cells(i, 3...
08.05.2009 11:06:07
Thread-ID: 1073827
13 Beiträge
Anzeige
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
Anzeige
VBA für mehrere Spalten
chris58

Hallo !
Ich habe diesen VBA Code hier gefunden. Er geht bestens, je doch benötige ich diesen Code auf mehreren Spalten...also Spalte 3 (C) bis Spalte 24 (Z).
Kann mir hier wer helfen, was ich eingeben muß um dies zu ermöglichen.
Danke
chris Private Sub Worksheet_Change(ByVal Ta...
13.01.2012 21:41:36
Thread-ID: 1246095
3 Beiträge
VBA Nussknacker - best. Spalten ausfül./markieren
Tobi

Servus Miteinander,
ich beisse mir schon seit tagen die zähne an zwei Problemen aus.
Problem 1
Ausgangslage:
Ich habe eine Tabelle/Liste (ca. 350 Zeilen lang) von Spalte A - G.
Ich möchte nun ein Makro erstellen, welches eine neue Spalte anlegt (H) und hier in jeder Zeile...
13.04.2012 11:57:54
Thread-ID: 1259098
6 Beiträge
VBA - mehrere Spalten ansprechen
WalterK

Hallo,
bei folgendem Codeteil sollte ich wissen, was ich bei der Zeile Range("D" & i).Clear ändern muss, wenn ich die Clear-Anweisung für D:G benötige.
For i = 16 To LeZeiMinAB
If Range("A" & i) = "" Or Range("B" & i) = "" Then
Range("D" & i).Clear
End If...
15.04.2012 21:57:25
Thread-ID: 1259508
5 Beiträge
VBA Daten aus mehreren Spalten in eine Spalte
Valerie

Hallo,
ich habe folgendes Problem:
Ich habe im Worksheet "Aufgelöste Maßnahmen" Maßnahmen im Textformat gruppiert in verschiedenen Spalten stehen:
Gruppe 1 ------- Gruppe 2
Maßnahme x -- Maßnahme a
Maßnahme y -- Maßnahme b
Maßnahme z
nun möchte ich diese Maßnahmen au...
09.09.2012 16:37:23
Thread-ID: 1277903
7 Beiträge
VBA: Mehrere Spalten ausblenden
NillePet

Hallo Forumgemeinde,
ich bin nicht unbedingt ein VBA-Spezi und verzweifle gerade an folgendem Problem:
Die Daten die ich filtern möchte erstrecken sich über relativ viele Spalten. Gefiltert werden sollen die Spalten anhand der Werte in der Zeile 4, die dann aufgrund der Angabe in Zelle...
28.05.2013 17:15:02
Thread-ID: 1315291
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
1
1
3
3
2
5
4
6
5
6
4
2
5
6
4
2
2
5
23
5
3
3
4
2