|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
05.09.2016 09:58:02 |
Veton |
|
|
 Bereich.Verschieben in VBA |
05.09.2016 11:33:10 |
Gast54241 |
|
|
|
05.09.2016 14:43:55 |
Veton |
|
|
|
05.09.2016 17:46:05 |
Gast9023 |
|
|
|
05.09.2016 17:54:38 |
Veton |
|
|
|
05.09.2016 18:50:39 |
Gast43677 |
|
|
|
05.09.2016 18:54:41 |
Veton |
|
|
|
05.09.2016 19:05:46 |
Gast46173 |
|
|
|
06.09.2016 10:42:06 |
Veton |
|
|
|
06.09.2016 19:53:22 |
Gast8147 |
|
|
|
07.09.2016 08:39:36 |
Veton |
|
|
|
07.09.2016 09:38:42 |
Gast5448 |
|
|
Von:
Gast54241 |
Datum:
05.09.2016 11:33:10 |
Views:
810 |
Rating:
|
Antwort:
|
Thema:
Bereich.Verschieben in VBA |
|
Moin! Ich weiß nicht, ob es da in VBA eine Möglichkeit gibt dies als Funktion direkt anzusprechen. Im Zweifel musst du es halt nachbauen. Hier mal ein Beispiel. Prüft aber nur, ob du nicht oben bzw. links über den Rand hinausschiebst. Im Beispiel wird ein nach links und ein nach oben verschoben.Kann man aber anpassen. VG
Option Explicit
Sub Schaltfläche1_BeiKlick()
Dim erfolg As Long
erfolg = verschieben(Selection, -1, -1)
If erfolg = 0 Then MsgBox "Zu kurz verschoben"
End Sub
Function verschieben(bereich As Range, zeile As Long, spalte As Long) As Long
Dim zuweit As Boolean
Dim startzeile As Long
Dim startspalte As Long
startzeile = bereich.Row
startspalte = bereich.Column
zuweit = False
If startzeile + zeile <= 0 Then zuweit = True
If startspalte + spalte <= 0 Then zuweit = True
If zuweit = False Then
bereich.Offset(zeile, spalte).Select
'hat gepasst
verschieben = 1
Else
'Fehler
verschieben = 0
End If
End Function
|
- 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
|
|
05.09.2016 09:58:02 |
Veton |
|
|
Bereich.Verschieben in VBA |
05.09.2016 11:33:10 |
Gast54241 |
|
|
|
05.09.2016 14:43:55 |
Veton |
|
|
|
05.09.2016 17:46:05 |
Gast9023 |
|
|
|
05.09.2016 17:54:38 |
Veton |
|
|
|
05.09.2016 18:50:39 |
Gast43677 |
|
|
|
05.09.2016 18:54:41 |
Veton |
|
|
|
05.09.2016 19:05:46 |
Gast46173 |
|
|
|
06.09.2016 10:42:06 |
Veton |
|
|
|
06.09.2016 19:53:22 |
Gast8147 |
|
|
|
07.09.2016 08:39:36 |
Veton |
|
|
|
07.09.2016 09:38:42 |
Gast5448 |
|
|