wie funktionert der Wverweis als VBA Code in Excel?

Hi Leute

Ich bin gerade dabei eine Tabelle in Excel mit VBA zu automatisieren.

Doch nun hänge ich an einem Wverweis den ich gerne in Excel ausführen möchte.

Es gibt eine Tabelle in der eine Bedingung abgefragt wird dort wird dann, wenn die Bedingung eintrifft, in der selben Zeile das Suchkritererutum festgelegt.

Und zwar ist dies eine ID, mit welcher dann in einer anderen Tabelle ein Name gesucht wird.

der gefundene Name soll dann in eine Tabelle 3 eingetragen werden.

Tabelle2.Range("B65536").End(xlUp).Offset(1, 0).Value = WorksheetFunction.HLookup([A49], Sheets("Tabelle7").[A1:ZZ50], 3, False)

das ist die Anweisung die eintritt wenn die Bedingung war ist und der Name gesucht und eingetragen werden soll.

Das Problem ist nur das irgendwas hier nicht stimmt und ich komm einfach nicht drauf. Es liegt aufjedenfall an der Funktion nach dem " = " also dem Wverweis.

Habt ihr eine Idee ?

1 Antwort

Vom Fragesteller als hilfreich ausgezeichnet

Suboptimierer

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

13.10.2015, 14:03

http://www.techonthenet.com/excel/formulas/hlookup.php

HLOOKUP( value, table, index_number, [not_exact_match])

Bei dir

...WorksheetFunction.HLookup(Range("A49").Value, Sheets("Tabelle7").Range("A1:ZZ50"), 3, False)

Oder etwas passt an den Verweisen nicht.

Du kannst auch den Makrorekorder verwenden, um in Excel die Formeleingabe ganz normal aufzuzeichnen.

Kallyguru

Fragesteller

13.10.2015, 14:18

Da bekomm ich ne Fehlermeldung, ich versteh net warum
vom Prinzip müsste es ja funktionieren.

Laufzeitfehler '-2147352565 (800200b)'

Suboptimierer

13.10.2015, 14:21

@Kallyguru

Sieht nach einem Pufferüberlauf für Ganzzahlwerte aus.

Programmier mal testweise deinen Code direkt unter dem Worksheet Tabelle7 und lass im Befehl Sheets("Tabelle7") einfach weg. Ziehe alle notwendigen Daten auf das Sheet 7, sodass du nicht auf andere Blätter referenzieren musst.

Überprüfe die in der Formel angegebenen Bereiche.

Sonst bediene dich - wie erwähnt - dem Makrorekorder.

Hallo Zusammen

ich verwende im Moment ein kurzes Makro, um Änderungen in einem Tabellenblatt zu loggen.

Es registriert aber nur einzelne Änderungen, nicht multi-selektion oder Löschen von Spalten. Kann ich das mit separaten Privaten Subs übernehmen?

Und kann ich aufnehmen, was die Target- und "PreVal"-Adresse war (Offset 4+5)

Code:

Dim PreVal
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
PreVal = Target.Value
 
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
  
    On Error GoTo 0
    
    If Target.Value <> PreVal Then
        With Sheets(2).Cells(Rows.Count, 1).End(xlUp)
            .Offset(1, 0) = Now
            .Offset(1, 1) = PreVal
            .Offset(1, 2) = Target.Value
            .Offset(1, 3) = Environ("Username")
        End With
    End If
 
End Sub

...zur Frage

Zeile kopieren mit Bedingung?

Guten Morgen zusammen,

ich möchte gerne folgendes mit einem Marko lösen.

In einer Daten Tabelle sind sämtliche Werte vorhanden. Diese sollen in ein Tabellenblatt Tabelle 2 kopiert werden.

Die letzte Zeile bestimme ich über

' Bestimmung der Anzahl der ausgefüllten Zellen in Spalte 3

Sheets("DATEN").Select

FinalRow = Cells(Rows.Count, 3).End(xlUp).Row

Nun möchte ich folgendes in Tabelle2 umsetzten.

Daten Spalte B soll nach Tabelle2 Spalte C kopiert werden

Daten Spalte C soll nach Tabelle2 Spalte D kopiert werden

Daten Spalte D soll nach Tabelle2 Spalte E kopiert werden

Nun soll in Spalte F eine Unterscheidung stattfinden,

Wenn in Spalte D eine 1 steht soll der Wert von Daten Spalte D nochmals in Tabelle2 Spalte F kopiert werden

Wenn in Spalte D eine 0 steht soll der Wert von Daten Spalte D nochmals in Tabelle2 Spalte G kopiert werden

Wie könnte dieses mit einem Makro realisiert werden?

Vielen Dank für euere Unterstützung.

Tobias

...zur Frage

VBA - Daten in andere Datei schreiben

Ich habe ein Excel-sheet mit Daten und Makros. Nun möchte ich die Daten in eine neue Excel Tabelle schreiben, so das keine Makro-Sicherheits meldung beim öffnen der ausgegeben Datei kommt.

Wie geht das?

...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

Wie kann ich in Excel eine Zeile mit VBA ausblenden und verschieben?

Hallo,

wenn eine 1 in der Zeile L oder M oder N steht, soll die Zeile ausgeblendet und im Blatt "Monat" eingefügt werden.

Was mache ich hier falsch?

Sub Copy()
  Sheets("Offen").Select
  LetzteZeile = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row

  For i = 1 To LetzteZeile
    If Cells(i, 12) = 1 Then
      Rows(i & ":" & i).Select
      Selection.Copy
      Sheets("Monat").Select
      LetzteZeileZwei = ActiveSheet.Cells(Rows.Count, 5).End(xlUp).Row
      LetzteZeileZwei = LetzteZeileZwei + 1
      Rows(LetzteZeileZwei & ":" & LetzteZeileZwei).Select
      ActiveSheet.Paste
      Sheets("Offen").Select
      Section.EntireRow.Hidden = True
    End If
  Next i
End Sub

...zur Frage

Excel VBA, Kopieren bestimmter Zeilen in anderes Sheet?

Hallo, ich habe ein Sheet 1 mit X Zeilen. Ich möchte genau diejenigen Zeilen in ein neues Sheet 2 kopieren, die noch keinen Eintrag in der Spalte D haben. Das Ganze soll synconisiert geschehen, sprich, ich trage eine neue Zeile in Sheet 1 ein ohne Eintrag in Spalte D, dann kopiert er die Zeile gleich ins Sheet 2. Sobald etwas in Zeile D in Sheet 1 eingetragen wird, wird die Zeile in Sheet 2 wieder rausgelöscht. Hat jemand eine Idee wie ich das umsetzen kann? Freue mich über jede Hilfe!

...zur Frage

Excel vba Befehl für "Speichern" Button?

Hallo :)

ich arbeite gerade an einer Excel Tabelle, bei der ich etwas in das Formular eingebe und der Inhalt dann via Speichern-Button in Tabellenblatt 2 automatisch in eine Tabelle eingetragen wird.
Nun ist alles fertig, nur habe ich es bis jetzt nicht hinbekommen, dem Speichern-Button die benötigten Befehle zuzuordnen, den Inhalt der TextBox und ComboBox in die Tabelle auf Tabellenblatt 2 einzutragen.

Ich benutze bewusst Excel und nicht Access.
Kann mir jemand helfen?

Mit freundlichen Grüßen :-)

...zur Frage

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

...zur Frage

Wie der Makro soll bestimmte Zellen ignorieren, wie mache ich das

Hallo an alle klugen Köpfe,

ich habe ein Makro erstellt, dass von einer Tabelle die Daten in die ne andere Tabele exportiert. was auch ganz gut klappt!

ich möchte aber das ausgeblendete und durhchgestrichene Zellen ignoriert werden oder besser gesagt nicht in die neue Tabelle mit-exportiert werden.

Hat da jemande eine schlaue Lösung?

Hier (ein Teil vom Makro) :

Range("C14").Select Selection.Copy Sheets("Tabelle2").Select

Range("N6:O6").Select
ActiveSheet.Paste    -----------> außer es ist ausgeblendet/durchges
Range("N7:O7").Select
Sheets("aktuell").Select
Range("G14").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Select
ActiveSheet.Paste
Sheets("aktuell").Select
Range("C15").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Tabelle2").Se

Gruß Newb

...zur Frage

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

...zur Frage

Excel VBA automatisch nächste freie Spalte nehmen?

hi hab mir mit Makros in VBA was zum übertragen von Daten in eine andere Arbeitsblatt zusammengebastelt. Dort soll es in eine Tabelle eingefügt werden die sich automatisch um eine Spalte nach rechts erweitern soll mit jedem Eintrag.

Sub inauftragplus()
   Range("D11:D22").Select
   Selection.Copy
   Sheets("Datenbank").Select
   ActiveWindow.SmallScroll Down:=-81
   Range("B9").Select
   ActiveSheet.Paste
   Sheets("Eingabe").Select
   Application.CutCopyMode = False
   Selection.ClearContents
End Sub

...zur Frage

Excel VBA-Code nötig?

Wenn K1 geändert wird soll es in der Tabelle2 den vorherigen Wert auflisten. Zum Beispiel Zelle K1 ändert sich von 260 zu 300 dann soll der Wert 260 aufgelistet werden in der Tabelle2. Wenn nun 300 zu 290 geändert wird soll 300 gespeichert werden. Das ganze soll dann in Tabelle2 so in etwa aussehen bis jetzt A1 = 260 A2 = 300 A3 = 290.

Ich habe bereits nach einer Lösung gesucht und diese erfordert jedoch etwas mit VBA-Code von dem ich nicht so viel Ahnung habe. Ich weiss noch nicht einmal wie ich in Spalte A:A die Namen der Kunden zählen kann, dabei jedoch die doppelten ignoriere :`)

Ich danke bereits im voraus

...zur Frage

Daten aus VBA Formular in Excel Tabelle übertragen?

Halloo,

ich hoffe ihr könnt mir helfen.

ich muss für meine Arbeit eine Excel Tabelle mit Formular erstellen. Die Daten die in das Formular eingetragen wurden sollen sortiert nach Spalte in die vorgefertigte Excel Tabelle eingefügt werden. Wie kann ich das Programmieren?

ich danke im Voraus!

...zur Frage

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

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen