VBA Find Methode findet nur Zahlen 1 bis 9, nicht >10 (falscher Datentyp?

Hallo Zusammen,

wieder eine VBA Frage meinerseits:
Ich vermute, dass es bei folgender Zeile zu einem Problem kommt, wenn Zahlen >9 gefunden werden sollen:
stunden = Worksheets("Tabelle2").Cells(ActiveCell.Row, Range("1:1").Find(eingabe).Offset(0, 0).Column)

"stunden" und "eingabe" sind jeweils als double definiert.
Bei den zahlen 1-9 habe ich meinen Code bisher probiert, aber ab 10 kommt es zum Crash und an der Zelle steht, dass folgende Meldung: "ein in der Formel verwendeter wert ist vom falschen Datentyp"

Vielen Dank für jede Antwort bereits im Voraus!
Liebe Grüße Leo

2 Antworten

geri3d

Nutzer, der sehr aktiv auf gutefrage ist

im Thema Informatik

25.11.2020, 07:32

An der Formel sehe ich in erster Linie diesen Fehler:

Range("1:1")

müsste

Range("A1","A1") heissen.

Woher ich das weiß:eigene Erfahrung

Suboptimierer

27.11.2020, 09:15

Kommt darauf an, in welchem Zellbereich er suchen möchte. Will er nur in A1 suchen, reicht sogar Range("A1"). Will er in der gesamten Zeile suchen, sehe ich den Fehler in Range("1:1") nicht.

Was allerdings keinen Sinn ergibt, ist Offset(0, 0).

want69

Beitragsersteller

25.11.2020, 07:59

Guten Morgen, danke für deine schnelle Antwort! Werde deinen Tipp nachher Mal probieren, hatte die Schreibweise von der Seite übernommen:

The following code shows an example of this

' Search in comments only

Range("A1:A5").Find "John", LookIn:=xlComments

https://excelmacromastery.com/excel-vba-find/

Gruß Leo

IchMalWiederXY

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel, VBA

25.11.2020, 13:23

Der Rückgabe Wert von ".Find" ist nicht "double" wenn ich mich nicht irre.
Mach mal dies: Dim Stunden as Variant.
Wird z.B nichts gefunden dann kommt bei Find ein "error" Wert zurück um den du dich kümmern musst.

want69

Beitragsersteller

26.11.2020, 00:06

Oh, deine Antwort ist in meinen Mitteilungen etwas unter gegangen, Vielen Dank! :)
Klingt sehr plausibel, werde es probieren

Ähnliche Beiträge

Excel VBA - Darstellung waagerecht-vertikal beim kopieren ändern?

Hallo,

ich habe in einer fertigen Tabelle etwas geändert, um die Eingabe der Daten zu erleichtern. Statt die Daten in der Spalte zu erfassen, werden die Daten jetzt in einer Zeile eingegeben.

Also statt vorher in B10, B11, B12... jetzt in B10, C10, D10...

Die Daten werden mit Hilfe eine Makros in eine andere Tabelle transferiert und waagerecht eingefügt.

Da ich aber die Eingabeart verändert habe, werden die Daten jetzt untereinander in die Tabelle eingefügt.

Ich weiß, dass das mit "Application.Transpose" zu tun hat.

Nun weiss ich aber nicht wie ich die Zeile umbenennen muss, damit die waagerechte Darstellung übernommen wird.

Wie ändere ich die Zeile, damit die angesprochenen Werte waagerecht in die Zeile kopiert werden?

Hier der komplette Code:

Sub transfer_werte()
    Dim rngKunde    As Excel.Range
    Dim rngReklam   As Excel.Range
    Dim rngArtikel   As Excel.Range

     Set rngKunde = Worksheets("Eingaben").Range("C5:C10")
    Set rngReklam = Worksheets("Eingaben").Range("D5:D9")
    Set rngArtikel = Worksheets("Eingaben").Range("C14:L14")
   
        With Worksheets("Liste")
          With .Cells(.Rows.Count, 2).End(xlUp)
               .Offset(1, 0).Resize(rngKunde.Columns.Count, rngKunde.Rows.Count).Value = Application.Transpose(rngKunde.Value)
        End With
    End With
   
    With Worksheets("Liste")
        With .Cells(.Rows.Count, 8).End(xlUp)
             .Offset(1, 0).Resize(rngReklam.Columns.Count, rngReklam.Rows.Count).Value = Application.Transpose(rngReklam.Value)
        End With
    End With
  
   With Worksheets("Liste")
        With .Cells(.Rows.Count, 14).End(xlUp)
             .Offset(1, 0).Resize(rngArtikel.Columns.Count, rngArtikel.Rows.Count).Value = Application.Transpose(rngArtikel.Value)
        End With
    End With
      
End Sub

...zum Beitrag

Tabellen mit vba nebeneinander anstatt untereinander anordnen?

Hallo,

ich habe bereits meine Excel-Arbeitsmappe bestehend aus 250 Seiten mit jeweils 2Spalten und 250 Zeilen via vba zusammengeführt.

Allerdings wird dabei alles untereinander dargestellt und nicht nebeneinander. Kann man es so machen, dass sobald ein Worksheet abgearbeitet wurde und angezeigt wird, das nächste daneben in der Spalte beginnen lässt und immer so weiter.

Gibt es Möglichkeiten dort eine Art „Cut“ zu machen?

Sub Konsolidieren()
Dim Wks As Worksheet
Dim Bereich As Range
Dim strLC As String
Dim i As Integer
Set Wks = Worksheets.Add
Wks.Name = "Gesamt"
For i = 2 To Worksheets.Count
 With Worksheets(i).UsedRange
 strLC = .Cells(.Rows.Count, .Columns.Count).Address
 Set Bereich = .Range("A1:" & strLC)
 Bereich.Copy Destination:= _
 Wks.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
 End With
Next i
End Sub

...zum Beitrag

VBA Problem mit ListIndex?

Hallo zsm

ich habe folgendes Problem: Ich habe etwas in der ListBox geändert. Nun möchte ich es in die Tabelle übertragen.

Wie kriege ich das hin?

Private Sub Speichern_Click()
    With Worksheets("Datensatz").Range("B:O")
    ListenIndex = Me.ListBox1.ListIndex
    Set rngCell = .Find(ListenIndex, LookIn:=xlValues, lookat:=xlWhole)
        If Not rngCell Is Nothing Then
            rngCell.Text = Me.ListBox1.Column(0, lngZeile)
            rngCell.Offset(0, 1).Text = Me.ListBox1.Column(1, lngZeile)
            rngCell.Offset(0, 2).Text = Me.ListBox1.Column(2, lngZeile)
            rngCell.Offset(0, 3).Text = Me.ListBox1.Column(3, lngZeile)
            rngCell.Offset(0, 4).Text = Me.ListBox1.Column(0, lngZeile)
            rngCell.Offset(0, 5).Text = Me.ListBox1.Column(1, lngZeile)
            rngCell.Offset(0, 6).Text = Me.ListBox1.Column(2, lngZeile)
            rngCell.Offset(0, 7).Text = Me.ListBox1.Column(3, lngZeile)
            rngCell.Offset(0, 8).Text = Me.ListBox1.Column(4, lngZeile)
            rngCell.Offset(0, 9).Text = Me.ListBox1.Column(5, lngZeile)
            rngCell.Offset(0, 10).Text = Me.ListBox1.Column(6, lngZeile)
            rngCell.Offset(0, 11).Text = Me.ListBox1.Column(7, lngZeile)
            rngCell.Offset(0, 12).Text = Me.ListBox1.Column(8, lngZeile)
            rngCell.Offset(0, 13).Text = Me.ListBox1.Column(9, lngZeile)
        End If
    End With
End Sub

...zum Beitrag

Excel VBA - AutoFilter richtig einstellen?

Hallo!

ich versuche derzeit folgendes, ohne mich wirklich mit VBA auszukennen :D

Ich habe zwei Tabellen, Tabelle1 und Tabelle2. Auf Tabelle 1 habe ich mehrere Kategorie-Namen (im Beispiel die Zahlen) und möchte diese quasi "Selektieren", um damit einen Filter für meine Daten in Tabelle2 zu setzen, um dort nur die Daten zur jeweiligen gefilterten Kategorie anzuzeigen.

Zur Zeit sieht es wie folgt aus (vereinfachte Darstellung mit Zahlen als Kategorie):

Tabelle 1:

Tabelle 2 (Zahlen = Kategorie, Buchstaben = Daten):

Und mein Code

Sub Filtern()
Dim Kriterium As String Dim Counter Counter = 0
For i = 1 To 5     If Cells(i, 1) = "X" Then Kriterium = Kriterium + """" + CStr(Cells(i, 2)) + """" + ","     Counter = Counter + 1      Next i
Dim Liste As Range Set Liste = Worksheets("Tabelle2").Range("A2:B10") Liste.AutoFilter Liste.AutoFilter Field:=1, Criteria1:=(Kriterium)

End Sub

Zur Erklärung was ich mir dabei gedacht habe:

In der For-Schleife gehe ich erstmal die Tabelle 1 durch und schaue, wo ein X ist und füge dann entsprechenden Kategorie-Namen aus der Zelle daneben meinem String hinzu.

Dies scheint auch zu klappen, eine Test-Ausgabe via MsgBox hat mir das Ganze so ausgegeben wie ich wollte (so: "3","5",)

Im nächsten Schritt sage ich, wo die Daten sind die zu filtern sind und wende dann "AutoFilter" an, um den Filter zu setzen. Dabei sage ich dann, dass er in Feld 1 die Kriterien suchen soll. Als Kriterium gebe ich ihm meinen vorher erstellen String, welches er als ein Array verarbeiten soll, um alle Kriterien zu berücksichtigen.

Das Ergebnis sieht allerdings nur so aus:

Ich kenne mich wie gesagt eigentlich überhaupt nicht mit VBA aus, daher wäre gut möglich, dass mein Code ein zusammengeschuhsterer Haufen Müll ist, aber naja... :D

Sieht da jemand zufällig den Fehler?

...zum Beitrag

Cell Value bzw. Zellen Inhalt ändern über Function in VBA?

Hallo Zusammen, kann mir jemand sagen wie ich mithilfe einer Function in Excel VBA den Inhalt einer Zelle ändern kann? Ich habe hier ein kleines Beispiel, während der Code in einem Sub scheinbar ohne Probleme ausgeführt wird, scheint dieser in einer Function zum Abbruch zu führen.

Vielen Dank für jede Antwort im Voraus!

Gruß Leo

Beispiel:

Sub Test()

ActiveCell.Offset(1, 1) = "1"

End Sub

Function Test()

ActiveCell.Offset(1, 1) = "1"

End Function

...zum Beitrag

Excel VBA - Wert auslesen?

Mein Problem:

Mit dem ersten Makro wird ein Wert in Zelle A1 geschrieben.

In einem weiteren Makro will ich nun diesen Wert auslesen mit Worksheets("Blatt1").Cells(1, 1).Value = i. Wenn ich das mache steht danach in Zelle A1 aber eine 0 und nicht mehr der vorige Wert. Was ist falsch?

...zum Beitrag

EXCEL VBA Wert als Datum anzeigen?

Hallo zsm

ich habe eine bedingte Formatierung welche ein Datum erkennt.

Das Datum wird aber nicht als Datum anerkannt, welches durch VBA hinzugefügt wird.

Ich habe es in einer anderen Variante drinnen, da funktioniert es. Wiederum lässt sich eine andere Variante bei diesem Vermerk nicht vornehmen.

Hat jmd eine Idee?

Worksheets("Datensatz").Range(idAdr).Offset(, -16) = Worksheets("SuchDaten").Range("A2").Value 'Das muss als Datum geschrieben werden

...zum Beitrag

VBA Ausgewählte Zeilen kopieren und in anderer Tabelle einfügen (mit Variablen)?

Hallo Zusammen,

Ich hab ein Problem. Ich würde gern durch das schreiben einer 1 hinter meiner Materialsammlung per Knopfdruck alle gewählten Zeilen in eine Zusammengestellte Tabelle einfügen.

Die Materialsammlung bei der ich auswähle ist in Tabelle zwei und wird dann per Knopfdruck abgefragt. Die markierten sollen dann in Tabelle 1 in eine Tabelle eingefügt werden.

Da ich aber mit Variablen Arbeite ist das schwieriger als gedacht

Hier mein code zum verdeutlichen

Private Sub CommandButton1_Click()

Dim strBereich As Range Dim x As Integer

For x = 3 To 60 If Worksheets(2).Cells(x, 10) = "1" Then

Worksheets(1).Range(Cells(x, 2), Cells(x, 9))=Worksheets(2).Range(Cells(x, 1), Cells(x, 8))

End If Next x

End Sub

funktioniert leider aber nicht.

Bitte im Hilfe

...zum Beitrag

VBA Input-Eingabe in Zelle eintragen?

Guten Abend,

ich möchte gerne den Inhalt aus einer Inputbox in Zelle D28 schreiben, nur leider funktioniert es nicht.

Folgendes Makro: (sicherlich nicht schön geschrieben aber es bis auf die Zelle D28)

Sub erstellen()
   Dim NeuerTabellenName As String
   Dim TabellenName As Boolean
   Dim myInput As String
   Dim WsTabelle As Worksheet
   
   myInput = InputBox("Bitte geben Sie den Namen des neuen Monates an", "Monat anlegen")
   
   For Each WsTabelle In Worksheets
   If WsTabelle.Name = myInput Then
   TabellenName = True
   Exit For
   End If
   Next WsTabelle
   If TabellenName Then
   MsgBox ("Der Monat existiert bereits. Der Vorgang wurde abgebrochen. Bitte ueberpruefen Sie Ihre Eingabe.")
   Worksheets("Admin").Select
   Else
   NeuerTabellenName = myInput
   Worksheets("Muster").Copy After:=Sheets(Sheets.Count)
   Sheets(Sheets.Count).Name = NeuerTabellenName
   Worksheets("Admin").Range(D28).Value = myInput
   Worksheets("Admin").Select
   End If
End Sub

Der Fehler muss ja hier liegen:

Worksheets("Admin").Range(D28).Value = myInput

Über eine Lösung wäre ich sehr dankbar.

Gruß

...zum Beitrag

Kalender erstellen mit VBA

Ich stehe grad auf dem Schlauch und würde mich wirklich sehr über aussagekraftige Antworten freuen.Ich würde gern einen Kalender erstellen mit VBA in Ecxel in den ich mit einen Commandbutton einen Kalender erstellen kann und dieser dir Wochentag,Monat und so weiter anzeigt aber du auch in einer Tabelle z.B. Urlaub eintragen kannst und er dir das gleich mit im Kalender anzeigt wenn er erstellt wird.Habe schon ein wenig Quellcode zusammengeschrieben es kommt aber immer Laufzeitfehler 1004 Anwender- oder opjektdefinierter Fehler der Debugger sagt mir es wäre etwas an der Zeile: With Worksheets("Kalender").Range("A1;L35") = Worksheets("Kalender").Cells = "bytMonth" falsch.

...zum Beitrag

In Excel Spaltenbreite mittel VBA Code?

Hallo, ich habe einen VBA Code wo ich Spalten aus einer Excel- Datei nach Word kopiere. Jetzt möchte ich den Spalten unterschiedliche Längen vorgeben.

Den Code zum kopieren ist folgender:

    With liO.Range
      .Columns.Hidden = True                'jetzt werden erst mal alle Spalten ausgeblendet
      .Columns(2).Hidden = False    'Nummer           'und hier die Spalten die du brauchst wieder eingeblendet
      .Columns(4).Hidden = False    'Name
      .Columns(5).Hidden = False    'Vorname
      .Columns(13).Hidden = False   'gen_bis
      .Columns(14).Hidden = False   'Gruppe
      .Columns(19).Hidden = False 'Krankenkasse
      .Columns(21).Hidden = False  'Bemerkung
      
       '.Columns("B:O").EntireColumn.AutoFit 'geht so nicht
      
    End With

Wie muss ich den Code veräandern/ergänzen um für jede Zelle eine individuelle länge der Zelle zu erhalten? Gruß

...zum Beitrag

Tabellenname aus Zelle mit VBA?

Hallo zusammen. Ich habe eine Tabelle mit mehreren Blättern und möchte mittels Makro die Tabellenblätter umbennen. Problematisch ist nur die Variabilität der Daten.

Beispiel

ich befinde mich in der Tabelle1, wo auch die Makro-Schaltfläche ist
in Tabelle2, Zelle A1 steht welche Tabelle (Tabelle4) einen neuen Namen erhalten soll
in Tabelle3, Zelle A1 steht der Namen den die Tabelle bekommen soll (Test)

Ich finde leider keine Lösung wie ich mit VBA ein Worksheet anspreche welches in Tabelle2, Zelle A1 definiert ist und dieses mit dem Namen aus Tabelle3, Zelle A1 belege.

danke im Vorraus für eure Unterstützung

...zum Beitrag

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

...zum Beitrag

Wie ermittelt man in Excel (VBA) den Zelleninhalt bei verbundenen Zellen?

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

...zum Beitrag

Was möchtest Du wissen?

Deine Frage stellen