Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
RaMA
m'sa la kher und guten Tag
Sub addieren() For Each X In Selection If Not IsEmpty(X) Then If IsNumeric(X) Then Y = X.Address If X < 208 Then Range(X.Address) = "93?" End If End If Next End Sub
GrüSSen RaMa -- . "" a écrit dans le message de news:ade201c4796b$3b8303c0$ Hallo,
ich will eine Tabelle erstellen. Bei den Beträgen, die unter 208 sind, möchte ich, daß automatisch den Betrag 93 ? dazu addiert werden.
Wer kann mir helfen ?
Danke im voraus.
Gruß,
Bouchra
m'sa la kher und guten Tag
Sub addieren()
For Each X In Selection
If Not IsEmpty(X) Then
If IsNumeric(X) Then
Y = X.Address
If X < 208 Then Range(X.Address) = "93?"
End If
End If
Next
End Sub
GrüSSen
RaMa
--
.
"bouchra_elhouta@web.de" <anonymous@discussions.microsoft.com> a écrit dans
le message de news:ade201c4796b$3b8303c0$a401280a@phx.gbl...
Hallo,
ich will eine Tabelle erstellen.
Bei den Beträgen, die unter 208 sind, möchte ich, daß
automatisch den Betrag 93 ? dazu addiert werden.
Sub addieren() For Each X In Selection If Not IsEmpty(X) Then If IsNumeric(X) Then Y = X.Address If X < 208 Then Range(X.Address) = "93?" End If End If Next End Sub
GrüSSen RaMa -- . "" a écrit dans le message de news:ade201c4796b$3b8303c0$ Hallo,
ich will eine Tabelle erstellen. Bei den Beträgen, die unter 208 sind, möchte ich, daß automatisch den Betrag 93 ? dazu addiert werden.
Wer kann mir helfen ?
Danke im voraus.
Gruß,
Bouchra
RaMA
sba 'la kher
Entschuldigungen ,Ich habe nicht "addiert" gesahen Bitte zuvor die Tabelle auszuwählen Achtung nur ein Mal benutzen
Sub addieren() For Each X In Selection If Not IsEmpty(X) Then If IsNumeric(X) Then Y = X.Address If X < 208 Then Range(X.Address) = X + 93 End If End If Next End Sub
GrüSSen RaMa
"" a écrit dans
le message de news:ade201c4796b$3b8303c0$ Hallo,
ich will eine Tabelle erstellen. Bei den Beträgen, die unter 208 sind, möchte ich, daß automatisch den Betrag 93 ? dazu addiert werden.
Wer kann mir helfen ?
Danke im voraus.
Gruß,
Bouchra
sba 'la kher
Entschuldigungen ,Ich habe nicht "addiert" gesahen
Bitte zuvor die Tabelle auszuwählen
Achtung nur ein Mal benutzen
Sub addieren()
For Each X In Selection
If Not IsEmpty(X) Then
If IsNumeric(X) Then
Y = X.Address
If X < 208 Then Range(X.Address) = X + 93
End If
End If
Next
End Sub
GrüSSen
RaMa
"bouchra_elhouta@web.de" <anonymous@discussions.microsoft.com> a écrit
dans
le message de news:ade201c4796b$3b8303c0$a401280a@phx.gbl...
Hallo,
ich will eine Tabelle erstellen.
Bei den Beträgen, die unter 208 sind, möchte ich, daß
automatisch den Betrag 93 ? dazu addiert werden.
Entschuldigungen ,Ich habe nicht "addiert" gesahen Bitte zuvor die Tabelle auszuwählen Achtung nur ein Mal benutzen
Sub addieren() For Each X In Selection If Not IsEmpty(X) Then If IsNumeric(X) Then Y = X.Address If X < 208 Then Range(X.Address) = X + 93 End If End If Next End Sub
GrüSSen RaMa
"" a écrit dans
le message de news:ade201c4796b$3b8303c0$ Hallo,
ich will eine Tabelle erstellen. Bei den Beträgen, die unter 208 sind, möchte ich, daß automatisch den Betrag 93 ? dazu addiert werden.
