VBA: Objekt erforderlich?

Hallo allerseits.

Ich scheitere mit einer Fehlermeldung die beim Debuggen auftaucht:

"OBJEKT ERFORDERLICH"

bei der Zuweisung in Zeile 8 [AktiveSheet ......]

Es soll eine Spalte (ziel_splte=14) von 1 bis Zeile (letzt_zle=58) mit einen Zeichen (delte_kez="X") gefüllt werden.

Ich habe bereits diese Zeile mit Set und mit .Value ergänzt gehabt, aber immer dieselbe Fehlermeldung bekommen.

' Zielspalte mit "X" füllen
ziel_splt = Worksheets("Statistik").Cells(15, 2)
letzt_zle = Worksheets("Statistik").Cells(20, 2)
delte_kez = Worksheets("Statistik").Cells(25, 2)

For I = 1 To letzt_zle
  AktiveSheet.Cells(I, ziel_splt) = delte_kez ' Zeile 8
Next I

Ich frage mich, welches Objekt hier fehlt?

Aber vielleicht ist es nur eine Kleinigkeit, die ich mit und ohne Brille mangels Erfahrung nur nicht erkenne!

Vielen Dank für eure Hilfe!

-Hermann-

3 Antworten

Vom Fragesteller als hilfreich ausgezeichnet

hannes1806

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

25.01.2021, 13:00

Hallo, es heißt ActiveSheet und nicht AktiveSheet

Woher ich das weiß:eigene Erfahrung – Faulheit >> Neugier >> Wissen

harwp

Fragesteller

25.01.2021, 13:20

Hallo Hannes!
Vielen Dank. Das sind die Fehler auf die (Her-)mann stundenlang schauen kann, ohne dass ich sie sehe!
DANKE!

-H-

hannes1806

25.01.2021, 14:38

@harwp

Hallo Hermann, keine Sorge, ich hab auch eine Weile gebraucht :)

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel, VBA

25.01.2021, 13:15

Leider ist nicht sichtbar wie deine Variblen deklariert sind.
"Worksheets("Statistik").Cells(25, 2)" ist zunächst mal ein "RANGE" Objekt.
Andere Antworten sind hier bereits hilfreich und haben die ".Value Ergänzung.
Auch auf die korrekte Rechtschreibung des Objektes achten.

nobytree2

25.01.2021, 12:31

Cells sind Objekte. Wenn Du nur Werte übertragen willst und nicht gleich ganze Zellen im Sinne von Objekten mit Format etc., dann schreibe hinter Cells(x,y) immer noch value, also

'  Zielspalte mit "X" füllen
  ziel_splt = Worksheets("Statistik").Cells(15, 2).value
  letzt_zle = Worksheets("Statistik").Cells(20, 2).value
  delte_kez = Worksheets("Statistik").Cells(25, 2).value
  For I = 1 To letzt_zle
    AktiveSheet.Cells(I, ziel_splt).value = delte_kez
  Next I

Woher ich das weiß:eigene Erfahrung – Hobby und teilweise beruflich

harwp

Fragesteller

25.01.2021, 12:40

Hallo nobytree2

Leider hat das keinen Effekt. Die Fehlermeldung erscheint immer noch genau so

;-(

-Hermann-

Hallo,

ich habe in einer fertigen Tabelle etwas geändert, um die Eingabe der Daten zu erleichtern. Statt die Daten in der Spalte zu erfassen, werden die Daten jetzt in einer Zeile eingegeben.

Also statt vorher in B10, B11, B12... jetzt in B10, C10, D10...

Die Daten werden mit Hilfe eine Makros in eine andere Tabelle transferiert und waagerecht eingefügt.

Da ich aber die Eingabeart verändert habe, werden die Daten jetzt untereinander in die Tabelle eingefügt.

Ich weiß, dass das mit "Application.Transpose" zu tun hat.

Nun weiss ich aber nicht wie ich die Zeile umbenennen muss, damit die waagerechte Darstellung übernommen wird.

Wie ändere ich die Zeile, damit die angesprochenen Werte waagerecht in die Zeile kopiert werden?

Hier der komplette Code:

Sub transfer_werte()
    Dim rngKunde    As Excel.Range
    Dim rngReklam   As Excel.Range
    Dim rngArtikel   As Excel.Range

     Set rngKunde = Worksheets("Eingaben").Range("C5:C10")
    Set rngReklam = Worksheets("Eingaben").Range("D5:D9")
    Set rngArtikel = Worksheets("Eingaben").Range("C14:L14")
   
        With Worksheets("Liste")
          With .Cells(.Rows.Count, 2).End(xlUp)
               .Offset(1, 0).Resize(rngKunde.Columns.Count, rngKunde.Rows.Count).Value = Application.Transpose(rngKunde.Value)
        End With
    End With
   
    With Worksheets("Liste")
        With .Cells(.Rows.Count, 8).End(xlUp)
             .Offset(1, 0).Resize(rngReklam.Columns.Count, rngReklam.Rows.Count).Value = Application.Transpose(rngReklam.Value)
        End With
    End With
  
   With Worksheets("Liste")
        With .Cells(.Rows.Count, 14).End(xlUp)
             .Offset(1, 0).Resize(rngArtikel.Columns.Count, rngArtikel.Rows.Count).Value = Application.Transpose(rngArtikel.Value)
        End With
    End With
      
End Sub

...zur Frage

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!

...zur Frage

IF Funktion in excel auf mehrere Zellen anwenden?

Hallo,

Ich möchte wenn in einer Zelle etwas reingeschrieben wird das die darauffolgenden Felder zu Pflichtfelder werden. Dazu nutze ich aktuell folgende Formel.

Private Sub Workbook_BeforePrint(Cancel As Boolean)

Dim zeile As Long, OK As Boolean

OK = True

For zeile = 1 To Tabelle1.Cells.SpecialCells(xlCellTypeLastCell).Row

If Worksheets("Tabelle1").Cells(4, 2).Value <> "" Then

If Worksheets("Tabelle1").Cells(4, 3).Value = "" Then OK = False 'Spalte C

If Worksheets("Tabelle1").Cells(4, 4).Value = "" Then OK = False 'Spalte D

If Worksheets("Tabelle1").Cells(4, 5).Value = "" Then OK = False 'Spalte E

If Worksheets("Tabelle1").Cells(4, 6).Value = "" Then OK = False 'Spalte F

If Worksheets("Tabelle1").Cells(4, 8).Value = "" Then OK = False 'Spalte H

If Worksheets("Tabelle1").Cells(4, 9).Value = "" Then OK = False 'Spalte I

End If

If Not OK Then

MsgBox "Drucken nicht möglich - nicht alle Pflichtfelder ausgefüllt"

Cancel = True

End If

End Sub

Nun möchte ich das die obige Formel von B4- B25 durchgeführt wird. Also das wenn in in B8 z.B. etwas reingeschrieben wird das dann die Zellen in B8 geprüft werden das dort in den anderen Feldern auch was reingeschrieben worden ist.
Wie würde ich das ganze hinbekommen?

Danke im Voraus

...zur Frage

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.

...zur Frage

Wie kann ich bei VBA nach mehreren Kriterien in einer Zeile suchen?

Hallo zusammen.

Ich hab leider nix gescheites zu meiner Problemstellung gefunden, deshalb frage ich jetzt einfach mal direkt nach: Ich möchte in einer großen Tabelle nach mehreren Kriterien in der ersten Zeile suchen. In dieser Zeile sind Überschriften (aus einer .xml übernommen). Leider wiederholen sich die Überschriften ab und an, allerdings mit den unterschiedlichsten Ziffern als Anhängsel (zb AKMKaufteile, AKMKaufteile5, AKMKaufteile324...). Das wäre jetzt aber noch kein Problem, da ich ja normalerweise eh nur nach Teilen des Wortes suche. Ich habe allerdings auch Überschriften die ziemlich ähnlich sind und mit als Treffer gewertet werden so wie ich das mache (zb AKMKaufteileD34, AKMKaufteileB412... also immer entweder das D oder das B mit da drin, und diese Spalten brauche ich nicht).

Zusammengefasst möchte ich einfach nur die erste Zeile nach AKMKaufteile (das ohne D und B) suchen und auch die Zellen/Spalten haben, wo die Ziffern angehängt sind; es handelt sich dabei um Preise, bei D ist das Datum und B der Benutzername angegeben, letztere beiden sind uninteressant).

For i = 1 To 1000
   If InStr(1, Cells(1, i).Value, "AKMKaufteile") > 0 And InStr(1, Cells(1, i).Value, "AKMKaufteileB*") = 0 And InStr(1, Cells(1, i).Value, "AKMKaufteileD*") = 0 Then
      For j = 1 To 300
         If InStr(1, Cells(j, i).Value, "") > 0 Then
             Cells(j, i).Activate
              ActiveCell.Copy Destination:=Worksheets("Ergebnis").Cells(j, 10).Offset(1)
         End If
      Next j
         
   End If
Next i

(So klappt es leider nicht)

Vielen Dank für jeden Tipp der mich weiterbringt ::)

Gruß

Jan

...zur Frage

VBA Find Methode findet nur Zahlen 1 bis 9, nicht >10 (falscher Datentyp?

Hallo Zusammen,

wieder eine VBA Frage meinerseits:
Ich vermute, dass es bei folgender Zeile zu einem Problem kommt, wenn Zahlen >9 gefunden werden sollen:
stunden = Worksheets("Tabelle2").Cells(ActiveCell.Row, Range("1:1").Find(eingabe).Offset(0, 0).Column)

"stunden" und "eingabe" sind jeweils als double definiert.
Bei den zahlen 1-9 habe ich meinen Code bisher probiert, aber ab 10 kommt es zum Crash und an der Zelle steht, dass folgende Meldung: "ein in der Formel verwendeter wert ist vom falschen Datentyp"

Vielen Dank für jede Antwort bereits im Voraus!
Liebe Grüße Leo

...zur Frage

Ausgewählte Tabellenblätter als ein PDF speichern?

Hi Leute,

ich hab mit Programmierung allgemein und auch mit Excel VBA relativ wenig am Hut. Besser gesagt nichts!
Allerdings sollte ich nun für meine Arbeit ein kleines Tool basteln, welches aus einer Vielzahl von vorhandenen Tabellen, nur die benötigten anzeigt. Das alles habe ich auch hinbekommen, allerdings fehlt mir nun ein Button, welcher bei drücken nur die ausgewählten (Rest ist ausgeblendet) Tabellenblätter als eine zusammenhängende pdf speichert. Ist das möglich und wenn ja, hättet ihr da einen kleinen Code für mich?

vielen Dank für jede Hilfe welche mich aus der Verzweiflung holt ! 😅

...zur Frage

Excel Makro VBA | Zellenbereich erweitern und nach rechts verschieben?

Guten Tag,

ich würde eine Tabelle erstellen wollen, welche man immer links erneuern kann, sprich mit dem Tastenklick auf die Schaltfläche, soll eine neue Spalte (nur von G6:G20) eingefügt werden. Gleichzeitig (bzw. davor) sollen die alten Spalten nach rechts geschoben werden.

Ich habe es versucht, durch ein Bild zu verdeutlichen.

Habe im Internet folgenden Ansatz gefunden. Habe in VBA aber nur schlechte Kenntnisse, weshalb ich den Code nicht auf mein Problem anpassen kann. Könnt ihr mir da helfen?

2. Das Eingefügte (also die Vorlage(Tabellenstriche)) kann ja von irgendwo eingefügt werden: zB: X1000:X1014 - richtig?

...zur Frage

Excel-Makro hält plötzlich an

Hallo,
seit kurzem hakt es beim Ablauf eines Makros, obwohl ich dieses Makro schon lange ohne Probleme benutze.
Nach Anstoß des VBA-Makros erscheint immer mal wieder das Panel mit folgender Meldung:

"Ausführung des Codes wurde unterbrochen"
Fortsetzen Beenden Debuggen Hilfe

Klicke ich auf "Fortsetzen" läuft das Makro weiter, kann dann aber (an einer anderen Stelle) wieder hängenbleiben oder auch komplett durchlaufen.
Klicke ich auf "Debuggen" sehe ich die Stelle(n), an denen das Makro hängenblieb, das sind dann Anweisungen wie diese:

Application.Display Alerts = True
Sheets.Add before: = Sheets("Tabelle99")
Sheets("Tabelle88").Select

also ganz normale VBA-Anweisungen.
Und, es hakt immer an andren Stellen, so dass ich davon ausgehe, dass es nicht an der Code-Zeile selbst liegt.

Klicke ich auf "Hilfe" erscheint nach langer Suche nichts, gebe ich dann in dem angebotenen Suchfenster die Fehlermeldung als Suchstring ein, findet die Hilfe nichts dazu.

Was kann da sein?

LG PG

Der VBA-Code besteht aus 1 Hauptprogramm (Steuerprogramm) und ca. 10 Subroutinen, die Schlüsselworte in einem Excel-sheet suchen und dann Werte vom Spender-Sheet ins Schreibblatt übertragen.

Windows 7
Excel 2007

...zur Frage

Excel Messagebox mit Auswertung?

Hallo,

Ich habe ein Problem bei Excel Vba und hoffe ihr könnt mir weiterhelfen.

Und zwar habe ich eine größere Excel Datei wo täglich neue Daten automatisch hinzukommen.

Beim Öffnen der Excel wird automatisch die Seite Info geöffnet mit den neuesten Informationen.

Nun möchte ich aber folgendes:

Auf der Seite Fehler werden täglich die fehlerhaften Produkte eingetragen und zwar in den spalten, Lackfehler, rost, gebrochen, defekt.

In der spalten Artikelnummer wird natürlich die Artikelnummer eingetragen und in den oben erwähnten spalten die Anzahl der Fehler pro Artikelnummer.

Also zb. Artikelnummer: 123455 hat bei spalten rost 4 und bei Spalte lackfehler 5

Und nun kommt meine frage:

Ich möchte das beim Öffnen der Excel eine Messagebox erscheint wo die Artikelnummern der letzten 5 Tage mit Anzahl der jeweiligen Fehler automatisch angezeigt wird.

Kann mir hier jemand den Vba Code dafür sagen?

Danke im Vorhinein.

...zur Frage

VBA Excel Such- und Kopierfunktion?

Moin,

ich habe eine Tabelle eine Excel Tabelle eines Händlers, bei welcher ich nach folgendem suchen muss

Spalte Rücksendung : Wenn ja, dann soll diese Spalte in das Tabellenplatt "Rücksendungen" kopiert werden
Zielland : Wenn Deutschland, dann in Tabelle Deutschland kopieren, ansonsten in Tabelle Ausland

Wie ich die Zeieln kopiere usw habe ich schon draußen, alelrdings habe ich noch viel mehr Sortierkrietreiun und die beiden nur Beispiele sind, würde ich gerne das ganze in einer Funktion programmieren :

--> If "Spalte" = "Suchkritriterium" Then --> Kopieren nach "Ziel"

Allerdings hapert es hier unter anderem daran, wie ich die Funktion dann mit den jeweiligen Argumenten aufrufe.

Ich hoffe ihr könnt mir helfen .... ist sehr wichtig ^^

Danke schonmal :)

...zur Frage

Excel VBA: Bild einfügen, in Variable speichern, Größe ändern, ausrichten?

Ich habe jetzt unzähle Varianten durch. Ich baue ein Bestellsystem für zwei verschieden Shops. Heißt, bei jedem eingetragenen Artikel in die Bestellliste soll am Ende der Listen-Zeile das jeweilige Logo eingefügt werden, kleiner als das Originalbild, kleiner als die Zeile selbst, für die Übersichtlichkeit in der Liste, mittig ausgerichtet.

Ich habe von Pictures.Insert zu Shapes.AddPicture gewechselt, da ich gelesen habe, dass dies die korrektere Form sei. Jetzt bekomme ich eine Fehlermeldung bei der Festlegung eines Rahmens.
Kann mir jemand meine Fehler aufzeigen? Folgende Fragen stellen sich mir:
- Welchen Variablen-Typ brauche ich für ein eingefügtes Bild?
- Wie kann ich diese Variable dann verwenden, um Größe, Position und Rahmen festzulegen?

Danke sehr!!!!!!

Sub LogoEinfügen(Shop As String, Zeile As Integer, Spalte As Integer)

Dim Breite As Integer
Dim Höhe As Integer
Dim strDatei As String
Dim Logo As Object
Dim ShopFarbe As Long, Rot As Long, Blau As Long

' Farben für die zwei Shops festlegen
Rot = 26316
Blau = 13395456

' Dateinamen je nach Shop auswählen und Shop-Farbe einstellen
If Shop = "ZL" Then
  strDatei = "D:\logo1.jpg"
  ShopFarbe = Rot
End If

If Shop = "AQ" Then
  strDatei = "D:\logo2.jpg"
  ShopFarbe = Blau
End If

' Bild einfügen

' Ort festlegen
Dim rg As Range
Set rg = ActiveSheet.Cells(Zeile, Spalte)

' Und einfügen
Set Logo = ActiveSheet.Shapes.AddPicture(strDatei, msoTrue, msoTrue, rg.Left, rg.Top, -1, -1)
Set rg = Nothing

With Logo
      .LockAspectRatio = msoFalse              ' Verzerrung egal
      .Height = Rows(Zeile).RowHeight - 4      ' kleiner als Zeile
      .Width = Columns(Spalte).Width - 4       ' schmaler als Spalte
      .Top = Cells(Zeile, Spalte).Top + (Cells(Zeile, Spalte).Height - Logo.Height) / 2         ' mittig
      .Left = Cells(Zeile, Spalte).Left + (Cells(Zeile, Spalte).Width - Logo.Width) / 2          ' mittig
  End With
  
  ' Rahmen ums Bild, in der Farbe des Shops
  With Logo.ShapeRange.Line
    .Visible = msoTrue
    .ForeColor.RGB = ShopFarbe
    .Weight = 1.5
    .ForeColor.TintAndShade = 0
  .ForeColor.Brightness = 0
End With

Set Logo = Nothing

' Zeilenhöhe anpassen
' Rows(Zeile).RowHeight = Logo.Height
 
End Sub

...zur Frage

Excel UserForm Hilfe?

Hallo ich würde gerne mit einer UserForm meine Tabelle befüllen wie kann ich es machen das das was ich in ein Textfeld eingetragen habe in ein bestimmtest Feld eingetragen wird z.B. D12

...zur Frage

VBA Zellen verbinden mit schleife?

Hallo,

ich möchte mit Visual Basic in der Spalte A jeweils die 4 aufeinander folgenden Zellen miteinander verbinden. Also A4 - A7, A8 - A11 usw. In der Zeile mit range spuckt er einen Fehler und ich komme nicht drauf warum. Wäre super, wenn jemand mir helfen könnte 😁

Quellcode:

Option Explicit
Sub Merge()
Dim Counter1 As Integer
Dim Counter2 As Integer
Counter1 = 3
Counter2 = 7
Worksheets(„Tabelle1“).Activate
Do While Counter1 <= 1000
Range(Cells(Counter1,1), Cells(Counter2,1)).Select = True
Selection.Merge
Counter1 = Counter1 + 4
Counter2 = Counter2 + 4
Loop
End Sub

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen