Spalte mit bestimmten Eintrag finden

Sub NeueSpalte() Dim spBudget As Long 'SpaltenNr der Budget-Spalte spBudget = ActiveSheet.Rows(6).Find(What:="Budget", Lookat:=x1whole).Column 'Suchen der Spalte _ mit dem Eintrag "Budget" Columns("spBudget:spBudget").Select 'Einfügen einer neuen Spalte links von der gefundenen _ Spalte Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Dim vers As String 'Eintragen der Versionsnummer vers = InputBox("Geben sie bitte die neue Versionsnummer ein:") Cells(6, ActiveCell.Column).Select ActiveCell = vers End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub NeueSpalte() Dim spBudget As Long ' SpaltenNr der Budget-Spalte Dim vers As String ' Eintragen der Versionsnummer ' Suchen der Spalte mit dem Eintrag "Budget" spBudget = ActiveSheet.Rows(6).Find(What:="Budget", Lookat:=xlWhole).Column ' Einfügen einer neuen Spalte links von der gefundenen Spalte Columns(spBudget).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove vers = InputBox("Geben sie bitte die neue Versionsnummer ein:") Cells(6, spBudget) = vers End Sub

Danke Peter, so klappt es wunderbar. Ich hätte jetzt noch ein zusätzliches Problem, und zwar würde ich dieses Makro gerne für alle Tabellenblätter ausführen (17 insgesamt). D.h. dass man nur einmal die Versionsnummer eingeben muss und es das für alle Tabellenblätter analog durchführt mit dem Einfügen und Eintragen. Ich habe zwar einige Ansätze gefunden, jedoch will das nicht so klappen, wie ich es mir vorstelle. Bei diesem Code werden die anderen Tabellenblätter garnicht berücksichtigt und man muss 17 mal die Versionsnummer eingeben. Wahrscheinlich ist es nur eine kleine Änderung damit es so klappt:

Option Explicit
Sub NeueSpalte()
Dim objWorkSheet As Worksheet
For Each objWorkSheet In ActiveWorkbook.Worksheets
With objWorkSheet
Dim spBudget  As Long    ' SpaltenNr der Budget-Spalte
Dim vers      As String  ' Eintragen der Versionsnummer
'     Suchen der Spalte mit dem Eintrag "Budget"
spBudget = ActiveSheet.Rows(6).Find(What:="Budget", Lookat:=xlWhole).Column
'     Einfügen einer neuen Spalte links von der gefundenen Spalte
Columns(spBudget).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
vers = InputBox("Geben sie bitte die neue Versionsnummer ein:")
Cells(6, spBudget) = vers
End With
Next
End Sub

Viele Grüße

Sub NeueSpalte() Dim spBudget As Long ' SpaltenNr der Budget-Spalte Dim vers As String ' Eintragen der Versionsnummer Dim sh As Worksheet vers = InputBox("Geben sie bitte die neue Versionsnummer ein:") For Each sh In ActiveWorkbook.Worksheets sh.Activate ' Suchen der Spalte mit dem Eintrag "Budget" spBudget = ActiveSheet.Rows(6).Find(What:="Budget", Lookat:=xlWhole).Column ' Einfügen einer neuen Spalte links von der gefundenen Spalte Columns(spBudget).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Cells(6, spBudget) = vers Next sh End Sub

Sub Neue() Dim spBudget As Long ' SpaltenNr der Budget-Spalte Dim vers As String ' Eintragen der Versionsnummer Dim i As Long vers = InputBox("Geben sie bitte die neue Versionsnummer ein:") Sheets(2).Select 'hier das erste Blatt bestimmen- anpassen For i = 2 To Sheets.Count 'ab dem 2ten Blatt - anpassen Sheets(i).Activate ' Suchen der Spalte mit dem Eintrag "Budget" spBudget = ActiveSheet.Rows(6).Find(What:="Budget", Lookat:=xlWhole).Column ' Einfügen einer neuen Spalte links von der gefundenen Spalte Columns(spBudget).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove Cells(6, spBudget) = vers Next i End Sub

Beliebteste Forumthreads (12 Monate)

Spalte mit bestimmten Eintrag finden

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalte mit bestimmten Eintrag finden

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread