Darum würde ich die Zeilenzahlen direkt mit den unsortierten Daten ergänzen und anschliessend normal sortieren. cu
Chris
von: Nepumuk
Geschrieben am: 25. 2017 18:25:15
Hallo,
teste mal: Sheets("Geordnet")(a) = Sheets("Ungeordnet")(Sheets("Zeilennummer")(a, b))
Gruß
Nepumuk
von: Zwenn
Geschrieben am: 25. 2017 18:29:45
Hallo Moritz,
so kannst Du keine Zeile kopieren. Schon allein deshalb nicht, weil Du auf der rechten Seite nur eine Zelle angibst. Damit stimmen ja schon der Ziel- und der Quellbereich rein größenmäßig nicht überein. Es funktioniert aber generell nicht so, wie Du es versuchst, sondern so:
Sheets("Ungeordnet")( ZEILENNUMMER) Destination:=Sheets("Geordnet")( _
ZEILENNUMMER)
Viele Grüße,
Zwenn
Betrifft: Wie wär's mit Folgendem,...
von: Luc:-? Geschrieben am: 25. Problem mit VBA-Programm - Laufzeitfehler 438. 2017 18:47:43
…Moritz:
Do While Sheets("Zeilennummer")(a, b) <> ""
Sheets("Geordnet")(a) = Sheets("Ungeordnet")(Sheets("Zeilennummer")(a, b))
Der Objekt-fehlt -Fehler kann eigentlich nur auftauchen, wenn die 1. leere Zelle erreicht wurde, weil das Konstrukt dann keine ZeilenNr liefert.
Excel Laufzeitfehler 438 E
Verursacht werden solche Codes hauptsächlich durch 2 Dinge: Der Makrorekorder: Dieser arbeitet gerne mit solchen übergeordneten Objekten. Und der Anfänger übernimmt dann diese Schreibweisen, bzw. diese Objekte. Es gibt einige Beiträge in Online Excel, die sich damit beschäftigen. Schlechte Literatur: Es gibt leider einiges auf dem Markt, was nicht auf diese Problematik eingeht, bzw. genau solch einen Murks schreibt. Solche Autoren schreiben ihre Bücher mit dem Makrorekorder, ohne den Code zu bereinigen. Laufzeitfehler `438` bei Excel 2003 ?. Und ganz zum Schluss: Man kann diesen Fehler auch bewusst produzieren, bzw. auf ihn testen. Wenn man z. B. prüfen will ob ein Objekt eine Eigenschaft besitzt. Wenn der Laufzeitfehler auftaucht, kann ich weitgehend davon ausgehen: Es besitzt sie nicht. Weitere Artikel der Gruppe: Tutorials Aus Excel VBA
Nach oben
Excel Laufzeitfehler 43.Fr
Teilweise habe ich genauso viele Zeilen einer Auftragsnummer, wie die Gesamtanzahl aus Spalte E ist. Teilweise sind es weniger. Stimmt die Zahl überein, soll in Spalte A im letzten Schritt eine 30 stehen,
wenn die Zahl sich unterscheidet soll es eine 12 sein. Da ich mir vba autodidaktisch immer mal wieder nebenbei beibringe, arbeite ich mit Zwischenschritten. Erst zähle ich die Anzahl der Zeilen einer Auftragsnummer hoch, bis ich in der letzten Zeile bin. Anschließend wollte ich mich von unten nach oben arbeiten,
um die letzte Zahl einer Auftragsnummer aus Spalte A in allen Zeilen darüber einfügen,
wenn die Auftragsnummer übereinstimmt. Der letzte Schritt, den ich bisher nur geplant habe, ist Zeileninhalt der Spalten A und E zu vergleichen
und A dementsprechend zu überschreiben (12/30)
Beim kopieren aus Schritt 2 entsteht ein Laufzeitfehler. Laufzeitfehler '438'. Vielleicht kann sich jemand mal meinen bisherigen Code und meine Beispieldatei anschauen. Beispieldatei:
Code: Sub test1()
Dim kanr As Long
Dim kanrn As Long
Dim i As Long
Dim j As Long
Dim lz As Long
Dim anzpos As Long
Dim auf As Long
Dim auf2 As Long
lz = 22
anzpos = 1
For i = 2 To lz
kanr = Cells(i, 2)
kanrn = Cells(i + 1, 2)
Cells(i, 1) = anzpos
If kanr = kanrn Then
anzpos = anzpos + 1
ElseIf kanr <> kanrn Then
End If
Next i
For j = lz To 2 Step -1
auf = Cells(j, 2)
auf2 = Cells(j - 1, 2)
Do Until auf <> auf2
Cells(j, 1)
j = j - 1
Loop
Next j
End Sub
btw: Es handelt sich um eine einmalige Auswertung, weshalb das ganze nicht besonders elegant sein muss.
Excel Laufzeitfehler 438 En
Laufzeitfehler '438' von KJ vom 01. 08. 2019 19:47:49
AW: Array? - von Fennek am 01. 2019 19:53:07
AW: Array? - von KJ am 01. 2019 19:57:15
AW: Array? - von Daniel am 01. 2019 20:38:11
AW: Array? - von KJ am 01. 2019 21:05:38
AW: Array? - von Daniel am 01. 2019 22:41:21
Betrifft: Laufzeitfehler '438'
von: KJ
Geschrieben am: 01. Excel laufzeitfehler 438 menu. 2019 19:47:49
Hallo lieber community,
um mal die Funktionsweise eines Arrays in VBA zu verstehen, habe ich mal einen VBA code zusammen gegooglet. Er soll vom Arbeitsblatt Operator Daten auf das Arbeitsblatt BUIcopy übertragen. Jedoch bekomme ich die Fehlermeldung "Objekt unterstützt diese Eigenschaft oder Methode nicht: Range("A1") = ". Leider finden wir auch nichts wirklich gescheitest im Internet. Vielen Dank euch schonmal im Voraus. Sub test()
Dim RG As Range
heets("Operator"). Activate
Set RG = Range("J11:K12")
tivate
Worksheets("BUIcopy"). Activate
Dim Col As Integer
Range("A1") =
End Sub
Betrifft: AW: Array? von: Fennek
Geschrieben am: 01. 2019 19:53:07
ungeprüft
Worksheets("Operator")("J11:K12") Worksheets("BUIcopy")("A1")
Wenn du etwas über Arrays lernen möchtest:
Geschrieben am: 01.
Tipps und Tricks, Hilfe und Diskussionen rund um die Programmiersprachen C#,,, Visual Basic, und Andere. Hallo, Fremder! Anscheinend sind Sie neu hier. Um zu beginnen, melden Sie sich an oder registrieren sich. Kategorien
1329418 Alle Kategorien 343303 PC-Hardware
92208 PC-Systeme
16967 Maus, Tastatur, Webcam
14730 Drucker, Scanner & Co.
Machen wir also eine Reise zu den ersten Caesaren Roms von Gaius Julius bis Domitian. Von "Caesar" leiten sich "Kaiser" und "Zar" ab
Vorneweg lohnt eine nähere Betrachtung der Schreibweise und Aussprache Caesars, denn im Lateinischen wird ein "c" vor "a" als "k" ausgesprochen. Dies erklärt auch die klangliche Nähe von "Caesar" (Aussprache: Käsar) zur deutschen Titelbezeichnung "Kaiser" (althochdeutsch: Keisar), die sich davon ableitet – was gleichfalls für den russischen Kaisertitel "Zar" gilt. Lediglich in der eingedeutschten Schreibweise "Cäsar" mit Umlaut wäre somit die Aussprache des Namensanfangs als "tsä" korrekt. Für den vorliegenden Beitrag bleiben wir bei der originalen Schreibweise Caesar und beginnen inhaltlich mit einem Münzporträt des berühmten Namensgebers Gaius Julius Caesar auf einem Denar, der in seinem Todesjahr 44 v. Chr. und auch posthum vier Jahre später nochmals geprägt wurde. Römische münzen caesar palace. Das Besondere daran ist, dass damals zum ersten Mal ein noch lebender Römer auf Münzen verewigt wurde.
Römische Münzen Caesar Palace
EUR 39, 00 Römische Münze Denar G. Julius Caesar in Münzen der Römischen Republik online kaufen | eBay. Julius Caesar+Münzkapsel+Münzbeschreibung EUR 5, 95 oder Preisvorschlag Römische Denar Kaiserzinn-Münze Gaius Julius Caesar im Folder EUR 10, 00 3 Artikel von internationalen eBay-Verkäufern gefunden [#905348] Münze, Julius Caesar, Aureus, Rome, Very rare, VZ, Gold, Crawford:475/ EUR 14. 300, 00 Kostenloser Versand oder Preisvorschlag [#894344] Münze, Julius Caesar, Aureus, 45 BC, Rome, SS, Gold, Crawford:475/1a, EUR 10. 989, 00 Kostenloser Versand oder Preisvorschlag [#902508] Münze, Julius Caesar, Denarius, Roma, S, Silber, Crawford:480/13 EUR 748, 00 Kostenloser Versand oder Preisvorschlag
So kam es kurz darauf am 15. März 44 v. zu jenem legendären "Tyrannenmord", der seitdem unzählige Male in Kunst, Literatur und später Film thematisiert wurde. Allerdings sollten die an der Erdolchung beteiligten Verschwörer letztlich das Nachsehen haben: Caesars Großneffe und von ihm bestimmter Haupterbe Octavian setzte sich in den nachfolgenden Machtkämpfen 31 v. als Alleinherrscher durch und führte vier Jahre später in Rom das Kaiserreich ein. Römische Münze? Caesar ? | eBay. Octavian führte Caesars Autokratie zum Kaiserreich
Zugleich verlieh ihm der Senat den Ehrennamen "Augustus" (der Erhabene), der wie "Caesar" ebenfalls in die Titulatur künftiger Kaiser Roms aufgenommen wurde. Numismatisch erinnert hier an den zweiten Caesaren ein um die Jahrtausendwende in Lugdunum (Lyon) geprägter Denar aus der – durch inneren Frieden und Expansion nach außen gekennzeichneten – Blütezeit dessen lang anhaltender Alleinherrschaft bis zu seinem natürlichen Tod im Jahr 14 n. Von Augustus geht unsere Caesaren-Münzengalerie zunächst weiter mit den Herrschern der julisch-claudischen Dynastie: Tiberius (14–37), Caligula (37–41), Claudius (41–54) und Nero (54–68).