Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
17.12.2010 11:48:40 |
SMU |
|
|
Aw:Typen unverträglich / Laufzeitfehler 13 |
17.12.2010 13:19:34 |
Severus |
|
|
|
17.12.2010 13:26:22 |
SMU |
|
|
|
17.12.2010 17:24:33 |
Severus |
|
|
Von:
Severus |
Datum:
17.12.2010 13:19:34 |
Views:
1304 |
Rating:
|
Antwort:
|
Thema:
Aw:Typen unverträglich / Laufzeitfehler 13 |
SMU schrieb am 17.12.2010 11:48:40:
moin,
wenn ich diesen code ausführe kommt die fehlermeldung
Typen unverträglich / Laufzeitfehler 13
Private Sub CommandButton6_Click() 'wöchentlicher übertrag'
If Range("ah3:aj9").Value = isnuber Then
Range("am3").Value = Range("ah12").Value
Range("an3").Value = Range("ai12").Value
Range("ao3").Value = Range("aj12").Value
End If
End Sub
ich erkläre mal was passieren soll:
wenn alle zellen von ah3 bis aj9 einen inhalt (in diesem fall eine zahl) haben, soll der befehl ausgeführt werden.
ich bin absoluter neuling in vba. wäre nett wenn die antwort für mich verständlich wäre.
gruß smu
Private Sub CommandButton6_Click() 'wöchentlicher übertrag'
Dim Zelle As Excel.Range
For Each Zelle in Range("ah3:aj9")
If Zelle = "" Then Exit Sub
Next
Range("am3").Value = Range("ah12").Value
Range("an3").Value = Range("ai12").Value
Range("ao3").Value = Range("aj12").Value
End Sub
Severus |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
17.12.2010 11:48:40 |
SMU |
|
|
Aw:Typen unverträglich / Laufzeitfehler 13 |
17.12.2010 13:19:34 |
Severus |
|
|
|
17.12.2010 13:26:22 |
SMU |
|
|
|
17.12.2010 17:24:33 |
Severus |
|
|