Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon CBundy vom 04.05.2019, 14:31 Options

Makro: Zellen mit Inhalt erkennen und kopieren

Hallo,

ich habe folgende Problem:

In meiner Tabelle stehen in Spalte "K" unregelmäßig Werte. Ich würde diese Werte gerne mit Hilfe eines Makros von der jeweiligen Zelle in Spalte "K" in die gleiche Zeile in Spalte "F" kopieren. Und den Wert in Spalte "K" löschen.

Also z.B.: Wert in "K8" verschieben in "F8" und Wert in "K8" löschen............. dann weitersuchen nach dem nächsten Wert, der z.B. in "K23" stehen kann und die selbe Aktion durchführen ...

Kann mir jemand helfen?

Schöne Grüße,
Christian

Antwort schreiben

Antwort 1 von Pistenschreck vom 04.05.2019, 15:44 Options

Hi Christian

Mit folgendem Code:

Sub VERSCHIEBEN()
    For i = 2 To [K65536].End(xlUp).Row
    If IsNumeric(Cells(i, 11)) Then
    Cells(i, 6) = Cells(i, 11)
    Cells(i, 11) = ""
    End If
    Next i
End Sub

Gruss Werner

Antwort 2 von alterHase vom 04.05.2019, 17:13 Options

@Werner Pistenschreck

Interessante Abkürzung [..] für Range(..)
Kennst Du davon noch mehr, bzw. eine Referenz?

Gruß
alterHase

Antwort 3 von CBundy vom 07.05.2019, 08:07 Options

Das ist genau das was ich gesucht habe´.

Allerbesten Dank dafür!!!! :)

Schöne Grüße,
Christian

Antwort 4 von Pistenschreck vom 07.05.2019, 08:43 Options

Danke Christian für die Rückmeldung. Schön wenn man helfen kann.

@alterHase
Im Moment kommt mir nichts in den Sinn. Wenn mal ein Code entsanden ist, gehe ich noch einige male durch und probiere da und dort zu kürzen.

Gruss Werner

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Tipp einschicken

News einschicken