Profil von Higlav

Frage

03.09.2013, 16:15

VBA Zahl wird einmal mit und einmal ohne Anführungszeichen zurückgegeben

Hallo,

schon wieder eine VBA frage :)

Hab ein Problem mit dem Zahlenformat. Bei einer Variablen wird die Zahl in Anführungszeichen zurückgegeben, bei der anderen ohne Anführungszeichen.

Sub Testsub1()

Test1 = Tabelle1.Cells(1326, 1)
'Hier kommt "101" zurück
Test2 = Tabelle2.Cells(34, 3)
'Hier kommt 101 zurück

End Sub

Beide Zellen ("A1326" und "C34") sind als Text formatiert.

Bei "A1326" ist dieses kleine grüne Dreieck in der linken oberen Ecke. Da kann ich den Text in eine Zahl umwandeln und dann komm auch bei beiden Zellen 101 ohne Anführungszeichen zurück. Das ist für mich aber keine Option, da das ein Export aus einem anderen Programm ist und deshalb jedes mal wieder neu Eingefügt wird.

Folglich muss die Zelle "C34" irgendiwe verändert werden, dass "101" mit Anführungszeichen zurück kommt. Oder kann ich das auch im Code hinbekommen?

Vielen Dank im Voraus für eure Hilfe!

Gruß

dandi46

...zur Frage

Hilfreichste Antwort

von Higlav

03.09.2013, 17:16

Hallo dandi46,

Zuerst einmal: Benutze bitte nur im absoluten Notfall Variant. Das ist typsicherer, compilerfreundlicher und schlichtweg einfacher zu handhaben:

Option Excplicit

Sub Testsub1()

Dim Test1$, Test2$

Test1 = Tabelle1.Cells(1326, 1).Text
Test2 = Tabelle2.Cells(34, 3).Text

End Sub

".Test" gibt evtl. nicht den Wert als String, sondern den gesamten Zellinhalt(mit Formatierung) zurück. Bei Bedarf einfach weglassen...

Grüsse

Higlav

...zur Antwort

Frage

von JaniGirl

31.05.2013, 22:44

Excel 2010: Silbentrennung

Ist bei Excel 2010 eine Silbentrennung möglich? Also wenn ein Satz in einer Zelle durch Zeilenumbruch "passend gemacht wird", dass die Wörter an einer sinnvollen Stelle getrennt werden?

Bei Word geht das, aber ich find bei Excel nichts!

...zur Frage

Hilfreichste Antwort

von Higlav

01.06.2013, 12:28

Hallo JaniGirl,

Silbentrennung bei Excel geht nicht. Das ist im Normalfall ja auch vollkommen unnötig, da Excel ein Tabellenkalkulationsprogramm ist. Meine Suche nach Silbentrennung in Excel blieb' jedenfalls erfolglos...

Grüsse

Higlav

...zur Antwort

Frage

von JaniGirl

31.05.2013, 23:15

Excel 2010: Schriftgröße durch bedingte Formatierung ändern

Kann ich bei Excel 2010 mit Hilfe einer bedingten Formatierung die Schriftgröße ändern? Also z.B. wenn in einer Zelle die Zahl 15 steht, soll die Schriftgröße sich auf 20 verändern. Ob die Schrift in "fett" oder "kursiv" angezeigt werden soll lässt sich ändern, nur die Einstellungen für Schriftart und Schriftgrad sind grauhinterlegt, also ich kann sie nicht anklicken und auswählen.

...zur Frage

Hilfreichste Antwort

von Higlav

01.06.2013, 00:47

Hallo JaniGirl,

Wie du schon bemerkt hast, lässt sich die Zeichengrösse nicht mit bedingter Formatierung verändern. Aber mit VBA lässt sich das bewerkstelligen:

Option Explicit

'Hier aus der oberen rechten Liste die Events auswählen,
'die die Überprüfung auslösen sollen: (Beispiel)
Private Sub Worksheet_Activate()
    ChangeEvent
End Sub
Private Sub Worksheet_Calculate()
    ChangeEvent
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ChangeEvent
End Sub

Private Sub ChangeEvent()

    Dim Zelle As Range
    Set Zelle = Range("A1")

    If Zelle = 15 Then 'evtl. Bedingung ändern
        Zelle.Font.Size = 20
    Else
        Zelle.Font.Size = 11
    End If

End Sub

Den Code fügst du wie vor kurzem auch ein:

http://www.gutefrage.net/frage/excel-2010-zelle-wie-ein-formular-erstellen

Grüsse und eine gute Nacht wünscht

Higlav

...zur Antwort

Frage

von facebookfan22

29.04.2013, 16:02

Excel Wenn Funktion: Die Note herausfinden von Punkten

Ich muss eine Formel herausfinden, mit der ich die jeweilige Note herausfinden kann. Siehe Bilder. MFG

...zur Frage

Hilfreichste Antwort

von Higlav

29.04.2013, 18:03

Die Formatierung in der Spalte für Prozent muss noch auf "Prozent" geändert werden...

   │   B    │    C     │   D    │    E    │  F   │  G   │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
2  │ Nummer │   Name   │ Punkte │ Prozent │ Note │ Rang │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
3  │   1    │ Mamfred  │   98   │  0.98   │  1   │  2   │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
4  │   2    │  Frank   │   45   │  0.45   │  4   │  19  │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
5  │   3    │   Alf    │   15   │  0.15   │  6   │  25  │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
6  │   4    │  Gustav  │   90   │   0.9   │  1   │  10  │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
7  │   5    │  Felix   │   95   │  0.95   │  1   │  7   │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
8  │   6    │   Ula    │   12   │  0.12   │  6   │  26  │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
9  │   7    │  Erika   │   36   │  0.36   │  5   │  22  │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
10 │   8    │  Monika  │   59   │  0.59   │  4   │  14  │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
11 │   9    │ Angelika │   94   │  0.94   │  1   │  8   │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
12 │   10   │  Angela  │   56   │  0.56   │  4   │  16  │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
13 │   11   │   Max    │   45   │  0.45   │  4   │  19  │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
14 │   12   │   Hans   │   56   │  0.56   │  4   │  16  │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
15 │   13   │  Dogan   │   96   │  0.96   │  1   │  5   │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
16 │   14   │   Fred   │   93   │  0.93   │  1   │  9   │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
17 │   15   │  Brain   │  100   │    1    │  1   │  1   │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
18 │   16   │   Uta    │   98   │  0.98   │  1   │  2   │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
19 │   17   │   Hans   │   89   │  0.89   │  2   │  11  │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
20 │   18   │  Fritz   │   47   │  0.47   │  4   │  18  │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
21 │   19   │   Paul   │   45   │  0.45   │  4   │  19  │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
22 │   20   │ Vanessa  │   96   │  0.96   │  1   │  5   │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
23 │   21   │   Igor   │   36   │  0.36   │  5   │  22  │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
24 │   22   │  Malte   │   63   │  0.63   │  3   │  13  │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
25 │   23   │   Uta    │   69   │  0.69   │  3   │  12  │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
26 │   24   │ Tristan  │   22   │  0.22   │  5   │  24  │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
27 │   25   │   Tom    │   59   │  0.59   │  4   │  14  │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
28 │   26   │ Michael  │   98   │  0.98   │  1   │  2   │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
29 │        │          │        │         │      │      │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
30 │        │  Punkte  │  Note  │         │      │      │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
31 │        │ 90 - 100 │   1    │         │      │      │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
32 │        │ 75 - 89  │   2    │         │      │      │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
33 │        │ 60 - 74  │   3    │         │      │      │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
34 │        │ 45 - 59  │   4    │         │      │      │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
35 │        │ 22 - 44  │   5    │         │      │      │
───┼────────┼──────────┼────────┼─────────┼──────┼──────┤
36 │        │  0 - 21  │   6    │         │      │      │
───┴────────┴──────────┴────────┴─────────┴──────┴──────┘


Formeln:
Tabelle1$E$3 ► "=D3/100"
Tabelle1$F$3 ► "=WENN(E3>=0.9;1;WENN(E3>=0.75;2;WENN(E3>=0.6;3;WENN(E3>=0.45;4;WENN(E3>=0.22;5;6)))))"
Tabelle1$G$3 ► "=RANG(D3;$D$3:$D$28;0)"

Tabelle mit dem Tabellen-Zeichner-Addin generiert.
Version: 2.0
Download: http://www.gutefrage.net/tipp/excel-tabellen-darstellen
© RE

...zur Antwort

Frage

von JediEquester

01.05.2012, 20:10

Gutes Freeware CAD Programm?

Hallo, suche ein gutes kostenloses 3D CAD Programm, kennt irgendjemand eines? vielen Dank im Vorraus

...zur Frage

Hilfreichste Antwort

von Higlav

13.08.2012, 17:36

Hallo, JediEquester

Ganz ehrlich; von den CAD-Programmen, von denen EM4020 schreibt hab ich noch NIE etwas gehört (ausser AutoCAD - versteht sich).

Ich persönlich möchte dir von AutoDesk den Inventor ans Herz legen. Der ist sehr benutzerfreundlich und zweckmässig. Ich habe selbst innerhalb weniger Tagen einen V10 Motor konstruiert, der um die Zylinder herum Kühlkammern hat, die dann die Reibungswärme des Zylinders ausgleichen können.

Leider ist der Server für die Downloads momentan down (Autodesk schreibt, dass er bald wieder online sein wird), auf dem du dir dann die Studentenversion downloaden kannst. bis dahin kannst du auch das Angebot "free trial" benützen und dir ein paar Eindrücke mit dem Programm und Youtube-Videos verschaffen.

http://usa.autodesk.com/adsk/servlet/download/item?siteID=123112&id=18137023

Mit freundlichen Grüssen

Higlav

...zur Antwort