Office: Offset in Array

Helfe beim Thema Offset in Array in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo , ich versuch mich gerade an Arrays. Ist leider absolutes Neuland für mich und bin gerade ein bisschen am üben. Ich bekomme in folgendem Code... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Solitec, 26. November 2020.

Seite 1 von 2

SOLITEC

Solitec

Offset in Array

Hallo ,

ich versuch mich gerade an Arrays.
Ist leider absolutes Neuland für mich und bin gerade ein bisschen am üben.

Ich bekomme in folgendem Code in der Spalte mit Offset eine Fehlermeldung.

Code:

Dim LetzteZeile As Long
Dim arr(), intIndex As Integer
Dim z As Long

Sub Versuch()

LetzteZeile = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
arr = Range("A1:S" & LetzteZeile).Value
For z = 1 To UBound(arr, 1)
If arr(z, 1) = "" Then
arr(z, 2).Offset(1, 0) = "xy"
End If
Next
Range("A1:S" & LetzteZeile).Value = arr

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ist es in Arrays nicht möglich mit Offset zuarbeiten ?

Danke

:)

Solitec, 26. November 2020

#1
KNOBBI38

knobbi38

Hallo,

ein Array ist kein Objekt und hat deshalb keine Methoden oder Eigenschaften.
Siehe auch:
https://docs.microsoft.com/de-de/dot...atures/arrays/

Gruß Ulrich

knobbi38, 28. November 2020

#2
HAJO_ZI

Hajo_Zi

laut Deinem Code soll nur Spalte A bearbneitet werden.

Option Explicit

Dim LetzteZeile As Long
Dim arr(), intIndex As Integer
Dim z As Long

Sub Versuch()
LetzteZeile = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
arr = Range("A1:S" & LetzteZeile).Value
For z = 1 To UBound(arr, 1)
If arr(z, 1) = "" Then
arr(z + 1, 2) = "xy"
End If
Next
Range("A1:S" & LetzteZeile).Value = arr
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bitte berücksichtige das Themen die Erledigt sind als Erledigt markiert werden können. Also mache es unten links mit Klick auf den Schalter "als erledigt setzen", falls Problem gelöst.
Der Zustand des Beitrages wird dann in der Übersicht angezeigt und man braucht sich diese Beiträge nicht mehr ansehen.

Meine Homepage Homeseite - Hajo's Excelseiten

Hajo_Zi, 28. November 2020

#3
SOLITEC

Solitec

Offset in Array

Vielen Dank

Solitec, 29. November 2020

#4
SOLITEC

Solitec

Hallo ,

könnt ihr mir helfen meinen Fehler zu finden ?

Code:

Dim LetzteZeile As Long
Dim arr(), intIndex As Integer
Dim z As Long

Sub Versuch()
LetzteZeile = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
arr = Range("A1:B" & LetzteZeile).Value
For z = LetzteZeile To 1 Step -1
If arr(z, 2) = "" Then
If arr(z, 1) = arr(z + 1, 1) Then
arr(z, 2) = "xy"
End If
End If
Next
Range("A1:B" & LetzteZeile).Value = arr
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich versuche in der Array von unten nach oben Zellen zu püfen.
Wenn arr(z, 2) leer und arr(z, 1) gleich arr(z, 1) = arr(z + 1, 1) also der Wert darüber übereinstimmt dann trage mir in arr(z, 2) = "xy" ein.

Wie vorher schon geschrieben taste ich mich gerade in Arrays ran und habe noch sehr viel lern bedarf.

Vielen Dank

Solitec

Solitec, 29. November 2020

#5
HAJO_ZI

Hajo_Zi

Zu Deiner Datei kann ich nichts schreiben, was wohl daran liegt das ich nicht auf fremde Rechner schaue. Ich baue keine Datei nach.

Sollte die Datei verlinkt werden?

Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender*, UserForm* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Bilder statt Datei | Excel ist sexy!

Es sollte ein aussagekräftiger Name sein.

Das ist nur meine Meinung zu dem Thema.

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
http://www.ms-office-forum.de/forum/...d.php?t=322895
ändern.

Das ist nur meine Meinung zu dem Thema.

Hajo_Zi, 29. November 2020

#6
SOLITEC

Solitec

Hallo
anbei mein Versuch in einer Datei.

Danke

Solitec, 29. November 2020

#7
HAJO_ZI

Hajo_Zi

Offset in Array

wie gewünscht wird in Zeile 16 und 7 eingetragen.
Ich hätte den Code geändert.
Code:

Dim LetzteZeile As Long
Dim arr(), intIndex As Integer
Dim z As Long

Sub Versuch()
LetzteZeile = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
arr = Range("A1:B" & LetzteZeile).Value
For z = LetzteZeile To 1 Step -1
If arr(z, 2) = "" Then
If arr(z, 1) = arr(z + 1, 1) Then
arr(z, 2) = "xy"
End If
End If
Next
Range("A1:B" & LetzteZeile).Value = arr
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hajo_Zi, 29. November 2020

#8
SOLITEC

Solitec

Danke Hajo.

eine Frage noch das ich das auch verstehe.

Ich prüfe hier doch ob der Wert leer ist:

If arr(z, 2) = "" Then

Warum musste

LetzteZeile = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row

noch in
LetzteZeile = IIf(IsEmpty......

geändert werden ?

Danke

Solitec, 29. November 2020

#9
HAJO_ZI

Hajo_Zi

Dein code gibt irgendwas mit 80 raus.
Ja Du prüfst das, aber danach ist noch ein Vergleich.

Hajo_Zi, 29. November 2020

#10
SOLITEC

Solitec

Ah , ok

Vielen Dank

Solitec, 29. November 2020

#11
RPP63NEU

RPP63neu

von Solitec

Warum musste
LetzteZeile = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row
noch in
LetzteZeile = IIf(IsEmpty......
geändert werden ?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Weil Hajo befürchtet, dass in Zeile 1048576 etwas stehen könnte.
Ist ja formal korrekt, widerspricht aber durchaus der Realität.
Denn was nutzt es, wenn die Prüfung 1048576 ergibt?
Spätestens beim Offset(1, 0) raucht das Makro ab.
Mal davon abgesehen, dass es bescheiden (also gar nicht) referenziert wurde.

Ist ungefähr wie bei Donald:
der ließ bisher auch grob 40mal prüfen, ob die Wahl gefälscht wurde.

Zuletzt von einem Moderator bearbeitet: 12. Januar 2021 um 10:17 Uhr

RPP63neu, 29. November 2020

#12
SOLITEC

Solitec

Offset in Array

Vielen Dank für dein Feedback

Ich habe keinen Ahnung von Arrays und versuche mich da gerade reinzudenken
es zu verstehen und umzusetzen.

Mal davon abgesehen, dass es bescheiden (also gar nicht) referenziert wurde.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

wie würde es denn referenziert richtig aussehen?

Desweitern habe ich noch eine Frage.

Wie kann ich das Makro anwenden wenn das Arbeitsblatt nicht aktiviert ist ?

Habe es schon mit With.....End With bzw

Code:

LetzteZeile = IIf(IsEmpty(Sheets("Versuch").Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
arr = Sheets("Versuchh").Range("A1:B" & LetzteZeile).Value
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

so versucht.

Ich habe da keine Aufgabenstellung hinter versuche es nur zu verstehen.

Ich danke euch
Solitec

Solitec, 29. November 2020

#13
RPP63NEU

RPP63neu

Mal eine korrekte Referenzierung:
Code:

Application.Workbooks("Kjuwsh").Worksheets("Tabelle2").Range("A1").Interior.Color = RGB(255, 0, 0)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

(macht die Zelle rot)

Heißt, von der Color-Eigenschaft der Interior-Eigenschaft eines Range-Objekts hangele ich mich in der Hierarchie nach "oben".
Oberhalb eines Objektes kann es nur übergeordnete Objekte geben.
Der kleinste gemeinsame Nenner ist folglich das untergeordnete Objekt mit seinen Eigenschaften und Methoden.

Range("A1").Interior.Color = RGB(255, 0, 0)
wäre so ein kgN
Gilt aber nur für das aktive Blatt!

Jetzt kannst Du Dich hochhangeln, solange es noch Sinn macht.
Das Ganze nennt sich objektorientierte Programmiersprache.

Und wieder mal der kgN für Dein Beispiel
(beachte die referenzierenden Punkte auf das übergeordnete Objekt im With-Statement)
Code:

With ThisWorkbook.Worksheets("Versuch")
LetzteZeile = .Cells(.Rows.Count, 2).End(xlUp).Row
arr = .Range("A1:B" & LetzteZeile).Value
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und der Kuddelmuddel mit Range() und Cells() sollte nach Möglichkeit auch verhindert werden.

RPP63neu, 29. November 2020

#14
SOLITEC

Solitec

Vielen vielen Dank.

Jetzt überarbeite ich erst mal ein paar Sachen von mir.

Habt mir echt weiter geholfen....

Solitec, 29. November 2020

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Offset in Array

Die Seite wird geladen...

Offset in Array - Similar Threads - Offset Array
In einer Array mehrere Spalten gleichzeitig ansprechen
in Microsoft Excel Hilfe
In einer Array mehrere Spalten gleichzeitig ansprechen: Guten Tag , gibt es die Möglichkeit in einer Array mehrere Spalten gleichzeitig anzusprechen? Code: arr = Range("U1:KM" & LZ).Value For z = 1 To UBound(arr, 1) arr(z, 10) = "" arr(z, 11) = ""...
Listbox mit Array befüllen,bearbeiten &zurückschreiben
in Microsoft Excel Hilfe
Listbox mit Array befüllen,bearbeiten &zurückschreiben: Guten Abend Ich bin ein Laie und habe mich in letzter Zeit mit einem Projekt ins VBA eingearbeitet. Nun scheitere ich aber an den Arrays in Kombination mit dynamischen Tabellen (.listobjects)...
Array mit Range aus InputBox befüllen geht nicht
in Microsoft Excel Hilfe
Array mit Range aus InputBox befüllen geht nicht: hallo folgender Code macht einen Fehler. Warum? Code: Sub Versuch() Dim meinArray() As Variant 'Fehler, weil "Typen unverträglich". Warum? meinArray = Application.InputBox("Bitte wähle...
Union(.Columns(...) als/in Array vorgeben
in Microsoft Excel Hilfe
Union(.Columns(...) als/in Array vorgeben: Moin, stehe gerade etwas auf´m Schlauch *frown.gif* und würde eure Hilfe benötigen. Kann ich die Variante Union(.Columns(…..) auch als Array darstellen? Schon mal Danke für Deine Zeit *Smilie...
Array so befüllen, dass die gefundene Werte nur einmal vorkommen
in Microsoft Excel Hilfe
Array so befüllen, dass die gefundene Werte nur einmal vorkommen: Hallo Zusammen, Wie kann man den Array so befüllen, das die Werte nur einmal vorkommen (Leere Bereiche müssen auch übersprungen werden) [ATTACH] Wenn eine Schleife merkt das der Wert (z.B....
Array-Funktion
in Microsoft Access Tutorials
Array-Funktion: Array-Funktion Access für Microsoft 365 Access 2019 Access 2016 Access 2013 Access 2010 Access 2007 Mehr... Weniger...
VBA SQL-Anfrage mit Array
in Microsoft Excel Hilfe
VBA SQL-Anfrage mit Array: Hallo Zusammen Ich bin mal wieder auf ein Problem gestoßen, bei dem ich nicht weiterkomme. In VBA eine SQL-Anfrage, in der mehrere Bedingungen über ein Array eingepflegt werden sollen. Ich...

Anmelden oder registrieren

Suche