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

Ausschnitt aus Tabelle1 - (programmieren, Microsoft, Microsoft Excel)

Ausschnitt aus Tabelle2 - (programmieren, Microsoft, Microsoft Excel)

3 Antworten

Vom Fragesteller als hilfreich ausgezeichnet

Higlav

Nutzer, der sehr aktiv auf gutefrage ist

im Thema Microsoft Excel

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

dandi46

Fragesteller

04.09.2013, 09:18

Mit .Text hats geklappt! Vielen Dank! (schon wieder) ;)

Higlav

04.09.2013, 17:11

@dandi46

No Problem :D

Annonymous4567

03.09.2013, 16:18

als zahl dürfen keine Zeichen verwendet werden nur zahlen (integer) du musst text benutzen(string)

Suboptimierer

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

03.09.2013, 18:03

Der Befehl Test1 = Tabelle1.Cells(1326, 1) gibt eigentlich einen Range zurück. Ich würde den Wert mit .Value oder .Value2 abfangen. Eine Konvertierung kannst du mit CInt (wenn ich mich recht erinnere) vornehmen. Anführungszeichen kannst du mit Replace durch leere Zeichenketten ersetzen.

Du kannst aber auch vor dem Import die Spalten schon als Zahl formatieren.

Woher ich das weiß:Berufserfahrung – Programmierer

dandi46

Fragesteller

04.09.2013, 09:21

Mit .value hats nicht geklappt, nur mit .text aber danke für deine Hilfe :) Ich vergesse .value nämlich wirklich oft!

augsburgchris

04.09.2013, 14:54

@dandi46

Value brauchst du auch nicht da das der Defaultwert ist. Du kannst ja in eine Variable keinen Bereich schreiben. sondern nur den Inhalt eines Bereiches. Wenn ich sage "Ich ess noch einen Teller", esse ich ja auch den Inhalt und nicht das Geschirr. So schlau ist Excel dann schon. ;-)

Suboptimierer

04.09.2013, 15:04

@augsburgchris

Sagt der, der auf Typisierung steht :P

Ich durchlaufe in meinem Excel VBA-Script die Zellen einer Spalte, um den Zelleninhalt auszuwerten. Nun kann es passieren daß Zellen "verbunden" sind. In diesem Fall liefert mir das Script nur jeweils für die linke oberste Zelle der verbundenen Zellen den Wert zurück. In den anderen Zellen kommt Blank zurück. Ich würde in allen Zellen den gleichen Wert zurückerwarten?
Wie könnte man das bewerkstelligen?
Hardcopy/Beispiel: In den grünen Spalten steht was ich erwarten würde. In den gelben die tatsächliche VBA-Ausgabe.

Private Sub Worksheet_Activate()
  Dim iRow As Integer
  iRow = 4
  Do
    Worksheets("Test").Cells(iRow, 5) = Worksheets("Test").Cells(iRow, 1)
    Worksheets("Test").Cells(iRow, 7) = Worksheets("Test").Cells(iRow, 2)
    iRow = iRow + 1
    If iRow > Worksheets("Test").UsedRange.Rows.Count Then Exit Do
  Loop
End Sub

...zur Frage

VBA Zellen verbinden mit schleife?

Hallo,

ich möchte mit Visual Basic in der Spalte A jeweils die 4 aufeinander folgenden Zellen miteinander verbinden. Also A4 - A7, A8 - A11 usw. In der Zeile mit range spuckt er einen Fehler und ich komme nicht drauf warum. Wäre super, wenn jemand mir helfen könnte 😁

Quellcode:

Option Explicit
Sub Merge()
Dim Counter1 As Integer
Dim Counter2 As Integer
Counter1 = 3
Counter2 = 7
Worksheets(„Tabelle1“).Activate
Do While Counter1 <= 1000
Range(Cells(Counter1,1), Cells(Counter2,1)).Select = True
Selection.Merge
Counter1 = Counter1 + 4
Counter2 = Counter2 + 4
Loop
End Sub

...zur Frage

VBA Excel mit Eingabemaske anderes Excel Blatt bearbeiten?

Hallo, folgendes Problem: Habe eine Eingabemaske erstellt, die mir Zeilen ausgibst mit einem Suchfeld. Diese kann man dann ändern, löschen etc. und diese werden für ein Programm gebraucht. So, das Programm nimmt aber nur einbe Excel Liste mit anderem Format und nun muss ich mittels der Eingabemaske die andere Datei öffnen und dann soll die Maske über diese Datei arbeiten. Die Tabelle ist vom Aufbau her genau identisch. muss also nur den Befehl haben um das öffnen, bearbeiten, speichern und schließen. Also die andere Datei dann. Füge anbei mal den Code von dem Button 'Suchen' hinzu:

    Private Sub CommandButton2_Click()
    Workbooks.Open "C:\Users\SchuehlJ\Desktop\Excel\DB_Versand102x76.xls"
      Dim suchen As Excel.Range

  With Tabelle1
     
    Set suchen = .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp))
     
    Set suchen = suchen.Find(TextBox1.Text, LookIn:=xlValues, LookAt:=xlWhole)
     
    If Not suchen Is Nothing Then

      TextBox2.Text = .Cells(suchen.Row, "B").Value
      TextBox3.Text = .Cells(suchen.Row, "C").Value
      TextBox4.Text = .Cells(suchen.Row, "D").Value
      TextBox5.Text = .Cells(suchen.Row, "E").Value
      ListBox1.AddItem .Cells(suchen.Row, "A").Value
      
      

    Else
    
          Call MsgBox("PN Nummer: " & "'" & TextBox1.Text & "' wurde nicht gefunden.")
          ListBox1.Clear
          TextBox1.Text = ""
          
        End If
    End With
    End Sub

Hoffe ihr könnt mir helfen,

LG Julian

...zur Frage

VBA Makro gesucht: Inhalt von Zellen löschen wenn eine andere Zelle bestimmten "TEXT" beinhalted?

Hallo Zusammen,

ich bin absoluter VBA neuling, bräuchte aber ein einfaches Makro zu folgendem Fall:

In den Zellen der Spalte R (R6:R150) steht entweder: "STATUS1=grün" oder "STATUS2=gelb" oder "STATUS3=rot".

Wenn zum Beispiel Zelle R6 = "STATUS1=grün" dann sollen die Zellen (I6:J6) und die Zellen (L6:N6) geleert werden
Wenn R6 = "STATUS2=gelb" dann sollen die Zellen (I6:J6) geleert werden
Wenn R6 = "STATUS3=rot" dann soll nichts gelöscht werden.
Wenn R6 = "" (also leer) soll auch nicht gelöscht werden.

--> Gleiches soll für alle Zelle im Bereich (R6:R150) gelten

--> Die Spalten I,J,L,M und N müssen aber befüllbar sein, daher lässt sich das ja nicht über eine Formel machen.

Das ist alles was ich bis jetzt zusammen gebastelt habe: leider funktioniert es nicht:

Private Sub Worksheet_Change(ByVal Target As Range)
'Abfrage, ob Änderung in Zelle A1 erfolgt ist
If Target.Address = "$R$6" Then
    If IsValue(STATUS1 = grün) Then
    
            Range("4:F14").Select
            Selection.ClearContents
    End Select
End If
End Sub

Vielen Dank für eure Hilfe.

...zur Frage

Wie kann ich die Farbe einer Excel Zelle per Knopfdruck und VBA ändern?

Moin, ich hab mal wieder ne Frage zu Excel VBA. Wir haben heute die Aufgabe bekommen in Excel VBA mithilfe einer Sub- Prozedur Farben von Zellen zu ändern.
Es gibt ein Feld "Farb- Nr.", in dem eine Zahl steht, die dann im Sub genutzt wird um eine Farbe zu machen. (s. Screenshot). Bei Druck des Buttons sollen sich die 3 Farbstreifen ändern. Ich habe den Sub bereits dem Button zugewiesen, jedoch kommt beim klicken die Fehlermeldung "Laufzeitfehler 438: Objekt unterstützt diese Eigenschaft oder Methode nicht". Ich wäre demjenigen, der mir helfen kann sehr verbunden. Falls noch etwas unklar sein sollte, fragt bitte einfach nach.

PS: Das ist mein bisheriger VBA Code:

Und so sieht das ganze Tabellenblatt aus:

...zur Frage

Excel VBA Wurzel ziehen?

Ich will einen Taschenrechner in Excel VBA programmieren. Dieser soll auch die (erste) Wurzel einer Zahl ziehen können. Ich weiß jedoch nicht wie man das machen soll. Kann mir jemand helfen eine Sub zu programmieren?

...zur Frage

Wieso liefert in Excel VBA die Funktion Interior.Colorindex verschiedene Werte zurück?

Ich ermittle die aktuelle Farbe einer Zelle mit der Funtion Interier.ColorIndex. Dummerweise kommen beim gleichen Programm bei manchen Farben unterschiedliche Werte auf zwei Systemen zurück und deshalb macht mein eigentliches Programm nicht genau das was ich erwarte. Das eine System ist Windows 7 mit Excel 2002 und das andere Windows XP mit Excel 2010.

Ich habe eine kleine Testroutine geschrieben:

Private Sub BTestFarben_Click()
  Dim myRow As Integer

  ' Ermittelt die Farben der Zellen
  myRow = 4
  Do
    Cells(myRow, 10) = Cells(myRow, 9).Interior.ColorIndex
    myRow = myRow + 1
    If myRow > 20 Then Exit Do
  Loop
End Sub

Warum ist das so und wie könnte man das Problem lösen?

...zur Frage

Excel Vba Wert in Bereich prüfen?

Hallo,

ich habe eine Excel Tabelle erstellt, mit verschiedenen Namen und Zeiträumen (von - bis) zu den Namen erstellt. Ich möchte, dass Excel durch einen CommandButton prüft, ob die Zeiträume korrekt eingetragen sind. Zum Beispiel habe ich beim Namen "Fireflice3" einen Zeitraum von 21.04.2016 bis 20.04.2016. Das ist ja aber kein gültiger Zeitraum, da das "von" Datum größer als das "bis" Datum ist. Vba soll hier eine Msgbox zur Warnung ausgeben. Ich weiß wie man diese Programmierung auf einzelne Zellen anwendet.

Bsp. If cells(Zeile, Spalte) >= cells(zeile, Spalte) then Msgbox("ungültiger Zeitraum") End If

Meine Frage bezieht sich darauf, wie ich diesen Code nicht auf einzelne Zellen anwende sondern auf ganze Bereiche. Kann mir da jemand weiterhelfen?

Besten Dank

...zur Frage

Problem mit VBA Excel: Wert Finden und Zeilen daneben ersetzen.

Hallo zusammen,

Ich versuch mich grade mit VBA und stoß so langsam an meine Grenzen.

Ich möchte mit mit einem Formular einen Wert aus Tabelle1 nehmen, diesen in Tabelle2 suchen und markieren. Außerdem soll zusätzlich in den Zeilen daneben Werte aus Tabelle1 eingetragen werden.

Das switchen zwischen den Tabellen, das Finden und Markieren klappt soweit, nur funktioniert das Kopieren aus den Zellen in Tabelle1 in die neben den gefundenen Wert aus Tabelle2 befindlichen Zellen nicht. Anscheinend selektiert mein Makro die Markierte Zelle nicht, weshalb ich mit "ActiveCell" nicht weiter komme.

Wäre cool wenn jemand mir da weiterhelfen könnte :)

Sheets("Tabelle2").Select
Cells.Find(What:=Worksheets("Tabelle1").Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Interior.Color = vbRed                 

    If ActiveSheet.Name = "Tabelle2" Then                             Sheets("Tabelle1").Select                                           Else                                                                Sheets("Tabelle2").Select                                             End If

...zur Frage

Excel VBA - Nächste Leere Zelle finden?

Hallo, ich habe eine Sub geschrieben, die die nächste leere Zelle finden soll und dort etwas einfügen soll. Das ganze wird immer wieder wiederholt. Dabei habe ich allerdings ein Problem. In den Zellen A1-A10 stehen Formeln, die entweder einen Wert, oder "" ausgeben. Nehmen wir das Beispiel, dass in A1-A5 Werte stehen und A6-A10 leere Zellen sind, bzw "" (also nur eine Formel mit Ergebnis "" enthalten). Nun werden diese mit folgendem Code in das andere Tabellenblatt kopiert.

Wenn ich jetzt das ganze wiederhole, werden die neuen Daten in Tabellenblatt B erst in A11 eingefügt, obwohl A6-A10 ja leere Zellen sind.

Wie kann ich es abändern, dass Excel das Formelergebnis "" als leere Zelle ansieht?

Hier der Code:

Sub Test()

Worksheets("A").Range("A1:A10").Copy

Worksheets("B").Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).PasteSpecial xlPasteValues

Application.CutCopyMode = False

End Sub

...zur Frage

VBA for-schleife: Leere Zeilen überspringen?

Hallo! Ich habe mir in Excel mit VBA eine Schleife gebastelt zur Zielwertsuche. Da ich VBA sonst nie brauche möchte ich hierfür nicht erst VBA lernen. Daher hier meine Frage ob mir hier jemand helfen kann. Es geht um folgendes Skript. Dieses macht Probleme wenn zwischen den Zeilen Leerzeilen sind (Fehler 400). Kann man das irgendwie verhindern? Die leeren Zeilen z.B. überspringen?

Vielen Dank!

Sub PreisBerechnung()
Dim IntZeile As Integer
For IntZeile = 4 To 199
Cells(IntZeile, 33).GoalSeek Goal:=2.5, ChangingCell:=Cells(IntZeile, 26)

Next
End Sub

...zur Frage

Zellen per VBA markieren und löschen?

Hallo,

ich bin gerade dabei ein kleines Lagerverwaltungssystem per Excel zu schreiben und ich hänge an einer Stelle. Ich will, dass wenn ich in meiner Eingabemaske einen bestimmten Button drücke, sich nochmal ein Fenster öffnet in dem ich eine Zahl eingebe (z.B. 4). Darauf sollen dann 4 Zellen in der Spalte A markiert und gelöscht werden, die einen bestimmten Inhalt haben.

Kann mir jemand weiterhelfen? :(

...zur Frage

VBA UserForm KeyDown Sonderzeichen werden nicht erkannt?

Hallo, ich habe eine Frage zu meinem VBA Code. Und zwar sollen verschiedene Tastatureingaben verschiedene Funktionen triggern. Bei Zahlen, Buchstaben, Plus, Minus, "&"-Zeichen, "!"-Zeichen und einige andere Tasten gehen. "*"-Zeichen, Prozent, "(" und ")" bspw. gehen jedoch NICHT (als KeyCode wird 0 zurückgegeben). Hat jemand eine Ahnung woran das liegt?

Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  handleKeyDown KeyCode, Shift
End Sub

Private Sub handleKeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Dim keyChar As String * 1
  keyChar = Chr(KeyCode)
  MsgBox (KeyCode)
  Select Case keyChar
  Case "0"
    numb0_Click
  Case "1"
    numb1_Click
  '.....
  Case Else
  End Select
  Select Case KeyCode
  Case "187"
    plus_Click
  '....
  Case Else 
  End Select
End Sub

Danke für alle Antworten,

Nicolas

...zur Frage

VBA Code Erklärung

Guten Abend zusammen. Könnte mir jemand weiterhelfen bei diesem Code. Was macht er genau in Excel? Also Die einzelnen Schritte die er durchläuft,.

Option Explicit

Public Sub Double_Red()
Dim lngZeile As Long
Dim lngZeilenSprung As Long
Dim strSuchwert As String

lngZeile = Cells(Rows.Count, 4).End(xlUp).Row

  For lngZeilenSprung = lngZeile To 1 Step -1
    strSuchwert = Cells(lngZeilenSprung, 4).Value
      If Application.WorksheetFunction.CountIf(Range(Cells(1, 4), Cells(lngZeile, 4)), strSuchwert) <> 1 Then
        Cells(lngZeilenSprung, 4).Interior.ColorIndex = 3
      End If
  Next lngZeilenSprung

End Sub

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen