MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 12.07.2019, 08:12   #1
Dzafer
Neuer Benutzer
Neuer Benutzer
Standard Excel 2013 - In jede befüllte Zelle einer Spalte Zeichen einfügen

Hi

Wie könnte ich das folgende Programm umschreiben, sodass nur Zellen mit Inhalt ein "A" hinzugefügt bekommen anstatt die Range selber vorzugeben?

Code:

Sub einfügenZeichen()
Dim bereich As Range
Dim zelle As Range
Set bereich = Range("A1:A10")
For Each zelle In bereich
zelle.Value = zelle & "A"
Next
End Sub
Vielen Dank
LG
Dzafer ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.07.2019, 08:14   #2
Mase
MOF Profi
MOF Profi
Standard

Hi,

Code:

Sub einfügenZeichen()
Dim bereich As Range
Dim zelle As Range
Set bereich = Range("A1:A10")
For Each zelle In bereich
 If Not IsEmpty(zelle.Value) Then
  Zelle.value = zelle.value & "A"
 End if
Next
End Sub

__________________

gruß
Marco
Mase ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:45 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.