Excel VBA Range-Objekt?

Ich hätte zwei Fragen zu VBA in Excel über das Range-Objekt. Es wäre sehr nett, wenn mir jemand weiterhelfen könnte.

1_Frage

Worksheets(3).Range("A2:C3").Select

Auf dem dritten Arbeitsblatt wird der Bereich A2 bis C3 markiert. Klappt solange das dritte Arbeitsblatt aktiv ist, d. h. ich habe es anklickt.

Befinde ich mich z. B. auf worksheets(2) kann der Befehl Worksheets(3).Range("A2:C3").Select nicht mehr ausgeführt werden?

Laufzeitfehler 1004 Anwendungs- oder Objektorientierter Fehler

2_Frage

Dim Bereich as Range

Set Bereich = worksheets(3).Range("A2:C3")

Bereich.select

Die Zuweisung über Set kann ich ausführen, egal welches Arbeitsblatt ich angeklickt habe. Jedoch Bereich.select funktioniert nur, wenn ich mich wieder auf Blatt 3 befinde (bzw. dieses angeklickt habe)?

Sonst Laufzeitfehler 1004...

Kann mir hier jemand bitte weiterhelfen. Danke!

2 Antworten

Oubyi, UserMod Light

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

24.12.2021, 19:22

1) Das ist so. Du musst halt erst das Worksheet auswählen.

Sheets("Tabelle1").Activate
Sheets("Tabelle1").Range("A2:C3").Select

2)dito:


Dim bereich As Range
Dim blatt As Worksheet
Set bereich = Worksheets(3).Range("A2:C3")
Set blatt = Worksheets(3)
blatt.Activate
bereich.Select

Zumindest habe ich bisher keine andere Lösung gefunden.

Aber vielleicht ist ja ein anderer der Experten hier schlauer?!

Woher ich das weiß:Berufserfahrung – IT-Administrator (i.R.)

RedDevil1982

Beitragsersteller

24.12.2021, 19:35

Vielen Dank! Falls jemand noch eine andere Lösung kennt, bitte melden.

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel, VBA

28.12.2021, 16:00

Erst gilt es zu ergründen "warum" du den Bereich selektieren willst ?
Was soll denn im Anschluss getan werden.
"Select", "Activate" als Dinge die normal durch den User gemacht werden machen Excel Makros sehr langsam.
Also, gilt es z.b den Bereich auf dem anderen Blatt zu kopieren, so geht dies komplett ohne select. Auch vieles anderes kann auf nicht aktiven Blättern erledigt werden, ohne dass es das aktuell aktiv ist.
Also, schildere mal deinen Anwendungsfall, dann gibt es sicher noch eine passende Lösung.

Ähnliche Beiträge

Kalender erstellen mit VBA

Ich stehe grad auf dem Schlauch und würde mich wirklich sehr über aussagekraftige Antworten freuen.Ich würde gern einen Kalender erstellen mit VBA in Ecxel in den ich mit einen Commandbutton einen Kalender erstellen kann und dieser dir Wochentag,Monat und so weiter anzeigt aber du auch in einer Tabelle z.B. Urlaub eintragen kannst und er dir das gleich mit im Kalender anzeigt wenn er erstellt wird.Habe schon ein wenig Quellcode zusammengeschrieben es kommt aber immer Laufzeitfehler 1004 Anwender- oder opjektdefinierter Fehler der Debugger sagt mir es wäre etwas an der Zeile: With Worksheets("Kalender").Range("A1;L35") = Worksheets("Kalender").Cells = "bytMonth" falsch.

...zum Beitrag

Excel VBA automatisch nächste freie Spalte nehmen?

hi hab mir mit Makros in VBA was zum übertragen von Daten in eine andere Arbeitsblatt zusammengebastelt. Dort soll es in eine Tabelle eingefügt werden die sich automatisch um eine Spalte nach rechts erweitern soll mit jedem Eintrag.

Sub inauftragplus()
   Range("D11:D22").Select
   Selection.Copy
   Sheets("Datenbank").Select
   ActiveWindow.SmallScroll Down:=-81
   Range("B9").Select
   ActiveSheet.Paste
   Sheets("Eingabe").Select
   Application.CutCopyMode = False
   Selection.ClearContents
End Sub

...zum Beitrag

Excel VBA Makros: Spalte mit bestimmter Überschrift in anderes Tabellenblatt kopieren?

Hallo zusammen,

ich stehe im Moment auf dem Schlauch.... Leider bin ich kein Profi in VBA.

Mein Problem ist folgendes: Ich möchte bestimmte Spalten aus einem Tabellenblatt in ein anderes kopieren. Da die Reiehnfolge der Spalten nicht immer gleich ist, ermittle ich die zu kopierenden Spalten anhand der Überschrift in der ersten Zeile. Soweit so gut...

Nun scheitere ich leider an der Umsetzung. Bis zum kopieren funktioniert es. Doch klappt das einfügen in das neue Tabellenblatt nicht...

Es tritt folgender Fehler auf:

"Laufzeitfehler 1004

Die Select-Methode des Range-Objektes konnte nicht ausgeführt werden"

Ich hoffe ihr könnt mir weiterhelfen

Viele Grüße

...zum Beitrag

Excel VBA Fehlermeldung was tun?

Hey Leute habe ein Problem... leider kann ich es nicht erklären da mein "wissen" zu wenig ist. :( Laufzeitfehler 9 und "Sheets(ws).Select wird gekennzeichnet...

danke schonmal im vorraus !!

...zum Beitrag

Makro beim Kopieren anpassen?

Guten Morgen

Ich habe eine Arbeitsmappe, in welcher ich monatlich ein neues Arbeitsblatt einfüge. Dies mittels Kopieren. Nun habe ich einen VBA, welcher fürs 1. Blatt korrekt funktioniert, aber beim Neuen infolge anderem Registername (?) nicht funktionier.

Was muss ich ändern? Ganz grossen Dank für die Hilfe. Nachstehend das Makro.

    Range("A2:E119").Select
    ActiveWorkbook.Worksheets("07.21").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("07.21").Sort.SortFields.Add2 Key:=Range("A3:A119") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.Worksheets("07.21").Sort.SortFields.Add2 Key:=Range("B3:B119") _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("07.21").Sort
        .SetRange Range("A2:e119")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("A3").Select
End Sub

...zum Beitrag

Laufzeitfehler 1004: Funktion SaveAs?

Hallo,

Ich bin noch Newbie in VBA und versuche mich gerade selbst daran. Beim Abspeichern der Datei erhalte ich jedoch eine Fehlermeldung (Die Methode 'SaveAs' für das Objekt '_Workbook' ist fehlgeschlagen. Könnt ihr mir sagen, was ich hier falsch mache?

Gerne auch Kritik und Anregungen zum Code. LG Syrena

Sub Bericht()

    'Datei öffnen und einfügen
    '-----------------------------------------------------------------
    Dim Liste As Workbook
    Dim Template As Workbook
    Dim Dati As Variant
    Set Template = ActiveWorkbook
    Dati = Application.GetOpenFilename("Excel-Dateien(*.xl*),*.xl*")
    Set Liste = Workbooks.Open(Filename:=Dati)
    Liste.Sheets("Tabelle1").Columns("A:E").Copy
    Windows(Template.Name).Activate
    Columns("A:E").Select
    ActiveSheet.Paste
    Workbooks(Liste.Name).Close savechanges:=False
   
   
    'Neue Datei öffnen und abspeichern
    '--------------------------------------------------------------------
    Dim Projektbericht As Workbook
    Set Projektbericht = Workbooks.Add
    Dim Speicherpfad As String, Titel As String
    Speicherpfad = "C:\ "
    Titel = "Bericht"
    Projektbericht.SaveAs Filename:=Speicherpfad & Format(Date, "YYYY-MM-DD") & Titel

End Sub

...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

Tabellen mit vba nebeneinander anstatt untereinander anordnen?

Hallo,

ich habe bereits meine Excel-Arbeitsmappe bestehend aus 250 Seiten mit jeweils 2Spalten und 250 Zeilen via vba zusammengeführt.

Allerdings wird dabei alles untereinander dargestellt und nicht nebeneinander. Kann man es so machen, dass sobald ein Worksheet abgearbeitet wurde und angezeigt wird, das nächste daneben in der Spalte beginnen lässt und immer so weiter.

Gibt es Möglichkeiten dort eine Art „Cut“ zu machen?

Sub Konsolidieren()
Dim Wks As Worksheet
Dim Bereich As Range
Dim strLC As String
Dim i As Integer
Set Wks = Worksheets.Add
Wks.Name = "Gesamt"
For i = 2 To Worksheets.Count
 With Worksheets(i).UsedRange
 strLC = .Cells(.Rows.Count, .Columns.Count).Address
 Set Bereich = .Range("A1:" & strLC)
 Bereich.Copy Destination:= _
 Wks.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
 End With
Next i
End Sub

...zum Beitrag

Beim ändern einer bestimmten Zelle Makro erneut ausführen?

Hallo,

ich habe folgendes Anliegen: Ich möchte in Excel mit VBA etwas machen. Hier einmal der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("j10")) Is Nothing Then
    Select Case Range("j10").Value
        Case "manuell"
            Range("s7:u7").ClearContents
        Case "Anfang & Ende"
            Range("s7").Value = Worksheets("PEPStauchung").Range("d2").Value
    End Select
End If
End Sub

Ich möchte, dass, wenn ich in Zelle S6 einen Wert ändere, das ganze erneut durchgeführt wird.

Wie binde ich das ein? Vielen Dank!!!

Syrena

...zum Beitrag

VBA Input-Eingabe in Zelle eintragen?

Guten Abend,

ich möchte gerne den Inhalt aus einer Inputbox in Zelle D28 schreiben, nur leider funktioniert es nicht.

Folgendes Makro: (sicherlich nicht schön geschrieben aber es bis auf die Zelle D28)

Sub erstellen()
   Dim NeuerTabellenName As String
   Dim TabellenName As Boolean
   Dim myInput As String
   Dim WsTabelle As Worksheet
   
   myInput = InputBox("Bitte geben Sie den Namen des neuen Monates an", "Monat anlegen")
   
   For Each WsTabelle In Worksheets
   If WsTabelle.Name = myInput Then
   TabellenName = True
   Exit For
   End If
   Next WsTabelle
   If TabellenName Then
   MsgBox ("Der Monat existiert bereits. Der Vorgang wurde abgebrochen. Bitte ueberpruefen Sie Ihre Eingabe.")
   Worksheets("Admin").Select
   Else
   NeuerTabellenName = myInput
   Worksheets("Muster").Copy After:=Sheets(Sheets.Count)
   Sheets(Sheets.Count).Name = NeuerTabellenName
   Worksheets("Admin").Range(D28).Value = myInput
   Worksheets("Admin").Select
   End If
End Sub

Der Fehler muss ja hier liegen:

Worksheets("Admin").Range(D28).Value = myInput

Über eine Lösung wäre ich sehr dankbar.

Gruß

...zum Beitrag

VBA mehrere Tabellen zur PDF zusammenfügen?

Hallo,

ich habe ein kleines Problem mit dem Erstellen von mehreren PFD-Seiten aus unterschiedlichen Tabellenblätter. Je nach Erfüllung der Bedingung (If-Abfrage) wird eine PDF erstellt.

Sofern nur ein eine Tabelle angesprochen wird, gibt es keine Probleme mit der Erstellung. Dabei ist es egal, ob die Tabelle oder zwei Seiten hat. Die Formatierung/Range ist korrekt und das Makro läuft durch.


Sheets("DUZ").Select
Range("A1:Y52").Select
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\DUZ.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Aber soweit ich auf zwei oder mehr Tabellenblätter zugreife, gibt es Probleme:

Sheets(Array("Deckblatt", "Übersicht", "Tagebuch", "Ges", "Reisekosten", "DUZ")).Select
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Tagebuch_RZ_DUZ.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Wie kann ich entsprechend die Range unterbringen, sodass es evtl. problemlos klappt?

'Sheets("Deckblatt").Select --> Hochformat (1 Seite)
'Range("A1:H43").Select
                    
'Sheets("Übersicht").Select --> Querformat (1 Seite)
'Range("A1:R35").Select
                    
'Sheets("Tagebuch").Select --> Hochformat (6 Seiten)
'Range("A1:V146").Select
                    
'Sheets("Ges").Select --> Hochformat (1 Seite)
'Range("A1:G43").Select
                    
'Sheets("DUZ").Select --> Querformat (2 Seiten)
'Range("A1:Y52").Select
                    
'Sheets("Reisekosten").Select --> Hochformat (1 Seite)
'Range("A1:N57").Select

Aktueller Fehlerhinweis: Anwendungs- oder objektdefinierter Fehler.

Ich hatte es auch mal wie folgt versucht, aber dann stimmt die Formatierung nicht (wenn es einzeln gespeichert wird, ist sie aber richtig). Außerdem wird dann beim Schreibschutz rumgemeckert (am Ende werden die Blätter wieder mit Schreibschutz versehen). Jedenfalls gibt es diese Probleme beim einzelnen nicht.

Sheets("DUZ").Select
Range("A1:Y52").Select
                    
Sheets("Reisekosten").Select
Range("A1:N57").Select

Sheets(Array("Reisekosten", "DUZ")).Select
Selection.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Reisekosten_DUZ.pdf", _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False

Hat jemand eine Idee?
Gruß

...zum Beitrag

Kopieren und auf andere Tabelle einfügen per VBA

Hei Leute, habe in Tabelle 3 im Bereich B5:C30 Texte stehen die ich ab der ersten freien Zelle in der Tabelle 1 der Spalte A einfügen muss. Dies muss ich ca. 100 mal machen, daher möchte ich es nicht von Hand machen. Habe schon selber probiert aber irgend etwas ist falsch, das Makro kopiert geht in die freie Zelle Tabelle1 Spalte A , aber fügt nicht ein. Kommt der Fehler Laufzeitfehler.

Sub umwechseln()

' umwechseln Makro

Dim s As String Dim i As Long

Range("A5:A29").Select
Application.CutCopyMode = False
Selection.Copy
Range("C5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B5:C30").Select
 Sheets("Tabelle1").Select
    With ActiveSheet
i = 0
Do
    i = i + 1
    s = Cells(i, "A")
    If Len(s) = 0 Then
        Cells(i, "A").Select
        
        Exit Do
    End If
Loop While i < 65535End With   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False Sheets("Tabelle3").Select
Range("E10").Select

End Sub

Sorry wenn das nicht gut dargestellt ist...weis nicht wie man aus VBA kopiert und hier in welchen Format einfügt.

Gruß Monkee

...zum Beitrag

excel Range als Datum formatieren?

Hallo, wie kann ich per Excel Vba eine beliebige Range auf einem individuellen Tabellenblatt als benutzerdefinertes Datumsformat formatieren?

Worksheets("Tabellenblatt5").Range("A1:A14") = Format("ddd. * dd.mm.yyyy")

Mein bisheriger Versuch funktioniert leider nicht.

Danke

...zum Beitrag

Excel Vba in schleife?

ich möchte diese formel in einer schleife ,aslo das es mehrere zellen ausrechnet nicht nur A1 und B1

Sub test()

Worksheets("Tabelle1").Range("C1") = IIf((IsEmpty(Range("A1")) + IsEmpty(Range("B1"))) <> 0, "", (Range("A1") - Range("B1") + 1))

End Sub

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen