Live-Forum - Die aktuellen Beiträge
Datum
Titel
07.05.2024 21:30:42
Bilder aus URL in Zelle einfügen - Code anpassen
07.05.2024 20:36:09
xverweis / name Funktion
07.05.2024 20:10:42
Datum z.B. 1897 wird nicht als Datum angezeigt
07.05.2024 19:47:07
Excel Lohnabrechnung anhand 2 Suchkriterien
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1860to1864
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
1860to1864
1860to1864
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Per erste leere Spaltenüberschrift finde

Per erste leere Spaltenüberschrift finde
05.01.2022 14:38:06
Robert
Hallo liebe Exelgemeinde!
Erst mal allen ein Gesundes und erfolgreiches 2022. Bleibt alle schön gesund.
Ich habe mal wieder ein Bitte und hoffe Ihr könnt mir helfen.
In einem Tabellenblatt habe ich 200 Überschriftsspalten welche von AI2 bis HZ2 gehen. Im Normalfall erfolgt die Beschriftung der Reihe nach. Aber es kann passieren das per Vba zwischendrin der mal ein Spaltenname entfernt wird. Nun würde ich gerne per Vba ermitteln welche Spalte die erste frei ohne Beschriftung ist also z.B. AH2 oder GE2. Nur als Beispiel aufgeführt. Wie kann ich nun per Makro ermitteln welche die nächste frei Spaltenüberschrift ist und diese in der Zelle AI in der Form AH2:AH20 oder GE2:GE20, je nachdem was das Makro ermittelt.
Wenn Ihr mir dabei helfen könntet wäre ich sehr dankbar.
LG Robert

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Per erste leere Spaltenüberschrift finde
05.01.2022 15:04:02
{Boris}
Hi,
Deine Angaben sind widersprüchlich.
habe ich 200 Überschriftsspalten welche von AI2 bis HZ2 gehen.
Weiter:
die erste frei ohne Beschriftung ist also z.B. AH2
AH2 liegt aber nicht im Bereich AI2:HZ2
Grundsätzlich kannst Du das mit der End-Eigenschaft (xlToRight) erledigen.
VG, Boris
AW: Per erste leere Spaltenüberschrift finde
05.01.2022 15:10:45
Robert
Hallo Boris!
Natürlich soll die freie Spalte erst Hinter oder bei AI auftauchen. Das Alphabet ist wohl nicht meine Stärke. Wäre schön wenn Du mir ein Gerüst geben könntest.
LG Robert
AW: Per erste leere Spaltenüberschrift finde
05.01.2022 15:16:19
{Boris}
Hi,

Sub nächste_freie_Spalte()
Dim lngNextCol As Long
If Range("AI2") = "" Then
lngNextCol = Range("AI2").Column
Else
lngNextCol = Range("AI2").End(xlToRight).Column + 1
End If
MsgBox "Nächste freie Spalte: " & lngNextCol & " bzw. Zelle " & Cells(2, lngNextCol).Address(0, 0)
End Sub
VG, Boris
Anzeige
AW: Per erste leere Spaltenüberschrift finde
05.01.2022 16:43:47
Robert
Hallo Boris!
Muss mich noch mal an Dich wenden.
Das Makro geht erst mal, aber soll aber den Bereich AI2 bis HZ2 abfragen und die erste Freie Zelle in diesem Bereich ausgeben. Also z.B. EG2 oder H2 usw. Je nachdem was frei ist. Jetzt wird die jeweils 2 Zelle nach AI2 ausgegeben.
LG Robert
AW: Per erste leere Spaltenüberschrift finde
05.01.2022 18:21:00
{Boris}
Hi,

Jetzt wird die jeweils 2 Zelle nach AI2 ausgegeben.
Nö. Es wird die nächste leere Zelle rechts von AI2 ausgegeben - und wenn AI2 leer ist, dann AI2.
Wenn das bei Dir anders ist, dann hast Du irgendwas falsch gemacht.
VG, Boris
AW: Per erste leere Spaltenüberschrift finde
05.01.2022 16:45:44
GerdL
Moin Robert!

ub Unit()
Dim X As Range, Bereich As Range
Set Bereich = Range("AI2:HZ2")
Set X = Bereich.Find("", after:=Bereich.Cells(Bereich.Count), lookat:=xlWhole, LookIn:=xlValues)
If Not X Is Nothing Then
MsgBox X.Resize(19).Address
Else
MsgBox "keine Leeren"
End If
End Sub
Gruß Gerd
Anzeige
AW: Per erste leere Spaltenüberschrift finde
05.01.2022 17:00:36
Robert
Hallo Gerd!
Funzt ausgezeichnet. Jetzt habe ich noch eine Bitte. Wäre es möglich das Suchergebnis in die Zelle AI28 zu schreiben. Wenn das gehen würde, würdest Du mich sehr glücklich machen.
LG Robert
AW: Per erste leere Spaltenüberschrift finde
05.01.2022 17:13:04
GerdL
Hallo

Sub Unit()
Dim X As Range, Bereich As Range
Set Bereich = Range("AI2:HZ2")
Set X = Bereich.Find("", after:=Bereich.Cells(Bereich.Count), lookat:=xlWhole, LookIn:=xlValues)
If Not X Is Nothing Then
Range("AI28") = X.Resize(19).Address
Else
Range("AI28") = "keine Leeren"
End If
Set Bereich = Nothing
End Sub
Gruß Gerd
AW: Per erste leere Spaltenüberschrift finde
05.01.2022 17:29:27
Robert
Hallo Ihr lieben Exeler Boris und Gerd!
Ich danke Euch von ganzen Herzen für Eure Hilfe. Es läuft Perfekt.
LG Robert
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige