Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
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 |
|
|
VBA, Variable definieren und in Formula verwenden |
04.06.2020 16:21:39 |
Gast57846 |
|
|
|
04.06.2020 18:12:48 |
Mackie |
|
|
Von:
Gast57846 |
Datum:
04.06.2020 16:21:39 |
Views:
629 |
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).CopyActiveCell.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
|
|
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 |
|
|
VBA, Variable definieren und in Formula verwenden |
04.06.2020 16:21:39 |
Gast57846 |
|
|
|
04.06.2020 18:12:48 |
Mackie |
|
|