Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Funktion ändern zum Spalte suchen

Betrifft: Funktion ändern zum Spalte suchen von: Stefanie
Geschrieben am: 25.08.2014 09:28:31

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

  

Betrifft: AW: Funktion ändern zum Spalte suchen von: Hajo_Zi
Geschrieben am: 25.08.2014 09:49:26

MsgBox Application.WorksheetFunction.Max(28, IIf(IsEmpty(Cells(1, Columns.Count)), _
Cells(1, Columns.Count).End(xlToLeft).Column, Columns.Count) + 1)


GrußformelHomepage


  

Betrifft: AW: Funktion ändern zum Spalte suchen von: Stefanie
Geschrieben am: 25.08.2014 10:02:20

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!


  

Betrifft: AW: Funktion ändern zum Spalte suchen von: Hajo_Zi
Geschrieben am: 25.08.2014 10:05:19

ich habe nur einen Teil geschrieben, da Du dieses auch nur.
ersetzen den Teil in Deinem Code.

Gruß Hajo


  

Betrifft: AW: Funktion ändern zum Spalte suchen von: Stefanie
Geschrieben am: 25.08.2014 10:14:54

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


  

Betrifft: AW: Funktion ändern zum Spalte suchen von: Hajo_Zi
Geschrieben am: 25.08.2014 10:42:21

schreibe Für akutelle_spalte mein Code ohne Msgbox und lösche die Zeile bis zum If

Select, Activate usw. ist in VBA zu 99,9% nicht notwendig.
Der Cursor ist kein Hund der überall rumgeführt werden muss.
Hinweise zu select usw. Hajo-Excel.de
Hinweise zu select usw. Online-Excel.de
Hinweise zu select usw. Online-Excel.de

Gruß Hajo


  

Betrifft: AW: Funktion ändern zum Spalte suchen von: Stefanie
Geschrieben am: 25.08.2014 10:54:40

Ich probiers gleich aus, vielen dank dir :-) superklasse!!


  

Betrifft: AW: Funktion ändern zum Spalte suchen von: Stefanie
Geschrieben am: 25.08.2014 11:00:33

Funktioniert leider nicht kommt immer ein Fehler :-(


  

Betrifft: AW: Funktion ändern zum Spalte suchen von: Hajo_Zi
Geschrieben am: 25.08.2014 11:02:58

dazu kann ich nichts schreiben, was wohl daran liegt das ich die Datei und den Code nicht sehe.

Gruß Hajo


  

Betrifft: AW: Funktion ändern zum Spalte suchen von: {Boris}
Geschrieben am: 25.08.2014 11:07:46

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


  

Betrifft: AW: Funktion ändern zum Spalte suchen von: Stefanie
Geschrieben am: 26.08.2014 08:09:14

Genau das hatte ich gemeint und es funktioniert jetzt auch supi danke!


  

Betrifft: AW: Funktion ändern zum Spalte suchen von: Rudi Maintaire
Geschrieben am: 25.08.2014 11:10:38

Hallo,
aktuelle_spalte = Worksheetfunction.max(ActiveCell.Column,15)

Gruß
Rudi


 

Beiträge aus den Excel-Beispielen zum Thema "Funktion ändern zum Spalte suchen"