Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1376to1380
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
1376to1380
1376to1380
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Funktion ändern zum Spalte suchen

Funktion ändern zum Spalte suchen
25.08.2014 09:28:31
Stefanie
Guten Morgen,
ich bräuchte dringend eure Hilfe. Kurz vor dem Ziel hab ich noch ein Problemchen:
Diese Funkton:
Cells(1, IIf(IsEmpty(Cells(1, Columns.Count)), _
Cells(1, Columns.Count).End(xlToLeft).Column, Columns.Count) + 1).Select
aktuelle_spalte = ActiveCell.EntireColumn.Column
Sucht die nächste freie Spalte. das klappt auch wunderbar!
Wie kann ich jetzt aber die nächste freie Spalte AB Spalte 15 suchen? Diese Funktion muss man doch bestimmt "nur" umschreiben oder?
Vielen Dank euch!!!

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Funktion ändern zum Spalte suchen
25.08.2014 09:49:26
Hajo_Zi
MsgBox Application.WorksheetFunction.Max(28, IIf(IsEmpty(Cells(1, Columns.Count)), _
Cells(1, Columns.Count).End(xlToLeft).Column, Columns.Count) + 1)

AW: Funktion ändern zum Spalte suchen
25.08.2014 10:02:20
Stefanie
Danke für deine Antowort, leider verstehe ich diese nicht ganz.
Nun erhalte ich eine MsgBox die mir 28 ausgiebt aber meim Makro fügt weiterhin etwas in die nächste freie Spalte.
Es soll aber in die nächste freie Spalte ab Spalte 15 einfügen :-(
Danke für einen kleinen Hinweis!

AW: Funktion ändern zum Spalte suchen
25.08.2014 10:05:19
Hajo_Zi
ich habe nur einen Teil geschrieben, da Du dieses auch nur.
ersetzen den Teil in Deinem Code.
Gruß Hajo

Anzeige
AW: Funktion ändern zum Spalte suchen
25.08.2014 10:14:54
Stefanie
Mein code ist halt sehr lang ;-)
Hier ein Teil:

If Inhalt2 = Inhalt Then
Cells(15, IIf(IsEmpty(Cells(1, Columns.Count)), _
Cells(1, Columns.Count).End(xlToLeft).Column, Columns.Count) + 1). _
Select
akutelle_spalte = ActiveCell.EntireColumn.Column
Cells(b, akutelle_spalte).Select
ActiveSheet.Paste
Sheets("G0SA").Select
Cells(3, x).Select
End If
Ich möchte sagen, wenn die Inhalte gleich sind dann suche die nächste freie Spalte ab Spalte 16 und füge dort etwas ein. Dieser Code Block befindet sich wiederum in einer For Schleife die einen Bereich durchläuft. Immer wenn die Inhalte gleich sein soll dieser in die nächste freie Spalte kopiert werden.
Viele Grüße Stefanie

Anzeige
AW: Funktion ändern zum Spalte suchen
25.08.2014 10:54:40
Stefanie
Ich probiers gleich aus, vielen dank dir :-) superklasse!!

AW: Funktion ändern zum Spalte suchen
25.08.2014 11:00:33
Stefanie
Funktioniert leider nicht kommt immer ein Fehler :-(

AW: Funktion ändern zum Spalte suchen
25.08.2014 11:02:58
Hajo_Zi
dazu kann ich nichts schreiben, was wohl daran liegt das ich die Datei und den Code nicht sehe.
Gruß Hajo

AW: Funktion ändern zum Spalte suchen
25.08.2014 11:07:46
{Boris}
Hi Stefanie,
Hajo hat bei
---
die nächste freie Spalte AB Spalte 15 suchen?
---
das AB als Spaltenbezeichnung gedeutet - und das wäre dann die Spalte AB und somit Spalte 28.
Änder die 28 in 15.
VG, Boris

Anzeige
AW: Funktion ändern zum Spalte suchen
26.08.2014 08:09:14
Stefanie
Genau das hatte ich gemeint und es funktioniert jetzt auch supi danke!

AW: Funktion ändern zum Spalte suchen
25.08.2014 11:10:38
Rudi
Hallo,
aktuelle_spalte = Worksheetfunction.max(ActiveCell.Column,15)
Gruß
Rudi

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige