Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
812to816
812to816
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

per VBA Spalte A suchen und bei Spalte B Wert hinz

Forumthread: per VBA Spalte A suchen und bei Spalte B Wert hinz

per VBA Spalte A suchen und bei Spalte B Wert hinz
31.10.2006 10:26:43
Sascha
Hallo zusammen,
habe folgendes Problem:
in Spalte A befinden sich vierstellige Zahlen, nun möchte ich dass per Makro die Spalte A geprüft wird und je nach Nummer in der Spalte B der Text dazugeschrieben wird. Ich habe es mit folgendem Makro versucht:
Sub test()
Columns("A:A").Select
ActiveCell.Offset(1, 0).Select
If "0001" Then
ActiveCell.Offset(0, 1).Select
Selection = "Grundvergütung"
Else
End If
ActiveCell.Offset(1, -1).Select
If "0002" Then
ActiveCell.Offset(0, 1).Select
Selection = "Zulagen"
Else
End If
ActiveCell.Offset(1, -1).Select
If "0003" Then
ActiveCell.Offset(0, 1).Select
Selection = "Grundvergütung"
Else
End If
Hier gibt es nun 2 Probleme, erstens gibt es ca. 1000 dieser vierstelligen Zahlen, wobei der Text in Spalte B häufig der gleiche sein wird (benötige also eine Art Zusammenfassung...) und das zweite und schwierigste Problem ist, dass dieser Makro flexibel sein soll, d.h. wenn die Zeile 1 nicht "0001" sondern "0014" enthält, soll er den Text für "0014" nehmen, momentan macht er dann einfach nichts....
Kann mir jemand helfen?
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: per VBA Spalte A suchen und bei Spalte B Wert hinz
31.10.2006 10:59:34
Rudi
Hallo,
warum nicht einfach per SVERWEIS()?
Gruß
Rudi
AW: per VBA Spalte A suchen und bei Spalte B Wert hinz
31.10.2006 11:04:06
Sascha
Hallo Rudi,
an diesen habe ich auch gedacht, dass Problem ist aber dass dann Excel ständig neu "rechnet" und Dateien in der es verwendet wird zu groß ist und dann öfters hängen bleibt, (Hintergrund ist sicher auch dass aus dieser Tabelle eine Pivot erstellt wird).
Um es kurz zu machen, Makro muss her... ;-)
Hat jemand ne Idee?
Anzeige
AW: per VBA Spalte A suchen und bei Spalte B Wert hinz
31.10.2006 11:54:17
Rudi
Hallo,

Sub tt()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To Cells(65536, 1).End(xlUp).Row
Select Case Cells(i, 1)
Case "0001", "0003"
Cells(i, 2) = "Grundvergütung"
Case "0002"
Cells(i, 2) = "Zulagen"
Case "0014"
Cells(i, 2) = "Test"
End Select
Next i
Application.ScreenUpdating = True
End Sub

Gruß
Rudi
Anzeige
AW: per VBA Spalte A suchen und bei Spalte B Wert hinz
31.10.2006 12:00:09
Sascha
Hallo Rudi,
Vielen Dank!!!!!
Gruß Sascha

Forumthreads zu verwandten Themen

Makro/VBA Berechnung
Bruehmi

Hi, müsste in meinen Code folgende Berechnung einfügen:
a - R + b - R + 1/4 * 2 * pi * R
Die Variablen sind jeweils Zellen. Hab 2 Versionen:
1) "=SUM(R[0]C[8],-R[0]C[13],R[0]C[9],-R[0]C[13],(PRODUCT(MOD(1,4)),2,Pi(),R[0]C[13]))
und
2) Range("M" & k).Value - Range("R...
19.10.2008 12:29:07
Thread-ID: 1017451
10 Beiträge
VBA Buch
Sebastian

Hallo,
ich möchte mich gerne etwas weiterbilden und bin auf der Suche nach einem guten Buch zu VBA in Excel.
Könnt Ihr mir etwas empfehlen?
Vielen Dank,
gruß Seppel
19.10.2008 13:23:59
Thread-ID: 1017475
5 Beiträge
Anzeige
Formel Editor per Vba befüllen
Reinhard

Hallo Wissende,
über Einfügen--Objekt kann man ja den Formel Editor 3.0 einfügen.
Mal davon abgesehen daß ich zu doof bin um da das Wurzelzeichen zu finden, gibt es einen Vba-Code, der den Formel Editor so befüllt, daß das Ergebnis nachher in etwa so aussieht:
http://upload.wikimed...
31.10.2008 15:05:36
Thread-ID: 1020901
3 Beiträge
Ja-Nein Abfrage per VBA beantworten
rogger777

Hallo,
ich habe eine Sammelmappe in der von Mehreren Daten gesammt werden. Bevor die Datei geschlossen wird habe ich ich mit Hilfe von "workbook_BeforeClose" eine Abfrage eingebaut, die den jeweiligen Bearbeiter fragt, ob er das aktuelle Datum für den von ihm bearbeiteten Datensatz eingetra...
10.11.2008 15:16:00
Thread-ID: 1023218
6 Beiträge
Security Warning per VBA bestätigen
Lars

Hallo,
Ich öffne mittels VBA aus Excel eine Access DB. Beim Öffnen der Access DB erhalte ich ein Fenster zur Security Warning von Makro Code. Ich kann "Cancel, Open, More Info" auswählen. Nun möchte ich automatisch in meinem VBA Excel Code diese Meldung mit "Open" bestätigen. Wie geht dies?...
24.11.2008 17:49:00
Thread-ID: 1027414
3 Beiträge
Anzeige
VBA Bedingte Formatierung
Peter

Hallo,
möchte gern das Abhängig von A1 in der ein "w" oder ein "m" steht, das A2:Z22 alles entweder rosa (w)
oder hell bLau (m) ist.
Habt Ihr eine Idee?
Beim Druck soll nachher alles wieder schwarz weiß sein.
Gruß Peter
09.12.2008 22:32:36
Thread-ID: 1031538
20 Beiträge
Zelle von VBA beschreiben
VBA

Hallo,
was schreibe ich in VB, um diese Formel in eine Zelle zu schreiben?
=WENN(J2="";"";((E2/(100+J2)*J2)))
Danke für die Hilfe
Gruß
Fred
11.12.2008 17:03:18
Thread-ID: 1032135
4 Beiträge
Anzeige
Welches VBA Buch ist Gut für Anfänger!
Peter

Hallo Excelfreunde
stehe am Anfang, und möchte mich mit VBA beschäftigen.
Also ein Anfänger.
Welches VBA Buch ist Gut für Anfänger!
Habe XP und Excel 2003 auf dem Rechner.
Lieben Gruß PETER
29.12.2008 17:35:00
Thread-ID: 1035822
6 Beiträge
Formeln in Zellen tretz VBA beibehalten
Enrico

Ich benutze ein selbsterstelltes userform um Datensätze zu finden, zu modifizieren und zurückzuschreiben.
Läuft alles bestens. Nur der richtige Dreh um die Formeln einer Zellen beizubehalten fehlt mir noch.
Ein Beispiel. Angezeigt werden in B6 5 Stunden und in B7 7 Stunden. B8 wird das...
31.12.2008 15:11:47
Thread-ID: 1036151
2 Beiträge
Inputbox für VBA Befehl
Tom

Hallo,
ich habe folgenden Code und brauche eine Inputbox, die die Eingabe in den VBA Code integriert.
Vorerst mal der Code:
'Auszulesende Dateien Else ' B = 0 If sArea2(B) "" Then ThisWorkbook.Sheets(OName).Cells(LCol, 1) = OName 'schreibe Ordnername sFormel = Right$(sArea2(B), L...
05.01.2009 15:21:00
Thread-ID: 1036995
9 Beiträge
Farben in Kommentar per VBA bestimmen
Marco

Hallo an alle,
habe einen Code, der automatischeinen Kommentar im excel erstellt.
nun möchte ich aber gern wissen, ob es auch möglich ist, den Kommentar in mehreren Farben automatischzu erstellen.
hier der code:
a = InputBox("Verwendung eingeben", "")
b = InputBox("Betrag ei...
16.02.2009 10:24:00
Thread-ID: 1051043
7 Beiträge
VBA Befehl in mehreren Sheets ausführen
Tom

Hallo zusammen,
ich habe folgendes Problem:
Ich habe ein Makro aufgezeichnet wo er mir in den Sheets 1 - 24 (so habe ich sie genannt) Spalten ausblenden soll. Wärend der Aufnahme zeigt er mir auch in den Sheets an, das die gewünschten Spalten ausgeblendet sind. Wenn ich das Makro jetzt...
16.03.2009 10:46:16
Thread-ID: 1060630
8 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Spalte A mit VBA durchsuchen und Werte in Spalte B einfügen

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Rechtsklick auf "VBAProject" -> Einfügen -> Modul.

  3. Kopiere den folgenden Code in das Modul:

    Sub tt()
   Dim i As Long
   Application.ScreenUpdating = False
   For i = 1 To Cells(65536, 1).End(xlUp).Row
       Select Case Cells(i, 1)
           Case "0001", "0003"
               Cells(i, 2) = "Grundvergütung"
           Case "0002"
               Cells(i, 2) = "Zulagen"
           Case "0014"
               Cells(i, 2) = "Test"
       End Select
   Next i
   Application.ScreenUpdating = True
End Sub

  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Führe das Makro aus: Drücke ALT + F8, wähle tt und klicke auf "Ausführen".

Jetzt wird die Spalte A nach den entsprechenden vierstelligen Zahlen durchsucht und die passenden Texte in Spalte B eingefügt.

Häufige Fehler und Lösungen

  • Fehler: Nichts passiert, wenn das Makro ausgeführt wird.

    • Lösung: Stelle sicher, dass die Zahlen in Spalte A als Text formatiert sind. Prüfe auch, ob die Zahlen genau übereinstimmen (z.B. "0001" und nicht "1").

  • Fehler: Das Makro läuft sehr langsam.

    • Lösung: Aktiviere Application.ScreenUpdating = False, um die Bildschirmaktualisierung während der Ausführung des Makros zu deaktivieren. Dies beschleunigt den Vorgang erheblich.

Alternative Methoden

Wenn du VBA nicht verwenden möchtest, kannst du auch die SVERWEIS()-Funktion nutzen, um Werte in Spalte B basierend auf den vierstelligen Zahlen in Spalte A zu suchen. Beachte jedoch, dass dies zu einer erhöhten Rechenlast führen kann, insbesondere bei großen Datenmengen.

Hier ein einfaches Beispiel für die Verwendung von SVERWEIS():

=SVERWEIS(A1, Suchbereich, 2, FALSCH)

Ersetze Suchbereich durch den Bereich, in dem die vierstelligen Zahlen und die entsprechenden Texte stehen.

Praktische Beispiele

Angenommen, du hast folgende Daten in Spalte A:

A B
0001
0002
0003
0014

Nach der Ausführung des VBA-Makros sollte die Tabelle folgendermaßen aussehen:

A B
0001 Grundvergütung
0002 Zulagen
0003 Grundvergütung
0014 Test

Tipps für Profis

  • Datenvalidierung: Verwende die Funktion zur Datenvalidierung, um sicherzustellen, dass nur vierstellige Zahlen in Spalte A eingegeben werden.
  • Modularer Code: Teile deinen VBA-Code in mehrere Subroutinen auf, um ihn wartungsfreundlicher zu gestalten und die Lesbarkeit zu verbessern.
  • Fehlerbehandlung: Implementiere On Error Resume Next, um Laufzeitfehler abzufangen und den Code robuster zu machen.

FAQ: Häufige Fragen

1. Wie kann ich das Makro anpassen, um mehr als vierstellige Zahlen zu verwenden?
Du kannst die Select Case-Anweisung erweitern, um zusätzliche vierstellige Zahlen und die entsprechenden Texte hinzuzufügen.

2. Ist es möglich, das Makro so zu gestalten, dass es nur auf einen bestimmten Bereich in Spalte A angewendet wird?
Ja, du kannst die Schleife anpassen, indem du den Bereich von 1 To Cells(65536, 1).End(xlUp).Row auf den gewünschten Bereich änderst, z.B. For i = 2 To 100.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige