HERBERS Excel-Forum - die Beispiele

Thema: Von der Fundstelle eines Zellwertes abhängige Daten eintragen

Home

Gruppe

Allgemein

Problem

Wie kann ich den Wert einer Zelle in einer Tabelle suchen und die Kopfzeile und den Wert der Vorgängerzelle in einem zweiten Tabellenblatt eintragen lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub BegriffSuchen()
   Dim rng As Range
   Dim sBegriff As String
   sBegriff = Range("B20")
   Set rng = Range("A1").CurrentRegion.Find(sBegriff, lookat:=xlWhole)
   If rng Is Nothing Then
      Beep
      MsgBox "Nein, Begriff wurde nicht gefunden!"
      Exit Sub
   End If
   With Worksheets("Tabelle2")
      .Range("A1") = "Kopfzeile:"
      .Range("A2") = Cells(1, rng.Column)
      .Range("B1") = "Vorgängerzelle:"
      If rng.Row = 2 Then
         If rng.Column = 1 Then
            Beep
            MsgBox "Es gibt keine Vorgängerzelle!"
            Exit Sub
         End If
         .Range("B2") = rng.Offset(0, -1)
      ElseIf rng.Column = 1 Then
         .Range("B2") = rng.Offset(-1, Range("A1") _
            .CurrentRegion.Columns.Count - 1)
      Else
         .Range("B2") = rng.Offset(0, -1)
      End If
      .Columns.AutoFit
   End With
   Worksheets("Tabelle2").Select
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Bearbeiten

Geschlossene Excel-Datei bearbeiten? bearbeiten von tabelle
Bearbeiten Suchen Allgemeine Frage zur Fehlerbehandlung
Beitrag vom 4.6.2008 bearbeiten allgemeine Fragen zu einer Datenbank
Bearbeiten--Erstzen: '= durch = ersetzen VBS: Excel-Datei bearbeiten
Textfile bearbeiten in einem Bereich Zelle für Zelle bearbeiten ...
Gruppierung bearbeiten trotz Blattschutz Dropdown text bearbeiten
allgemein Bearbeiten von Abfrage nicht möglich
Datei im Internet bearbeiten ComboBox Bearbeiten
Pers Makro bearbeiten. allgemein: VBA lernen?
Hide-Methode-Allgemeine Frage Formelassistent allgemein
txt-Datei einlesen-bearbeiten-txt erstellen OWC Diagramm bearbeiten
allgemeingültig Blattschutz aufheben Userform Menü Datei.. bearbeiten .. Untermenüs
Zelle nur zum Bearbeiten freigeben Daten direkt in der Userform bearbeiten
Datei nach bearbeiten schliesen .. speichern mehrere Dateien öffnen und bearbeiten.
allgemeine Frage... mehrere Arbeitsblätter gleichzeitig bearbeiten
Solver - allgemein Solver - allgemein
mit optionButton eine Textbox bearbeiten Frage zum Forum allgemein
Allgemeine Frage - Finanz-Planungsmodell CSV Daten trennen zum bearbeiten
Fußzeile bearbeiten Pivoteingrenzung Formel verallgemeinern
geschützte Tabellen trotzdem mit VBA bearbeiten Arbeitsblatt nur mit Userform bearbeiten
Bearbeiten vor dem Export makro verallgemeinern
Befehlsschaltfläche bearbeiten Office allgemein, bitte hilfe
allgemein Legende eines Diagrammes bearbeiten
Liste für Import bearbeiten Commandbutton bearbeiten
Auto ausfüllen / bearbeiten "falsche" Angaben Text.txt Datei mit VBA bearbeiten?