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

komplizertes Makro - oder auch nicht

Forumthread: komplizertes Makro - oder auch nicht

komplizertes Makro - oder auch nicht
11.05.2009 09:59:21
Rob
Liebe xls Guru´s.
ich hoffe ihr könnt mir helfen:
muss eine Spesenliste so aufbereiten, dass eine Schnittstelle zu einem externen System richtig befüllt wird.
Problem ist, dass über ein Makro eine Zusammenfassung erstellt werden soll, die 1 oder 2 zeilig sein kann, abhängig von Einträgen in Liste: nur a, nur b, oder a UND b.
Da eine Beschreibung hier Seiten füllen würde, habe ich ein kleines Beispiel hochgeladen.
https://www.herber.de/bbs/user/61729.xls
Hoffe jemand kann mir bei diesem Problem helfen. Ich hab zwar schon danach gesucht, aber nix gefunden. Vielleicht lag´s auch an den Suchbegriffen.
Danke schon jetzt für eure Mitwirkung.
LG
Rob
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: komplizertes Makro - oder auch nicht
11.05.2009 10:28:45
ede
Hallo Rob,
dann füg mal den nachtstehenden Code in ein Modul, pass Deine Tabellenblätter(Namen) an und lass Ihn laufen.

Sub export()
Dim lZeile As Long
Dim i As Long
Dim z As Long
Dim shQuelle As String
'Quelle definieren
shQuelle = Sheets("Tabelle2").Name ' anpassen
'letzte Zeile der Spalte D ermitteln (4)
lZeile = Sheets(shQuelle).Cells(65536, 4).End(xlUp).Row
'neues Sheest anhängen
ThisWorkbook.Worksheets.Add
'Daten übernehmen
z = 2 ' erstel zeile im neuem Sheet
For i = 3 To lZeile
For s = 2 To 3
If Not IsEmpty(Sheets(shQuelle).Cells(i, s)) Then
Cells(z, 1) = Sheets(shQuelle).Cells(i, 4)
Cells(z, 2) = Sheets(shQuelle).Cells(i, s)
If Sheets(shQuelle).Cells(i, s) > 10 Then
Cells(z, 3) = "M20"
Else
Cells(z, 3) = "M10"
End If
z = z + 1
End If
Next s
Next i
End Sub


funkts?
Gruss

Anzeige
AW: komplizertes Makro - oder auch nicht
11.05.2009 10:50:26
Rob
Hi Ede,
GRANDIOS !!
Es funzt astrein. Super!
Darf ich noch um eine kleine Ergänzung bitten:
Kannst du auch noch die TOTAL Zeile "automatisieren". Nachdem die Anzahl der Quell-Zeilen ja auch variiert, weiß ich nicht, wie man das macht.
Vielen Dank - bin beeindruckt von der Schnelligkeit der Lösung.
LG
Rob
Anzeige
AW: komplizertes Makro - oder auch nicht
11.05.2009 10:56:12
ede
HAllo noch mal,
anbei die angepasste Version:

Sub export()
Dim lZeile As Long
Dim i As Long
Dim z As Long
Dim s As Long
Dim total As Long
Dim shQuelle As String
'Quelle definieren
'shQuelle = Sheets("Tabelle2").Name ' anpassen
shQuelle = ActiveSheet.Name  'das aktiveSheet verwenden
'letzte Zeile der Spalte D ermitteln (4)
lZeile = Sheets(shQuelle).Cells(65536, 4).End(xlUp).Row
'neues Sheet anhängen
ThisWorkbook.Worksheets.Add
'Daten übernehmen
z = 1 ' erstel zeile im neuem Sheet
total = 0
For i = 3 To lZeile
' Spalte MWST prüfen
For s = 2 To 3
If Not IsEmpty(Sheets(shQuelle).Cells(i, s)) Then
Cells(z, 1) = Sheets(shQuelle).Cells(i, 4)
Cells(z, 2) = Sheets(shQuelle).Cells(i, s)
If Sheets(shQuelle).Cells(i, s) > 10 Then
Cells(z, 3) = "M20"
Else
Cells(z, 3) = "M10"
End If
z = z + 1
total = total + Sheets(shQuelle).Cells(i, s)
End If
Next s
Next i
'Total ausgeben
Cells(z, 1) = "Total"
Cells(z, 2) = total
End Sub


Gruss

Anzeige
AW: komplizertes Makro - oder auch nicht
11.05.2009 11:01:03
Rob
PERFEKT !!
Vielen Dank Ede, hast mir viiiel manuelle Arbeit erspart.
Schönen Tag und
recht liebe Grüße
Rob
;

Forumthreads zu verwandten Themen

Sverweis oder Wenn Formeln???
Pia

https://www.herber.de/bbs/user/54661.xls
Hallo zusammen,
wie kann man aus einem Tabellenblatt eine Wert von bestimmte Monate bestimmte Mitarbeiter auf anderen Tabellenblatt übertragen?
Sorry, ich kann es schwer erklären. Hoffentlich versteht ihr was ich damit meinte, anhand der beig...
17.08.2008 12:29:00
Thread-ID: 1002393
6 Beiträge
Anzeige
Rechts oder LINKS Problem?
Ronny

Hallo,
ich möchte aus dem folgenden Platzierungen, die in Zelle A1 stehen, nur den Namen in eine neue Zelle haben. Mit welcher Formel kann ich das am einfachsten bewerkstelligen.
Beispiele
1. Dominik Hrbaty (SVK)
2. Paul Goldstein (USA)
3. Peter Luczak (AUS)
danke
R...
25.08.2008 22:05:20
Thread-ID: 1004609
3 Beiträge
Application.Quit oder WB.close ???
Dirk

allo miteinander,
brauche bitte von Euch mal einen Rat, -Tip, oder einfach nur Hilfe.
Habe bei einer meiner Dateien ein Application.quit eingebaut, weil wenn Bedingung nicht erfüllt ist soll sich die komplette Mappe und die Tabellen die mit dieser zusammen arbeiten automatisch schließen...
01.09.2008 13:04:50
Thread-ID: 1006409
6 Beiträge
Anzeige
Summenprodukt mit Malzeichen oder ohne?
gatinho77

Hallo,
ich möchte aus folgender Tabelle die Zahlen addieren mit Kennzeichen "a" und"März":
a 2 januar
a 8 märz
b 1 april
a 8 märz
c 7 september
Ich nutze dafür die Formel Summewenn folgendermaßen:
=SUMPRODUCT((G20:G24="a")*(I20:I24="märz")*(H20:H24)) So wi...
08.09.2008 16:05:00
Thread-ID: 1008189
7 Beiträge
SUMMEWENN oder ZÄHLENNWENN
Heinz

Hallo Leute
Ich bräuchte bitte eine Formel die Sinngemäß so geht.
Zählenwenn( O8:O38) R4
Könnte mir dazu bitte jemand helfen.
Danke & Gruß
Heinz
16.09.2008 18:38:02
Thread-ID: 1010175
12 Beiträge
Anzeige
Aufruf von Makros mit Abfrage (JA oder NEIN) ?
Makros

Hallo Leute,
wenn ich ein Makro starte, würde ich gerne eine Abfrage (MsgBox) einschalten, wo ich gefragt werde, ob die weitere Makros (siehe Beispiel) tatsächlich ausgeführt werden sollen. Geht das überhaupt?
Beispiel:
Sub Makro1() Dim rng As Range For Each rng In Range("A1:A" &a...
18.09.2008 18:59:00
Thread-ID: 1010835
3 Beiträge
Summewenn oder wenn oder ...
Karen

Hallo,
ich habe einen "HÄNGER". Ich möchte 9 Summen mit 2 verschiedenen Kriterien bilden.
Aber ich komme nicht drauf. Vielleicht muss ich in meiner Tabelle noch etwas umbauen.
https://www.herber.de/bbs/user/55571.xls
Zahlen Spale B
Text Spalte C
Text Spalte D
Im Kas...
22.09.2008 14:31:41
Thread-ID: 1011479
7 Beiträge
Anzeige
Makro zum Auslesen oder Excel-Funktion?
Maxine

Hallo zusammen,
ich bräuchte Unterstützung bei folgendem Problem.
Die Datei https://www.herber.de/bbs/user/55640.xls wurde aus Datenschutzgründen gelöscht
Ich habe Sheet mit einzelnden Kunden (Spalte A)... die haben in verschiedenen Perioden ein bestimmtes Merkmal. Die Merkmalsausp...
24.09.2008 23:16:34
Thread-ID: 1012196
3 Beiträge
UDF - pos. oder neg. Wert in ausgeblendet. Bereich
Peter

Guten Abend
Ich möchte mit Hilfe einer Funktion (z.B. yWert) abfragen, ob innerhalb einem benannten Bereich (z.B. "Zahlenteil") positive oder negative Werte in ausgeblendeten Zeilen enthalten sind. Falls dies zutrifft, sollte die Rückgabe der Tabellenname sowie die betreffenden Zelladressen...
26.09.2008 21:20:00
Thread-ID: 1012746
4 Beiträge
Einstell- oder Denkfehler???
Wolfgang

Ein herzliches Grüß Gott an alle,
ich hab' ein Problem bezüglich "autoaus füllen".
Ich will aus einer anderen Tabelle Daten importieren,
=abc!$b$2 usw.
Wenn ich eine komplette Zeile übernehmen will
=abc!b$2 und nach rechts ziehe geht es weiter
mit c2, d2 usw. - wie gewün...
18.10.2008 16:33:21
Thread-ID: 1017359
7 Beiträge
Kalender auf Tages-, Monats- oder Jahressicht
MiraCeti

Hallo Zusammen,
ich weiss, das Thema wird immer wieder in den verschiedensten Versionen aufgewärmt und nun muss ich das leider auch tun.
Es geht mir gar nicht so sehr darum, einen Planer zu haben, in dem ich automatisiert Mitarbeiter oder Urlaube eintragen kann sondern um die Kalendersi...
20.10.2008 13:34:20
Thread-ID: 1017641
2 Beiträge
LZF 1004 Anwendungs- oder objektdefinierter Fehler
Himmelsbach

Hallo zusammen,
Ich habe ein kleines Problem beim Einfügen eines Kommentars in ein Zelle.
Der Code lautet:
Sub vergleichen () dim icolmax as integer dim irowmax as integer dim icol as integer dim irow as integer dim kommentar$ icolmax = 16 irowmax = thisworkbook.worksheets("IASEK...
20.10.2008 20:20:00
Thread-ID: 1017794
6 Beiträge

Beliebteste Forumthreads (12 Monate)

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