Hallo freundliche VBA Forummitglieder,
ich soll momentan eine ExcelMappe erstellen die über ein Makro "Stationen" einfügt. Diese sind auf einem ExcelBlatt in einer Spalte runtergezählt und werden durch das Makro um eine erweitert.
Über folgenden VBA Befehl :
Application.ScreenUpdating = False
Sheets("Übersicht Anlage").Select
Dim Zahl As Variant
Dim Found As Range
Set Found = Columns("A").EntireRow.Find(What:="Übersicht Anlage1", LookIn:=xlValues, Lookat:=xlWhole)
If Not Found Is Nothing Then
Rows(Found.Row - 1).Copy
Rows(Found.Row).Insert Shift:=xlDown
Application.CutCopyMode = False
Cells.Find(What:="Übersicht Anlage1", LookIn:=xlValues, Lookat:=xlPart).Activate
ActiveCell.Offset(-2, 0).Copy
ActiveCell.Offset(-1, 0).PasteSpecial (xlPasteAll)
End If
Da ich jetzt aber auf einem weiterem Excelblatt die automatische Übernahme der Stationsnummer, welche, im zuvor beschriebenen Excelblatt, eingegeben wird, jetzt in einer Zeile haben will, wollte ich das ganze über folgenden Befehl möglich machen :
Sheets("Stufe_2 Stationskosten").Select
Set Found = Rows("1").EntireColumn.Find(What:="Stufe_2 Stationskosten1", LookIn:=xlValues, Lookat:=xlWhole)
If Not Found Is Nothing Then
Columns("I:J").Copy
Columns(Found.Column).Insert
Application.CutCopyMode = False
Sheets("Übersicht Anlage").Select
Cells.Find(What:="Übersicht Anlage1", LookIn:=xlValues, Lookat:=xlWhole).Activate
#Fehlermeldung Set Zahl = Selection.Row
Sheets("Stufe_2 Stationskosten").Select
Cells.Find(What:="Stufe_2 Stationskosten1", LookIn:=xlValues, Lookat:=xlPart).Offset(0, -2).Select
Selection.Formula = "='Übersicht Anlage'!Zahl"
End If
Da im ersten Blatt das ganze Zeilenweise beschriftet wird und im zweiten jetzt Spaltenweise übernimmt Excel die Formelangabe "='Übersicht Anlage'!A.." nicht richtig.
nun hab ich probiert mir die zuletzt eingefügte Zeile als Wert über eine Variable auszugeben, jedoch wird mir dabei folgende Fehlermeldung angezeigt :
Laufzeitfehler '13'
Typen unverträglich.
Die Variante ist bisher mein bester Versuch irgendwie die richtige Formatierung umgesetzt zu bekommen, trotzdem scheiter ich dran :/
Ich wäre also um jede Hilfe Dankbar !!
Mfg Emanuel Koch
|