Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1028to1032
1028to1032
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellinhalte ermitteln

Forumthread: Zellinhalte ermitteln

Zellinhalte ermitteln
27.11.2008 11:02:59
Timo
Hallo,
ich habe in der Spalte AF1 bis AF33 Text und Zahlen stehen.
Der Text sieht immer so aus "Mustermann 2x ZM 1x Fahrt" wobei das 2x und 1x sich je nach Fall verändert! Jetzt würde ich Gerne in AF35 die Summe für ZM und in AF 36 die Summe für Fahrt berechnen, wobei natürlich die 1x Fahrt 2x Fahrt oder 1x ZM oder 3x ZM mitberechnet werden sollen!
Wie macht man das am besten per Formel oder Makro?
Gruß Timo
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellinhalte ermitteln
27.11.2008 11:26:00
Waven
Hallo Timo
Dieses Makro sollte die gewünschten Resultate liefern.

Sub test()
Dim rng As Range, rngbereich As Range, x As Integer, y As Integer
x = 0
y = 0
Set rngbereich = Range("AF1:AF33")
For Each rng In rngbereich
x = x + Mid(rng, Len(rng) - 13, 1)
y = y + Mid(rng, Len(rng) - 7, 1)
Next
Range("AF35") = x
Range("AF36") = y
End Sub


Gruss
Waven

Anzeige
Danke!
27.11.2008 12:27:16
Timo
Ich hab noch On error resume next eingefügt! Weil manche Zellen leer sind
AW: Zellinhalte ermitteln
27.11.2008 14:07:18
Timo
Hallo Waven,
ich hab doch noch eine Frage.
Wie muss ich den Code ändern, dass der rngbereich über die Activecell ausgewählt wird also nicht von vorne herein schon festgelegt ist sondern wenn die Zelle A1 ausgewählt ist der rngbereich dann ("A1:A33" heißt?
Anzeige
AW: Zellinhalte ermitteln
27.11.2008 14:22:50
Waven
Hallo Timo
Set rngbereich = Range(ActiveCell, ActiveCell.Offset(32, 0))
Der gewünschte Bereich muss dann aber immer 33 Zeilen beinhalten und es muss die oberste Zeile markiert sein.
Mit Range(ActiveCell.Offset(34, 0) = x und Range(ActiveCell.Offset(35,0) bringst du die Ergebnisse in die selbe Spalte.
Gruss
Waven
Anzeige
AW: Danke
27.11.2008 14:29:00
Timo
Danke Waven!
AW: Zellinhalte ermitteln
27.11.2008 11:29:39
Rudi
Hallo,
Ziffern immer nur 1-stellig?
{=SUMME(--TEIL(AF1:AF33;FINDEN("ZM";AF1:AF33)-3;1))}
Gruß
Rudi
;

Forumthreads zu verwandten Themen

Zellinhalte löschen
Jürgen

Hallo Excel Profis,
ich suche eine VBA-Lösung für folgendes Problem:
In einem Tabellenbereich A3:K100 soll das Makro die Spalte I durchsuchen.
Wenn hier ein x steht soll dieses gelöscht werden und gleichzeitig die Inhalte
in den Zellen B, D, E, H links daneben.
Es sollen nur...
08.08.2008 09:32:00
Thread-ID: 1000180
4 Beiträge
Anzeige
Zwei Spalten in jeweils zwei Tabellen miteinander
Lutz

Liebe Leute,
ich habe zwei recht umfangreiche Tabellen mit Lieferdaten und dies in zwei von einander unabhängigen Tabellen.
In der Tabelle1 stehen neben anderen die Spalten Bestellnr. und Materialnr. sowie Lieferantennr. In der Tabelle2 stehen wiederum die Spalten Bestellnr. und Materia...
08.08.2008 15:56:55
Thread-ID: 1000336
4 Beiträge
Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Anzeige
Befehlsschaltfläche zum Versenden einer e-Mail
Roland

Hallo. Ich habe eine für mich sehr harte "Nuss" zu knacken. Ich habe über Excel ein Rechnungsprogramm erstellt. jetzt möchte ich diese Rechnung immer per e-mail versenden. Ich brauche eine Befehlsschaltföläche, die einen bestimmten Bereich als e_mail versendet. Also.... Die Schaltfläche sollte...
11.08.2008 13:17:00
Thread-ID: 1000827
2 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:33:59
Thread-ID: 1000866
3 Beiträge
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
Anzeige
3 Zellen zu 1ner 3-Zeiligen (wieAlt+Enter) machen
Horst_H

Hallo!
Meine Frage: In Spalte C steht eine Straßenbezeichnung, in Spalte H ein Kommentar und in Spalte I ein zweiter Kommentar. Nun möchte ich per VBA (weil ich viele Mappen unterschiedl. Länge und unterschiedlicher Stadtteile habe) erreichen, dass zusätzlich in die jeweilige Zelle in Spal...
11.08.2008 16:07:27
Thread-ID: 1000899
10 Beiträge
Bezug auf Blatt abhängig von Zellinhalt
Zellinhalt

Hallo!
Meine Arbeitsmappe hat vier Blätter, diese heißen: "Übersicht" "Hans", "Klaus" und "Karl".
In Zelle A1 von "Übersicht" steht entweder "Hans", "Klaus" oder "Karl".
In Zelle A2 soll das stehen, was in Zelle B16 des Blattes steht, das in Zelle A1 von "Übersicht" genannt ist.
...
11.08.2008 16:55:00
Thread-ID: 1000917
3 Beiträge
Anzeige
spaltenbezeichnungen ändern sich einfach
Julia

Hallo!
ich habe ein Problem: ich habe mehrere .xml dateien erstellt, die spalten oben waren immer durchbuchstabiert. jetzt stehen da aber bei den identischen datein plötzlich zahlen oben...
warum und wie kann ich das rückgängig machen?
dankeschön!
julia
12.08.2008 13:33:00
Thread-ID: 1001182
3 Beiträge
Erweiterung der Schleife für mehrere Spalten
Fred


Hallo zusammen
Ich habe eine Schleife gefunden, die für meine Zwecke fast perfekt ist. Leider führt sie Ihre Funktion nur in einer Spalte aus. Ich würde diese Funktion gerne auf andere Spalten erweiter.
Also ausgeführt wird die Such und auswertfunktion in Spalte D. Ich bräuchte die...
12.08.2008 13:57:31
Thread-ID: 1001195
3 Beiträge
Spalte bis zur nächsten freien Zelle?
Tom

Hi,
großes Problem für mich kleines wahrscheinlich fr euch.
Hab eine Tabelle in der ich automatisch hinter den letzten Eintrag etwas einfügen möchte. Leider brauch ich unten eine Summen, also wäre das die letzte Zeile mit Füllung. ich will sozusagen die erste freie Zeile nach den befüll...
12.08.2008 15:12:47
Thread-ID: 1001232
3 Beiträge
Maximum aus Zeile,ausgeblendete Spalte nicht berüc
HermannZ

Hi;
wie kann ich mit VBA in einer Zeile das Maximum ermitteln,aber ausgeblendete Spalten nicht berücksichtigen.
Mit einer Formel z.B könnte man das so machen.
 CEFGH1246  2     3     4     5&n...
13.08.2008 19:42:43
Thread-ID: 1001641
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige