Tabellenkalkulation

Teilweises Löschen von Zellinhalten

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hallo, wie kann man mittels Makro nur den Teil einer Zelle löschen und den anderen erhalten? Bsp: B60200 Der Buchstabe B soll gelöscht, die Zahl 60200 aber in der Zelle erhalten werden. Viele Grüße jewe

Antwort 1 von Guenter

Hallo,

wenn dieser Wert in A1 steht,
dann


Option Explicit

Sub test()
 [a1].Value = Mid([a1].Value, 2)
End Sub

Bei mir läufts.

Gruß
Günter

Antwort 2 von jewe

Danke für die schnelle Antwort, nur ist nicht nur eine Zelle betroffen sondern ca 7000. Also A1:A7000
Grüße
jewe

Antwort 3 von Guenter

Hallo,

konnte ich nicht wissen!
Dann Makro ändern


Option Explicit

Sub test()
 Dim n%
 For n = 1 To 7000
   Cells(n, 1).Value = Mid(Cells(n, 1).Value, 2)
 Next n
End Sub

Gruß
Günter

Antwort 4 von jewe

Hallo Günter,

vielen Dank für die Unterstützung, das Teillöschen der Zellen funktioniert.

Viele Grüße

jewe