Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
VBA, Variable definieren und in Formula verwenden |
04.06.2020 16:17:41 |
Emanuel Koch |
|
|
|
04.06.2020 16:20:10 |
Gast81270 |
|
|
|
04.06.2020 17:39:51 |
Mackie |
|
|
|
04.06.2020 17:58:10 |
Gast81270 |
|
|
|
04.06.2020 18:12:20 |
Mackie |
|
|
|
04.06.2020 16:21:39 |
Gast57846 |
|
|
|
04.06.2020 18:12:48 |
Mackie |
|
|
Von:
Emanuel Koch |
Datum:
04.06.2020 16:17:41 |
Views:
917 |
Rating:
|
Antwort:
|
Thema:
VBA, Variable definieren und in Formula verwenden |
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
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
VBA, Variable definieren und in Formula verwenden |
04.06.2020 16:17:41 |
Emanuel Koch |
|
|
|
04.06.2020 16:20:10 |
Gast81270 |
|
|
|
04.06.2020 17:39:51 |
Mackie |
|
|
|
04.06.2020 17:58:10 |
Gast81270 |
|
|
|
04.06.2020 18:12:20 |
Mackie |
|
|
|
04.06.2020 16:21:39 |
Gast57846 |
|
|
|
04.06.2020 18:12:48 |
Mackie |
|
|