Thema Datum  Von Nutzer Rating
Antwort
Rot VBA, Variable definieren und in Formula verwenden
 04.06.2020 16:17:41 Emanuel Koch
NotSolved
04.06.2020 16:20:10 Gast81270
NotSolved
04.06.2020 17:39:51 Mackie
NotSolved
04.06.2020 17:58:10 Gast81270
NotSolved
04.06.2020 18:12:20 Mackie
NotSolved
04.06.2020 16:21:39 Gast57846
NotSolved
04.06.2020 18:12:48 Mackie
NotSolved

Ansicht des Beitrags:
Von:
Emanuel Koch		 Datum:
04.06.2020 16:17:41		 Views:
1229		 Rating:
     
Antwort:
  Ja
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

Ihre Antwort
  • 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: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
Rot VBA, Variable definieren und in Formula verwenden
 04.06.2020 16:17:41 Emanuel Koch
NotSolved
04.06.2020 16:20:10 Gast81270
NotSolved
04.06.2020 17:39:51 Mackie
NotSolved
04.06.2020 17:58:10 Gast81270
NotSolved
04.06.2020 18:12:20 Mackie
NotSolved
04.06.2020 16:21:39 Gast57846
NotSolved
04.06.2020 18:12:48 Mackie
NotSolved