Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 11:32:40
Vergleich 2 Spalten in Abhängigkeit vom Namen
16.04.2024 11:08:47
Text in Spalten zählen
16.04.2024 10:55:21
Welche Angaben sind Zeile- und Spaltenhöhe
16.04.2024 10:31:56
Bilder in Userform per VBA aus Sharepoint Ordner anzeigen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1016to1020
1016to1020
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Array-Formel in VBA-Code umwandeln?

Array-Formel in VBA-Code umwandeln?
26.10.2008 10:56:28
Robert
Hallo,
ich bräuchte bitte eure Hilfe.
Hab folgende Formel...
Selection.FormulaArray = _
=IF(ROW(R[-107]C[-3])>COUNTA('1'!R5C[4]:R200C[4]),"""",INDEX('1'!R5C4:R200C4,SMALL(IF('1'!R5C[4]:R200C[4]<>"""",ROW(R1:R196),""""),ROW(R[-107]C[-3]))))"
Mein Problem ist, dass ich die Formel in VBA-Code bräuchte.
Ist das überhaupt umsetzbar?
Vielen Dank schon mal im Voraus.
Grüße
Robert

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Array-Formel in VBA-Code umwandeln?
26.10.2008 11:04:00
Tino
Hallo,
wenn Du sagst was diese Formel macht, könnte man etwas nachbauen.
Gruß Tino
AW: Array-Formel in VBA-Code umwandeln?
26.10.2008 11:28:11
Robert
Hallo,
sorry...
Die Formel sucht in Tabelle "1", nach Prüfung und Übereinstimmung des Datums mit Tabelle "PLANTAFEL", in der enstprechenden Datumsspalte nach einträgen (z. B. "U" etc.). Wenn ein Eintrag gefunden wird, wird der daugehörige Mitarbeitername von der Tabelle "1" in Tabelle "PLANTAFEL" übernommen (ohne Leerzeilen).
https://www.herber.de/bbs/user/56279.xls
Vielleicht ist es in der Beispielmappe besser ersichtlich. Kanns leider nicht besser erklären ;-(
Vielen Dank schon mal.
Gruß Robert
Anzeige
AW: Array-Formel in VBA-Code umwandeln?
26.10.2008 11:36:30
Robert
... wenn es überhaupt möglich ist, so etwas zu machen, stellt sich noch die Frage, ob der Datumsabgleich
über zwei Tabellen gehen kann ( "1" und "2" - zwei Jahreshälften)?
Danke
Robert
AW: Array-Formel in VBA-Code umwandeln?
26.10.2008 12:10:39
Erich
Hi Robert,
probier mal 

Option Explicit
Sub PlantafelFuellen()
Dim intBlatt As Integer, lngC As Long, lngZ As Long, lngA As Long, lngV As Long
Sheets("PLANTAFEL").Select
For intBlatt = 1 To 2
With Sheets(CStr(intBlatt))
If intBlatt = 2 Then _
lngV = Sheets("1").Cells(3, .Columns.Count).End(xlToLeft).Column - 1
For lngC = 2 To .Cells(3, .Columns.Count).End(xlToLeft).Column
lngA = 108
For lngZ = 5 To .Cells(.Rows.Count, 1).End(xlUp).Row
If Not IsEmpty(.Cells(lngZ, lngC)) Then
Cells(lngA, lngC + lngV) = .Cells(lngZ, 1)
lngA = lngA + 1
End If
Next lngZ
Next lngC
End With
Next intBlatt
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Anzeige
AW: Array-Formel in VBA-Code umwandeln?
26.10.2008 12:32:00
Daniel
Hi
eine Möglichkeit wäre, in der Tabelle "1" spaltenweise den Autofilter auf "NichtLeere" zu setzen und die sichtbaren Mitarbeiter aus Spalte 1 in die Planungstabelle zu kopieren:

Sub Übertragen()
Dim rngMA As Range, rngAbw As Range
Dim shP As Worksheet, sh1 As Worksheet
Dim sp  As Long
Set sh1 = Sheets("1")
Set shP = Sheets("Plantafel")
Set rngMA = Range(sh1.Cells(5, 1), sh1.Cells(Rows.Count, 1).End(xlUp))
Set rngAbw = Range(sh1.Cells(4, 1), sh1.Cells(sh1.Cells(Rows.Count, 1).End(xlUp).Row, _
Cells(2, Columns.Count).End(xlToLeft).Column))
For sp = 2 To rngAbw.Columns.Count
rngAbw.AutoFilter Field:=sp, Criteria1:=""
On Error Resume Next
rngMA.SpecialCells(xlCellTypeVisible).Copy Destination:=shP.Cells(108, sp)
On Error GoTo 0
sh1.ShowAllData
Next
End Sub


Gruß, Daniel
Gruß, Daniel

Anzeige
AW: Array-Formel in VBA-Code umwandeln?
26.10.2008 13:11:00
Tino
Hallo,
hier noch meine Version.
Modul Modul1 
Option Explicit 
 
Sub TestMakro() 
Dim SuchBer As Range 
Dim EinfBer As Range 
Dim i As Long, j As Long, A As Long 
Dim meArS 
 
With Tabelle1 
i = .Cells(.Rows.Count, "A").End(xlUp).Row 
j = .Cells(1, Columns.Count).End(xlToLeft).Column 
Set SuchBer = .Range("A5", .Cells(i, j)) 
End With 
meArS = SuchBer 
With Sheets("PLANTAFEL") 
Set EinfBer = .Range("B108", .Cells(107 + i, j)) 
 
For i = 1 To Ubound(meArS) 
  
 For j = 2 To Ubound(meArS, 2) 
  A = A + 1 
  Select Case UCase(meArS(i, j)) 
    
   Case "U", "F", "K": EinfBer(A) = meArS(i, 1) 
  End Select 
 Next j 
 
Next i 
End With 
End Sub


Gruß Tino

Anzeige
AW: Array-Formel in VBA-Code umwandeln?
26.10.2008 15:17:00
Tino
Hallo,
Da du eine Tabelle fürs erste Halbjahr und eine für das zweite Halbjahr haben möchtest,
brauchst du auch zwei Ausgabebereiche, weil ein ganzes Jahr nicht in eine Zeile passt.
https://www.herber.de/bbs/user/56294.xls
Gruß Tino
AW: Array-Formel in VBA-Code umwandeln?
26.10.2008 17:35:00
Robert
Hallo,
ihr seid super! Danke euch vielmals! Es funktionieren alle eure Vorschläge.
Tino deine Version ist genau das was ich brauche.
Nochmals vielen Dank
Gruß Robert
AW: Array-Formel in VBA-Code umwandeln?
26.10.2008 18:20:07
Robert
Hallo Tino,
kannst du mir nochmal helfen bitte?
Hab gerade deine Version in meine Datei eingebaut. Hab jetzt das Problem, dass ich für jeweils eine Jahreshälfte eine Tabelle brauche. Also "1" und "2" und dazu "PLANTAFEL1" und "PLANTAFEL2".
Wie müsste dann deine überaus geniale Lösung angepasst werden?
Schaffe das einfach nicht.
Gruss Robert
Anzeige
AW: Array-Formel in VBA-Code umwandeln?
26.10.2008 18:40:00
Robert
Hallo Tino,
das ging aber super schnell.
Habs gerade eingehängt und es funktioniert...es funktioniert!
Du bist der Beste! Vielen vielen Dank.
Gruss Robert
AW: Array-Formel in VBA-Code umwandeln?
26.10.2008 19:49:00
Tino
Hallo,
danke für die Rückmeldung.
PS: der Beste bin ich nicht, eher Kategorie bescheiden auf dem Weg nach oben ;-)
Gruß Tino

361 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Anzeige
erzwungener zeilenumbruch in Zelle
Lars

Hallo,
obwohl ich schon viel mit Excel gemacht habe, tauchen doch immer wieder Fragen auf:
Gibt es eine Möglichkeit, in einer Zelle einen Zeilenumbruch manuell einzufügen, ohne dass man bereits am Zellenende ist?
Ich denke, dass ist eine eher dumme Frage, aber ich habe derzeit keine...
02.10.2008 15:40:00
Thread-ID: 1013906
4 Beiträge
Code per VBA in "Diese Arbeitsmappe"
Timo

Hallo,
mir ist bekannt, wie ich per VBA ein neues Modul anlegen und eine Sub erzeugen kann.
Ich möchte nun aber per VBA eine sub in "Diese Arbeitsmappe" erzeugen und mit einer zweiten Prozedur wieder löschen.
Geht das?
Ich habe im Archiv nichts relevantes hierzu gefunden.
V...
29.10.2008 11:37:00
Thread-ID: 1020207
6 Beiträge
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Zeilenumbruch bei Formel in VBA Code
Waven

Hallo Zusammen
Ist es irgendwie möglich im VBA Code innerhalb einer Formel einen Zeilenumbruch zu machen?
Als Beispiel:
aus
Range("A1").Formula = "=SUMPRODUCT((B23:B40=1)*(Q23:Q40=1)*(O23:O40))+SUMPRODUCT((B23:B40=1)*(Q23:Q401)*(R23:R40=1)*(O23:O40))"
soll sowas wie
Ran...
25.11.2008 12:08:00
Thread-ID: 1027662
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
16
5
3
7
4
3
5
2
1
2
7
6
2
5
3
2
2
4
2
4
4
7
4
4
5