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

W.bestimmt. Wert in Sp. D dann Eintrag in Sp. B

Forumthread: W.bestimmt. Wert in Sp. D dann Eintrag in Sp. B

W.bestimmt. Wert in Sp. D dann Eintrag in Sp. B
07.10.2008 05:58:58
Josef
Guten Morgen!
Ich habe in einem Tabellenblatt ca. 8000 Datensätze. Wenn z.B. in der Spalte D der Wert "MusterA" steht, dann soll in diesem Datensatz in der Spalte B ein kleines "c" eingetragen werden. wie würde hier bitte eine VBA Lösung lauten?
Danke
Josef
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: W.bestimmt. Wert in Sp. D dann Eintrag in Sp. B
07.10.2008 07:29:23
Hajo_Zi
Hallo Josef,
man muss nicht alles mit VBA lösen, da reicht auch eine Formel.
=Wenn(D1="MusterA";"c";"") und fomel auf die gesamte Splate übertragen.

AW: W.bestimmt. Wert in Sp. D dann Eintrag in Sp. B
07.10.2008 07:30:00
Tino
Hallo,
so müsste es auf dem aktiven Tabellenblatt funktionieren
Modul Modul1 
Option Explicit 
 
Sub Test() 
Dim Bereich As Range 
Application.ScreenUpdating = False 
    Set Bereich = Range("D1", Cells(Rows.Count, "D").End(xlUp)).Offset(0, -2) 
    Bereich.FormulaR1C1 = "=IF(RC4=""MusterA"",""c"","""")" 
    Bereich.Value = Bereich.Value 
Application.ScreenUpdating = True 
End Sub


Gruß Tino

www.VBA-Excel.de


Anzeige
AW: W.bestimmt. Wert in Sp. D dann Eintrag in Sp. B
07.10.2008 07:52:07
Josef
Hallo Tino!
Danke für Deine Antwort. Klappt bereits super.
Eine Frage hätte ich bitte dazu noch.
Ginge dies auch mit der Suche nach 2 Kriterien?
Wenn z.B. in der Spalte D der Wert "MusterA" steht und in der Spalte C "MusterB" dann soll in diesem Datensatz in der Spalte B ein kleines "c" eingetragen werden.
auf jeden Fall mal ein großes Danke für Deine Lösung.
Josef
Anzeige
AW: W.bestimmt. Wert in Sp. D dann Eintrag in Sp. B
07.10.2008 08:01:00
Tino
Hallo,
es ist vieles mach bar.
Modul Modul1 
Option Explicit 
 
 
  
Sub Test() 
Dim Bereich As Range 
Application.ScreenUpdating = False 
    Set Bereich = Range("D1", Cells(Rows.Count, "D").End(xlUp)).Offset(0, -2) 
     
    Bereich.FormulaR1C1 = _
            "=IF(AND(RC4=""MusterA"",RC3=""MusterB""),""c"","""")" 
     
    Bereich.Value = Bereich.Value 
Application.ScreenUpdating = True 
End Sub


Gruß Tino

Anzeige
AW: W.bestimmt. Wert in Sp. D dann Eintrag in Sp. B
07.10.2008 08:41:00
Josef
Hallo Tino!
Danke herzlichst das war die Lösung. Schönen Tag noch.
Josef
An Tino!
07.10.2008 09:48:59
Josef
Hallo Tino!
Ich hätte bitte noch eine Frage:
Kann man statt MusterA und MusterB den jeweiligen Wert über eine Variable reinholen. (InputBox?)
Funktionieren würde der Code ja bestens.
MusterA könnte z.B. auch MusterD oder E oder F sein.
Danke
Josef
Anzeige
AW: An Tino!
07.10.2008 10:10:00
Tino
Hallo,
so gehts
Modul Modul1 
Option Explicit 
 
Sub Test() 
Dim Bereich As Range 
Dim Wert(1) As String, strFormel As String 
 
Wert(0) = InputBox("Suchwert1", "Eingabe für Spalte C") 
Wert(1) = InputBox("Suchwert2", "Eingabe für Spalte D") 
strFormel = "=IF(AND(RC4=""" & Wert(1) & """,RC3=""" & Wert(0) & """),""c"","""")" 
 
Application.ScreenUpdating = False 
    Set Bereich = Range("D1", Cells(Rows.Count, "D").End(xlUp)).Offset(0, -2) 
      
    Bereich.FormulaR1C1 = _
            strFormel 
      
    Bereich.Value = Bereich.Value 
Application.ScreenUpdating = True 
End Sub


Gruß Tino

Anzeige
AW: An Tino!
07.10.2008 10:47:00
Josef
Hallo Tino!
Funktioniert jetzt super. Habe das Ganze in eine Userform gepackt.
Ein kleines Problem hätte ich noch. In der Spalte B ist in der Zelle B1 bereits ein "c" vorhanden. Dieses sollte nicht gelöscht werden. Wenn der Buchstabe c richtig eingetragen wird, dann wird das c in B1 auch gelöscht. nur dieses c wäre wichtig wenn es drinnen bleibt.
Danke
Josef
Anzeige
AW: An Tino!
07.10.2008 11:07:48
Tino
Hallo,
kein Problem, lassen wir dass Makro erst ab Zeile 2 eintragen.
Habe noch eine Sicherheit eingebaut, damit die Zelle B1 nicht überschrieben werden kann,
sollte in Spalte D keine Daten sein.
Option Explicit

Sub Test()
Dim Bereich As Range
Dim Wert(1) As String, strFormel As String

Set Bereich = Range("D2", Cells(Rows.Count, "D").End(xlUp)).Offset(0, -2)
If Bereich(1).Address = Range("B1").Address Then
 MsgBox "In Spalte D sind keine Daten!", vbCritical, "Abbruch"
 Exit Sub
End If

Wert(0) = InputBox("Suchwert1", "Eingabe für Spalte C")
Wert(1) = InputBox("Suchwert2", "Eingabe für Spalte D")
strFormel = "=IF(AND(RC4=""" & Wert(1) & """,RC3=""" & Wert(0) & """),""c"","""")"
 
Application.ScreenUpdating = False
    Bereich.FormulaR1C1 = _
            strFormel
    Bereich.Value = Bereich.Value
Application.ScreenUpdating = True
End Sub


Gruß Tino

www.VBA-Excel.de


Anzeige
AW: An Tino!
07.10.2008 11:19:00
Josef
Hallo Tino!
Danke für Deine Mühe und Deine Hilfe.
Josef

Forumthreads zu verwandten Themen

Diagramm/Bild in UF - 2003 ja - 2007 error ?
Jens

Moin allerseits
ich hab da ein Diagramm in einer Userform, bzw ein Bild eines Diagramms.
Das Diagramm hat 4 Datenpunkte.
Unter Excel 2000 läuft es gut - unter Excel 2007 gibt es den Fehler, dass 2D Diagramme nicht mehr als 32000 Datenpunkte enthalten dürfen...aber es sind nur 4 ! <...
08.08.2008 22:59:03
Thread-ID: 1000428
3 Beiträge
Anzeige
2003 Diagramm in 2007
Bernd

Hallo,
ich habe in Excel 2003 ein Diagramm erstellt, deren Bereiche über Makros gesteuert werden.
Wenn ich die Datei in Excel 2007 öffne kommen allerdings nur Fehlermeldungen.
Gehe ich richtig in der Vermutung, dass programmierte Diagramme in Excel 2007 prinziüiell nicht mehr funkti...
18.08.2008 08:09:28
Thread-ID: 1002499
3 Beiträge
Anzeige
Drei Diagrammtypen in einem Diagramm
Jan

Hallo zusammen,
vor zwei Tagen (Beitrag 20.08.2008 11:10:17) wurde mir hier im Forum erfolgreich bei dem Thema "Kombination aus gruppierten und gestapelten Säulen" geholfen. Beverly hat mein Problem gelöst i n dem ein Teil der Daten der Primär- und ein anderer Teil der Sekundärachse zugetei...
22.08.2008 10:20:18
Thread-ID: 1003765
4 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Wenn bestimmte Bedingungen erfüllt - kommentar ein
Frank

Hallo und guten Abend!!!
Brauche wieder einmal eure Hilfe!!!
In einer Tabelle Namens Hilfsblatt werden in Spalte O die Daten aus den Spalten I & K zusammengefasst (z.B. =I5&K5). Der Wert aus Spalte P wird mittels folgender Formel
=WENN(ISTFEHLER(SVERWEIS($B2&C$1;Hilfsbl...
03.09.2008 18:17:00
Thread-ID: 1007200
2 Beiträge
Prüfe Tabelle für Tabelle nach bestimmten Inhalt
Tom

Hallo - schönen guten Morgen....
Ich habe in diesem Script einen Fehler, weis aber leider nicht wo. Eine Fehlermeldung als solches gibt es nicht aber das script macht halt nicht das was es soll.
Private Sub CommandButton5_Click() Dim lngZ As Long With Sheets("Mitarbeiterdaten") Workbo...
15.09.2008 11:08:52
Thread-ID: 1009714
6 Beiträge
Diagramm in Kommentar einbinden
Frank

Hallo!
Ich möchte gerne ein Diagramm in einen Kommentar einbinden.
Meine Frage ist nun geht das überhaupt und wenn ja wie?
Falls nicht, gibt es eine andere - vergleichbare Lösung?
Gruß Frank
17.09.2008 12:27:00
Thread-ID: 1010326
4 Beiträge
Bestimmten Wert in einer Zelle finden
Olli

Hallo,
ich lauf gerade wieder mal mit einem Brett vorm Kopf rum und hoffe, mir kann einer hier helfen.
Ich habe in einer Zelle mehrere Werte stehen, die jeweils durch Semikolon getrennt sind (bis zu 15).
Wie kann ich per VBA eine Schleife erstellen, dass solange nach einem Wert gesu...
19.09.2008 08:54:00
Thread-ID: 1010897
5 Beiträge
Zelle einer Spalte in bestimmte Zelle kopieren
Fred

Wie kann man irgendeine Zelle, die in einer bestimmten Spalte befüllt wird, in eine fixe Zelle einer andere Excel-Tabelle übertragen?
Danke für eure Unterstützung!
08.10.2008 09:43:47
Thread-ID: 1014907
3 Beiträge
Diagramme - XLUSRGAL.XLS übernehmen in EXCEL2007?
thema

Hallo liebe EXperts!
Können die in Diagrammvorlagen, die in EXCEL 2003 gespeichert sind (vgl. XLUSRGAL.XLS) schnell in EXCEL 2007 übernommen werden?
Oder muss man die Vorlagen neu erstellen?
Danke für eure Tipps.
Grus TheMa
17.10.2008 10:25:00
Thread-ID: 1017059
3 Beiträge
versch. Datein zu einer xls zusammenfügen
Tom

Hallo und schönen guten morgen!
Ich würde gern alle Excel-Datein in einem bestimmten Ordner zu einer einzigsten zusammen führen wolllen. Leider beiss ich mir beim VBA da bis jetzt die Zähne aus.
Die Dateinamen der zusammenzuführenden Datein sind unterschiedlich und folgen keinem Schema....
04.11.2008 09:43:13
Thread-ID: 1021479
3 Beiträge
Dateiname in Diagramm
Frank

Hallo wie kann ich in einem Diagramm automatisch den Dateiname mit einem Makro eintagen?
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "P3 Diagramm VLinie"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With...
08.11.2008 13:01:00
Thread-ID: 1022898
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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