Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
26.10.2016 19:12:42 |
Lukas |
|
|
|
26.10.2016 19:28:05 |
Lukas |
|
|
|
26.10.2016 21:08:55 |
Gast85958 |
|
|
|
26.10.2016 23:15:38 |
Lukas |
|
|
|
27.10.2016 08:51:36 |
Gast88991 |
|
|
|
27.10.2016 11:35:00 |
Gast36706 |
|
|
|
27.10.2016 11:35:50 |
Lukas |
|
|
|
27.10.2016 14:28:54 |
Gast34613 |
|
|
Aufwendige VBA-Sortierung |
27.10.2016 15:10:05 |
Gast92452 |
|
|
|
27.10.2016 16:44:12 |
Lukas |
|
|
|
27.10.2016 17:51:28 |
Gast93865 |
|
|
|
27.10.2016 18:06:43 |
Lukas |
|
|
|
27.10.2016 18:18:19 |
Gast95618 |
|
|
|
27.10.2016 19:12:03 |
Gast72642 |
|
|
|
27.10.2016 18:18:32 |
Lukas |
|
|
|
27.10.2016 18:20:56 |
Andreas |
|
|
|
27.10.2016 18:22:37 |
Lukas |
|
|
|
27.10.2016 23:50:36 |
Andreas |
|
|
|
28.10.2016 17:41:41 |
Lukas |
|
|
|
28.10.2016 17:55:47 |
Lukas |
|
|
|
28.10.2016 18:12:04 |
Lukas |
|
|
Von:
Gast92452 |
Datum:
27.10.2016 15:10:05 |
Views:
788 |
Rating:
|
Antwort:
|
Thema:
Aufwendige VBA-Sortierung |
Mit der Addition ist doch eine tolle Idee.
Denke aber daran, dass du zuerst einen String aus der Zelle ausliest und diesen für die Addition natürlich in einen Integer umwandeln musst.
Habe dir hier mal eine kleine Funktion zur Inspiration gebastelt.
Sub Test()
'Variablendeklaration
Dim Temp_Wert As Integer
Dim Zahlenlaenge As Integer
Temp_Wert = 0
Zahlenlaenge = 0
'Sting aus Zelle auslesen und ("Z" mit "Leerzeichen") abkappen. Anschließend String in Integerformat wandeln
Temp_Wert = CInt(Split(Sheets("Tabelle1").Cells(1, 1).Value, "Z ")(1))
'temporär als String die Länge ermitteln; 2 = 20igstes Jahrhundert; 4 = 21igstes Jahrhundert; ansonsten Fehler
Zahlenlaenge = Len(CStr(Temp_Wert))
'Abfrage, ob die Zahlenlänge zum Berechnen geeignet ist
If Zahlenlaenge = 2 Then
'Bei zweistelligem Wert "1900! addieren
Temp_Wert = Temp_Wert + 1900
ElseIf Zahlenlaenge <> 4 Then
'Ist die Zahl auch nicht Vierstellig, dann MsgBox öffnen
MsgBox ("Ermittelte Zahlenlänge passt nicht zur Berechnungsformel")
End If
End Sub
Gruß
Andreas
|
- 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
|
|
26.10.2016 19:12:42 |
Lukas |
|
|
|
26.10.2016 19:28:05 |
Lukas |
|
|
|
26.10.2016 21:08:55 |
Gast85958 |
|
|
|
26.10.2016 23:15:38 |
Lukas |
|
|
|
27.10.2016 08:51:36 |
Gast88991 |
|
|
|
27.10.2016 11:35:00 |
Gast36706 |
|
|
|
27.10.2016 11:35:50 |
Lukas |
|
|
|
27.10.2016 14:28:54 |
Gast34613 |
|
|
Aufwendige VBA-Sortierung |
27.10.2016 15:10:05 |
Gast92452 |
|
|
|
27.10.2016 16:44:12 |
Lukas |
|
|
|
27.10.2016 17:51:28 |
Gast93865 |
|
|
|
27.10.2016 18:06:43 |
Lukas |
|
|
|
27.10.2016 18:18:19 |
Gast95618 |
|
|
|
27.10.2016 19:12:03 |
Gast72642 |
|
|
|
27.10.2016 18:18:32 |
Lukas |
|
|
|
27.10.2016 18:20:56 |
Andreas |
|
|
|
27.10.2016 18:22:37 |
Lukas |
|
|
|
27.10.2016 23:50:36 |
Andreas |
|
|
|
28.10.2016 17:41:41 |
Lukas |
|
|
|
28.10.2016 17:55:47 |
Lukas |
|
|
|
28.10.2016 18:12:04 |
Lukas |
|
|