Hi,Ich würde gern den Workbook Namen aus einer Zelle auslesen und nutzen.Aktuell verwende ichSet W_Arbeitsmappe = Workbooks("Arbeitsmappenname")und möchte das nun durch Set W_Arbeitsmappe = Workbooks(Range("Z_Datei"))ersetzen. Z_Datei ist eine definierte Zelle, deren Wert auch stimmt (nutze sie bereits für ander Codeparts). Allerdings sagt mir Excel immer an dieser Position "Typen unverträglich" aber warum?

Excel VBA: Workbook aus Zelle?

Hi,

Ich würde gern den Workbook Namen aus einer Zelle auslesen und nutzen.

Aktuell verwende ich

Set W_Arbeitsmappe = Workbooks("Arbeitsmappenname")

und möchte das nun durch

Set W_Arbeitsmappe = Workbooks(Range("Z_Datei"))

ersetzen.

Z_Datei ist eine definierte Zelle, deren Wert auch stimmt (nutze sie bereits für ander Codeparts).

Allerdings sagt mir Excel immer an dieser Position "Typen unverträglich" aber warum?

2 Antworten

Vom Beitragsersteller als hilfreich ausgezeichnet

geri3d

Nutzer, der sehr aktiv auf gutefrage ist

im Thema programmieren

13.01.2023, 09:16

Versuch es mit:

Set W_Arbeitsmappe = Workbooks(cStr(Range("Z_Datei")))

Woher ich das weiß:Berufserfahrung – Softwareentewickler / Unternehmensberater bei CSDIT iR

Sven8219

Beitragsersteller

13.01.2023, 09:24

Perfekt, vielen Dank :) Aber will das auch immer verstehen. Warum cStr?

geri3d

13.01.2023, 09:29

@Sven8219

Weil Range() ein Objekt ist und von der Runtime nicht ohne weiteres in einen String überführt werden kann, hier wird aber ein String erwartet.

cStr steht für Convert(To)String
es gibt für alle Typen cInt usw.

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel, VBA

13.01.2023, 18:12

mmhh. Gute Lösung bislang.
..aber warum nicht einfach so ?
Dim test
test = Workbook.Name

Sven8219

Beitragsersteller

14.01.2023, 09:18

Weil sich der Name immer wieder ändern kann und in der Zelle wird er dann angepasst, somit kann der Code flexibel gehalten werden :)

Ähnliche Beiträge

Excel, Spalte rechts nebenan kopieren?

Hallo, wie kann ich per Excel VBA eine Range (eine Spalte) mit einer Zelle vergleichen und nach einem Match die Zelle direkt rechts neben der Range (eine Spalte) selektieren?

...zum Beitrag

Excel VBA Summen eines variablen Bereiches bilden

Servus Leute,

ihr habt mir schon oft bei Problemen mit VBA geholfen, deswegen denke ich, dass ihr mir auch jetzt helfen könnt.

Ich muss in einem großen Makro (Also es geht nicht ohne Makro!) eine Summenformel bilden, von einem Bereich der variabel ist, da Monat für Monat neue Datenblätter so bearbeitet werden sollen.

Ich habe den Bereich über Suchen-Funktionen und Variablen "e" und "f" definiert (e ist Anfang, f ist Ende)

Diesen Bereich habe ich als Range definiert

Dim Bereich1 As Range
Set Bereich1 = Tabelle1.Range("E" & e, "E" & f)

Und will in einer variablen Zelle die Summe angezeigt bekommen, es scheitert aber bisher:

Tabelle1.Range("E" & b + 11).Value = Application.WorksheetFunction.Sum(Bereich1)

Könnt ihr mir helfen? Danke im Voraus :)

...zum Beitrag

Excel VBA eine definierte Shape bewegen?

Hallo Zusammen,

Ich habe in einem File mit zwei Blättern (Genehmigung und Planung) einen Balken (benannt "Datumsbalken"). Dieser ist jeweils auf dem heutigen Tag fixiert.

Jetzt will ich seine Verschiebung anhand des heutigen Datums automatisieren. Ich bringe jedoch das Makro nicht zum laufen. Was ist mein Fehler?

Sub BalkenSchieben3()
 
    Dim Today As Variant
    Dim Last As Variant
    Dim TodaySheet As Variant
    Dim Difference As Variant
    Dim Form As Shape
 
    Set Form = Sheets("Planung").Shapes.Range("Datumsbalken") '(Array("Datumsbalken")) soll die Shape "Datumsbalken" suchen
    Set Today = Date 'Setzt das heutige Datum
    Set Difference = Sheets("Genehmigung").Range("AO3") 'Setzt den Unterschied zwischen letzter Bearbeitung und Heute
    Set TodaySheet = Sheets("Genehmigung").Range("AK3")
    
        If Difference > 0 Then
            For Difference = 1 To Difference 'Die Anzahl Tagesunterschiede (Difference) entscheidet, wie viele Male der Balken verschoben werden soll.
                With Sheets("Planung")
                    Form.Select
                    Selection.ShapeRange.IncrementLeft 21
                End With
                
            Next
            
            Else
        End If
    
    Set Sheets("Genehmigung").Range("AK3") = Today 'Das heutige Datum wird in die Zelle abgespeichert
    Set Sheets("Genehmigung").Range("AM3") = TodaySheet 'Das letzte Bearbeitungsdatum (vorheriges "Heute") wird abgespeichert, damit die nächste Difference berechnet werden kann
 
End Sub

Vielen Dank im Voraus!

...zum Beitrag

Excel Vba Typen Unverträglich?

Sub test()

For i = 1 To 10

Worksheets("Tabelle1").Range("C1:C10") = IIf((IsEmpty(Range("A1:A10")) + IsEmpty(Range("B1:B10"))) <> 0, "Not Calculable", (Range("A1:A10") - Range("B1:B10") + 1))

End Sub

...zum Beitrag

Wie kann ich Excel-Zellen für Word auslesen?

Ich muss den Inhalt einer speziellen Zelle in einem Excel-Sheet als String auslesen und in einem Word-Dokument einfügen. Das ganze soll per VBA funktionieren. Dabei sollte die Excel-Datei bestenfalls geschlossen bleiben. Kann jemand helfen? Nutze MS-Office 2013.

...zum Beitrag

Position von VBA Macros auf Excel immer festhalten?

Hallo zuammen,

Ich habe mir für einen Sanitätsdient mit Excel ein kleines Tool gebaut um ein Einsatztagebuch zur Dokumentation zu führen.

In der linken hälfte tauchen durch Ausführen der Farbigen Schaltflächen bestimmte kurz Meldungen auf, wie abgebildet.

Ich möchte in der Spalte D einen automatischen Zeilenumbruch, ohne das sich die Position der verschiedenen Farbigen Schaltflächen und Überschriften der Schaltflächen ändert. Das ganze kann auch gerne Zellen unabhänig sein. Hat jemand eine Idee?

Grüße und Danke im vorraus

...zum Beitrag

Excel VBA - Wert auslesen?

Mein Problem:

Mit dem ersten Makro wird ein Wert in Zelle A1 geschrieben.

In einem weiteren Makro will ich nun diesen Wert auslesen mit Worksheets("Blatt1").Cells(1, 1).Value = i. Wenn ich das mache steht danach in Zelle A1 aber eine 0 und nicht mehr der vorige Wert. Was ist falsch?

...zum Beitrag

Excel: Variablen in Makros einfügen und in Datenbank pflegen/ändern?

Hallo liebe Community,

ich habe diverse Makros in meiner Excel Datei und ich würde gerne das ganze etwas "smarter" gestalten und eine Art Datenbank mit VBA erstellen, um viele Sachen in der Arbeitsmappe dadurch ändern/pflegen zu können. Externe Leute sollen und müssen dann nicht mehr in die VBA Oberfläche und mühsam das Makro suchen, um dort Pfade oder Zeilen zu ändern, falls sich was ändert.

Meine Frage:

Ist es möglich in ein Makro bei VBA eine Art Variable einzubauen bzw. Pfad, wo Excel z.B. in Tabelle1 in Spalte A1 den Wert/Namen findet?

Beispiel Makro:

Statt Daten123.xlsx soll dann ein Bezug hin, wo Excel in Tabelle1 in A1 den Namen Daten123.xlsx findet. Ist sowas möglich?

Dim sPfad As String
Dim wbQuelle As Workbook
Dim zelle As Range
Dim loletzte As Long

sPfad = "C:\Users\P\Desktop\Dateiordner\Unterordner\Daten123.xlsx"

If Dir(sPfad) <> "" Then

Set wbQuelle = Workbooks.Open(sPfad)

Call Test

loletzte = Cells(Rows.Count, 1).End(xlUp).Row

wbQuelle.Worksheets(1).Range("A7:I" & loletzte).Copy ThisWorkbook.Worksheets(3).Range("B2")

wbQuelle.Close savechanges:=False

End If

...zum Beitrag

Excel VBA jede n-te Zeile finden und bei der Ausgabe die Steps ignorieren?

Moin zusammen, ich baue aktuell in VBA eine Excel Liste bzw. versuche eine auszuwerten. Ziel, jede 21ste Zeile soll ausgelesen und zusammengefasst ausgegeben werden. Leider gibt er die Werte genau in den Steps aus in denen er Sie liest und ich komme mit meinem Probieren nicht weiter. Hat jemand eine Lösung?

Hier der Code:

Sub AlternativeZeilenAuswaehlen()

Dim bereich1 As Range

Dim bereich2 As Range

Dim x As Integer

Dim y As Integer

Dim ZeilenNr As Integer

'Den Bereich auswählen

Set bereich1 = Range("'Test Yvonne Excel (2)'!E1:E30000")

Set bereich2 = Range("Tabelle1!B5:B30000")

'Zeilen zählen

ZeilenNr = bereich1.Rows.Count

ZeilenNr = bereich2.Rows.Count

'Jede zweite Zelle im Bereich durchlaufen

For x = 3 To ZeilenNr Step 21

'den Wert aus Spalte B in Spalte C eintragen

bereich2.Cells(x, 1).Offset(0, 0) = bereich1.Cells(x, 1)

End Sub

...zum Beitrag

Excel VBA, Bereiche ausblenden?

Hallo, kann ich per Excel Vba einen definierten Bereich ausblenden?

Als Beispiel, ich würde gerne bei einem Klick auf einen Commandbutton, den Bereich B2:D14 ausblenden.

Danke!

...zum Beitrag

Excel-Zeilen nach Inhalt über Button und VBA ausblenden?

Hallo zusammen,

ich möchte in Excel mithilfe eines Buttons und VBA bestimmte Zeilen ausblenden.

Das ganze soll wie folgt wirken:

Klickt man auf den Button sucht Excel nach Zeilen die in Spalte C den Inhalt "ohne Angaben" enthalten und blendet alle Zeilen aus welche diesen Text in Zelle C enthalten.

Wie kann man das realisieren?

Dirk

...zum Beitrag

Excel Vba, Bilder löschen?

Hallo, gibt es eine Möglichkeit in excel vba alle Bilder auf dem Tabellenblatt mit einer Ausnahme zu löschen? Also alle Bilder bis auf ein definiertes sollen gelöscht werden.

...zum Beitrag

VBA Objektvariable oder With Blockvariable nicht festgelegt?

Hallo habe folgenden Code:

Bekomme beim debuggen nach der Zeile "Objektvariable oder With-Blockvariable nicht festgelegt" Ich sehe mein Fehler leider nicht, hat jemand eine Ahnung?

Dim wbSAP As Workbook
Dim wbStamm As Workbook
Dim sapSheet As Worksheet
Dim stammSheet As Worksheet
Dim sapRange As Range
Dim stammRange As Range
Dim curSapCell As Range
Dim foundStammCell As Range
Dim nextStammRowNr As Integer
Set wbSAP = Workbooks.Open(ThisWorkbook.Path & "\SAP-Abfrage_GEN-User_SUIM.xls") 
Set wbStamm = ThisWorkbook


Set sapSheet = wbSAP.Sheets("SAP-Abfrage_GEN-User_SUIM") 
Set stammSheet = wbStamm.Sheets("Tabelle1")


Set sapRange = sapSheet.Range("B29:B105") 
Set stammRange = stammSheet.Range("F2:F81")


For Each curSapCell In sapRange  
   
foundStammCell = stammRange.Find(curSapCell.Value, LookAt:=xlWhole)     
If Not foundStammCell = curSapCell.Value Then  
       
stammSheet.Range("M" & nextStammRowNr) = sapSheet.Range("M" & curSapCell.Row).Value        
 nextStammRowNr = nextStammRowNr + 1     
Else        
stammSheet.Range("M" & foundStammCell.Row) = sapSheet.Range("M" & curSapCell.Row).Value     
End If
Next curSapCell

...zum Beitrag

Excel Variable Range angabe?

Hallo, ich hätte eine Frage bezüglich Excel VBA:

Ich versuche folgendes zu erreichen:

Damit soll der Zellinhalt von (in dem Fall) Zelle A1 geändert werden.
Wenn man "x = 2" verwendet, dann soll der Inhalt in Zelle A2 geändert werden usw.

Gibt es da eine Spezielle Syntax oder geht es gar nicht so?

Danke für eure Hilfe!

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen