Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.05.2024 20:49:40
Listbox - ausgewählte Zeile aus Tabellenblatt markieren
04.05.2024 16:03:54
Problem mit einer Regel bei bedingter Formatierung
04.05.2024 10:29:31
.Find(what:=..., Lookat:=xlWhole, LookIn:=xlValues) ->For
04.05.2024 09:44:33
Bestimmten bereich aus einem String per VBA separieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
176to180
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
176to180
176to180
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wie verwende ich End(XlDown)?

Wie verwende ich End(XlDown)?
01.11.2002 14:35:10
Sergio
Hallo

Ich habe eine Frage, die Ihr mir sicher in Sekunden beantworten könnt!

Wie kann ich beim copy / pasten von ("A1")nach ("B1")bei dem zweiten lauf den Befehl geben, dass mir das Macro die nächst leere Zelle in Range("B") suchen soll um dort den Value zu Pasten? Ist jedoch der Wert von ("A1") leer, soll das macro nichts pasten und ohne meldung den Vorgang beenden!


Bsp.:

Sub Macro1()
Range("A1").Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").ClearContents
End Sub

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Wie verwende ich End(XlDown)?
01.11.2002 14:46:33
PeterW
Hallo Sergio,

verstehe ich richtig, immer bei EIngabe eines Wertes in A1 soll dieser in die nächste freie Zelle der Spalte B geschrieben werden?

Der Code gehört in das Klassenmodul der Tabelle.

Gruß
Peter

Re: Wie verwende ich End(XlDown)?
04.11.2002 14:59:08
Sergio
Hallo Peter,

Ich brings nicht auf die Reihe, dass sich beim zweiten Eintrag der Curser auf ("B2") setzt. Obwohl ich deine Aufstellung eingebunden hab. Kannst Du mir nicht ein Macro aufzeigen, dass ich als test laufen lassen kann? Ich bin total laie auf diesem Gebiet. Ich denke mein Problem ist, dass ich nicht weiss wie der Befehl im VBA für "Wenn B1 grösser als 0 ist, dann gehe zu B2"ist. Deshalb konnte ich auch nicht verstehen, für was dieser Abschnitt in deinem Beispiel stand "Cells(lgLetzte, 2) = Cells(1, 1)"?

Ich hoffe, Du hast Verständnis für den Schwerfelligen CH?

Anzeige
Re: Wie verwende ich End(XlDown)?
04.11.2002 18:09:01
PeterW
Hallo Sergio,

das Makro geht einen anderen Weg, es überprüft ob eine Eingabe in A1 erfolgt und sucht dann die nächste freie Zeile in Spalte B.
Cells(lgLetzte, 2) ist die erste freie Zeile in Spalte B und Cells(1, 1) ist das gleiche wie A1.

Hast Du den Code in das Klassenmodul der Tabelle kopiert? Im VBA-Projektfenster Doppelklick auf die Tabelle, in der der Code arbeiten soll und in das sich öffnende Fenster den Code kopieren.

Oder hab ich Dein Problem vielleicht falsch verstanden? Schreib noch einmal genau, was Du erreichen willst.

Gruß
Peter

Re: Wie verwende ich End(XlDown)?
05.11.2002 11:09:20
Sergio
Hallo Peter

Danke für die Erklärung. Bevor ich dir den letzten Nerv raube, könnte ich dir das Excel senden. Die Einbingung hat geklappt aber irgedwie schrieb das Programm dann meine Daten auf die unterste Zelle. Ich versuchte es zu ändern jedoch mit dem Ergebnis Debug.

Vielleicht sollte ich doch noch kurz erklären, was das Programm tun sollte:

Es sollte mir einen vorahndenen Wert ("C31":"D31")beim anklicken des Button den ich kreiert habe in ein anderes vorhandenes Sheet angefangen von ("B2":"C2") Copy.Pasten. Jedesmal, wenn ich den Button wieder drücke, soll er mir Den Wert von ("C31":"D31") auf die nächst leere Zelle angefangen bei ("B2":"C2") nach unten Copy.Pasten.

Mein Macro bis jetzt:

Sub Save_Kunde()
'
' Save_Kunde Macro
' Macro recorded 30.10.02 by Cenci

Sheets("Klassifikation").Select
Range("C31:D31").Copy
Sheets("Erfasste Kunden neu").Select
' HIER MÜSSTE DAS MACRO VON "B3" ANFANGEN ZU SUCHEN UND DEN WERT IN DIE NÄCHST LEERE ZELLE PASTEN
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Eingabe").Select
Range("f13,i13,l13,f16,i16,l16,f19,i19,l19,f22,i22,l22,f25,i25").Select
Range("i25").Activate
Application.CutCopyMode = False
Selection.ClearContents
Range("a1").Select
ActiveWorkbook.Save
End Sub

Falls Du das Excel brauchst, meine E-Mail: sergio.cenci@cchbc.com

Anzeige

9 Forumthreads zu ähnlichen Themen

Endxldown - 2010
Lucia

Hallo zusammen,
ich habe in meinem excel 2007 folgenden code zur Datenübernahme von einem Formular in das Excel:
Private Sub Datenuebernahme_Click() Range("A8").Select If ActiveCell.Offset(0, 0).Value "" Then Selection.End(xlDown).Select End If ActiveCell.Offset(0, 0).Select If NameZa...
29.12.2010 16:56:31
Thread-ID: 1193246
3 Beiträge
Anzeige
mit VBA vorangehendes Zeichen löschen
Micha

Hallo zusammen,
mit einem Makro finde ich einen Teilstring in einer Zelle. Nun möchte ich ein vorangehendes "+" und diesen Teilstring löschen. Das Problem ist, dass das + manchmal direkt vor dem String steht und manchmal stehen noch andere Zeichen dazwischen, die aber nicht gelöscht werden...
18.02.2014 15:05:59
Thread-ID: 1350226
16 Beiträge
Range.end(xldown)
Christian

Hi Leute !Ich will in einer Tabelle die nächste freie Zeile ermitteln.mit Cells(1,1).end(xldown).offset(1,0) klappt das an sich, aber wenn die Tabelle leer ist oder nur eine Zeile enthält dann nicht, weil das Ding zur letzten Zeile geht.
Wie kann ich sowas am elegantesten lösen?Wenns geht oh...
04.02.2003 12:06:12
Thread-ID: 213494
2 Beiträge
Anzeige
Problem mit Selection.End(xlDown)
Albert
Hallo liebes Forum,
ich habe ein Problem bei Range(Selection, Selection.End(xlDown)).Select und zwar kann es vorkommen, das nur eine Zeile Daten hat und dann wird bis ans Tabellenende selektiert. Es soll aber in diesem Fall nur die eine Zeile selektiert sein.
Hinweis: Wenn Mehrere Zeilen...
12.04.2022 08:28:27
Thread-ID: 1879296
7 Beiträge
Range(Selection, Selection.End(xlDown)).
Martin
Liebe alle,
seit heute auf Office 64-bit-Version gezwungen worden. (evt. deshalb?)
Bei folgender (mit Makrorecorder aufgenommen um sicherzugehen, dass ich nix falsch tippe) und Ausführung
ActiveSheet.Range("A7").Select
Range(Selection, Selection.End(xlDown)).Select
Kommt eine F...
30.01.2023 10:58:20
Thread-ID: 1918029
11 Beiträge
VBA Range End Zelle ermitteln
Peter
Hallo,
ich möchte gern die aktuell ausgewälte range in zahlen auslesen. Also statt A1:J10 -> 1 | 1 | 10 | 10 damit ich damit weiter arbeiten kann.
Aktueller code:
Dim test As String
Dim spaltennummer_erste As Long
Dim zeilennummer_erste As Long
Dim spaltennumm...
11.02.2023 23:13:44
Thread-ID: 1919882
6 Beiträge
.End(xlDown).Row - Eleganter möglich in einer def. Range?
Ralf
Hallo liebes Forum,

ich habe eine Frage bzw. benötige einen Hinweis für die Ermittlung der letzten Benutzenzeile in einer Range. Im Grunde ist das Ermitteln dieser Spalte durch die Funtkion der SpecialCells oder der .End(xlDown) Funktion relativ einfach. Dennoch habe ich mir im Kopf irgendw...
23.09.2023 13:36:23
Thread-ID: 1947122
5 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
5
15
1
2
6
10
5
4