Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1184to1188
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
1184to1188
1184to1188
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

String "F15" For i = 1 to 20 bis "F34" hochzählen

String "F15" For i = 1 to 20 bis "F34" hochzählen
Peter
Guten Abend
Angenommen, die String-Variable strZelle hat den Wert "F15". Wie kann ich diesen String "hochzählen"? Der 20. und letzte String müsste dann "F34" sein.
Wäre super, wenn man da jemand weiterhelfen könnte.
Gruss, Peter 
Sub Eintragen()
Dim iAs Integer
For i= 1 To 20
Cells(i, 1) = intRow
Next i
End Sub

Zelladresse inkrementieren und Werte eintragen
04.11.2010 18:03:50
NoNet
Hallo Peter,
ich habe nicht so ganz verstanden, WAS Du genau erreichen möchtest, aber ich vermute, eine der beiden Lösungen sollte Dein Problem lösen :
Sub Eintragen1()
Dim i As Integer, strZelle As String, intRow As Integer
strZelle = "F15"
intRow = StrReverse(CStr(Val(StrReverse(strZelle))))
For i = 1 To 20
Cells(i + intRow - 1, 1) = intRow + i - 1
Next i
End Sub


Sub Eintragen2()
Dim i As Integer, rngZelle As Range, intRow As Integer
Set rngZelle = Range("F15")
intRow = StrReverse(CStr(Val(StrReverse(rngZelle.Address))))
For i = 1 To 20
rngZelle.Offset(i - 1) = intRow + i - 1
Next i
End Sub

Das erste Makro trägt in die Zellen A15:A34 die Werte 15 bis 34 ein, das 2.Makro trägt in den Bereich F15:F34 die Werte 15 bis 34 ein.
Ich hoffe einer der beiden Codebeispiele "passt".
Gruß, NoNet
Anzeige
AW: Zelladresse inkrementieren und Werte eintragen
04.11.2010 21:01:42
Peter
Hallo NoNet
Vielen Dank für deine Hilfe. In der Zwischenzeit habe ich den Code, welcher zu erweitern ist, weiter gebracht, so dass ich besser erklären kann, was ich mit diesem String "hochzählen" gemeint habe.
Die 31 Codezeilen - beginnend mit Range("_TOT").Cells(1) = getvalue(p, f, s, "F15") - unten möchte ich mit einer Schlaufe vereinfachen. Vorerst konnte ich mir so jedoch verhelfen.
Einerseits möchte ich die Zahl von Cells(1) hochzählen, bis 31 und dann getvalue nicht mehr den String "F15", "F16", ... etc. übergeben sondern diese Zelle "hochzählen, der Ausgangspunkt, also "F15" wird mit r = [_xqG] der Variable r übergeben.
Wäre super, wenn du mir da auf den Sprung helfen könntest.
Gruss, Peter
Sub DatenVKG()
Dim p As String, f As String, s As String, r As String
p = [_xp]
f = [_xf]
s = [_xs]
r = [_xqG]
With Range("_TOT")
.NumberFormat = "#'##0.00;;"
End With
Range("_TOT").Cells(1) = getvalue(p, f, s, "F15")
Range("_TOT").Cells(2) = getvalue(p, f, s, "F16")
Range("_TOT").Cells(3) = getvalue(p, f, s, "F17")
Range("_TOT").Cells(4) = getvalue(p, f, s, "F18")
Range("_TOT").Cells(5) = getvalue(p, f, s, "F19")
Range("_TOT").Cells(6) = getvalue(p, f, s, "F20")
Range("_TOT").Cells(7) = getvalue(p, f, s, "F21")
Range("_TOT").Cells(8) = getvalue(p, f, s, "F22")
Range("_TOT").Cells(9) = getvalue(p, f, s, "F23")
Range("_TOT").Cells(10) = getvalue(p, f, s, "F24")
Range("_TOT").Cells(11) = getvalue(p, f, s, "F25")
Range("_TOT").Cells(12) = getvalue(p, f, s, "F26")
Range("_TOT").Cells(13) = getvalue(p, f, s, "F27")
Range("_TOT").Cells(14) = getvalue(p, f, s, "F28")
Range("_TOT").Cells(15) = getvalue(p, f, s, "F29")
Range("_TOT").Cells(16) = getvalue(p, f, s, "F30")
Range("_TOT").Cells(17) = getvalue(p, f, s, "F31")
Range("_TOT").Cells(18) = getvalue(p, f, s, "F32")
Range("_TOT").Cells(19) = getvalue(p, f, s, "F33")
Range("_TOT").Cells(20) = getvalue(p, f, s, "F34")
Range("_TOT").Cells(21) = getvalue(p, f, s, "F35")
Range("_TOT").Cells(22) = getvalue(p, f, s, "F36")
Range("_TOT").Cells(23) = getvalue(p, f, s, "F37")
Range("_TOT").Cells(24) = getvalue(p, f, s, "F38")
Range("_TOT").Cells(25) = getvalue(p, f, s, "F39")
Range("_TOT").Cells(26) = getvalue(p, f, s, "F40")
Range("_TOT").Cells(27) = getvalue(p, f, s, "F41")
Range("_TOT").Cells(28) = getvalue(p, f, s, "F42")
Range("_TOT").Cells(29) = getvalue(p, f, s, "F43")
Range("_TOT").Cells(30) = getvalue(p, f, s, "F44")
Range("_TOT").Cells(31) = getvalue(p, f, s, "F45")
End Sub

Anzeige
AW: Zelladresse inkrementieren und Werte eintragen
04.11.2010 23:16:31
Josef

Hallo Peter,
meinst du so?
Sub DatenVKG()
  Dim p As String, f As String, s As String, r As String
  Dim lngI As Long
  
  p = [_xp]
  f = [_xf]
  s = [_xs]
  r = [_xqG]
  
  With Range("_TOT")
    .NumberFormat = "#'##0.00;;"
    
    For lngI = 1 To 31
      .Cells(lngI) = getvalue(p, f, s, "F" & CStr(lngI + 14))
    Next
    
  End With
  
End Sub


Gruß Sepp

Anzeige
AW: Zelladresse inkrementieren und Werte eintragen
05.11.2010 22:28:06
Peter
Hallo Sepp
Das ist schon fast perfekt, vielen Dank. Nun möchte ich noch eine Verbindung haben zwischen r und dem 4. Argument von getvalue "F" & CStr(LngI + 14))
r wird mit [_xqG] der String "F15" zugewiesen. In einer anderen Umgebung könnte es auch AA19 sein.
Nun müsste ich Spaltenbuchstabe(n) und Zeilennummer je einer separaten Variable zuordnen können (also "F" und 15, rsp. "AA" und 19 und dann diese Variablen anstelle von "F" und + 14 einsetzen.
Angenommen, der Spaltenbuchstabe wird der strVariable strR zugewiesen und die Zeilennummer der lngVariable lngC
Dann würde die Codezeile wie folgt lauten:
.Cells(lngI) = getvalue(p, f, s, strR & CStr(lngI + lngC - 1))
Wie schaffe ich die Verbindung zwischen der im Range [_xqG] enthaltenen Zellreferenz und den Variablen strR und lngC?
Danke und Gruss, Peter
Anzeige
AW: Zelladresse inkrementieren und Werte eintragen
05.11.2010 22:44:25
Josef

Hallo Peter,
dann so.
.Cells(lngI) = getvalue(p, f, s, Range(r).Offset(lngI - 1, 0).Address(0, 0))


Gruß Sepp

AW: Zelladresse inkrementieren und Werte eintragen
05.11.2010 23:06:52
Peter
Hallo Sepp
Das ist perfekt. Vielen Dank!
Peter
Anzeige

304 Forumthreads zu ähnlichen Themen

TextBox1.Value = TextBox2.Value + TextBox3.Value
Michaela

Guten Mittag
Stehe ich aufm schlauch?
ich versuche in TextBox1. die Summe aus TextBox 2 und 3 anzuzeigen. das geht aber nicht mit:
TextBox1.Value = TextBox2.Value + TextBox3.Value
was mache ich falsch?
Danke für die Hilfe
Michaela
18.08.2008 13:45:00
Thread-ID: 1002572
9 Beiträge
Anzeige
Summenformel funktioniert nicht
Mathias

Hallo guten Abend,
ich habe folgendes Problem. Ich habe eine Stundenübersicht. In der Stundenübersicht habe ich wie ihr in der Formel seht im Format 00:00 Die Stunden zusammen gezählt. Wenn ich jetzt aber die Wochenstunden zusammenzählen möchte für Monatsabrechung kommt iergent ein wirres Z...
18.11.2008 23:06:14
Thread-ID: 1025814
7 Beiträge
Messagebox nach 1-2 Sec automatisch schließen
hajo

Hallo zusammen,
gibt es eine Möglichkeit eine MSGBox oder ähnliches aufzurufen, ein paar Sekunden anzeigen zu lassen und automatisch zu schließen, so dass das Makro weiterläuft?
Vielen Dank für Eure Hilfe
25.11.2008 12:07:21
Thread-ID: 1027660
3 Beiträge
Anzeige
Fehler beim Öffnen und Schließen
kleinerfinger

Hallo und einen schönen guten Morgen !
Ich habe folgendes Problem:
Jedes mal wenn ich Excel starte bekomme ich folgende Fehlermeldung:
Kompilierungs-Fehler in verborgenen Modul: AutoExecNew
und beim Schließen:
Kompilierungs-Fehler in verborgenen Modul: DistMon
Wie bekomm...
25.05.2009 08:15:25
Thread-ID: 1077075
16 Beiträge
Kopieren von Formeln in Excel funktioniert nicht
Formeln

Hallo Leute,
ich kann seit heute keine Formeln mehr in Excel von einer Datei in eine andere Dateien kopieren. Excel übernimmt nur die Werte. Kopieren in einer Datei zwischen zwei Tabellenblättern funktioniert.
Habe nichts verstellt. Automatische Berechnung ist eingestellt.
Weiß jem...
30.06.2009 13:38:40
Thread-ID: 1085354
8 Beiträge
Wenn "Test" in I19:I23 dann Wert kopieren
Heinz

Guten morgen Leute
Habe ein Problem,deren Lösung ich nicht weiterkomme.
ZB. In Sheet "Zuschauer"A2 =WENN('R1'!$I19:$I23="Test";R1'!$j$19
In Sheet "Zuschauer" geht es bis 'R36' A2 - A3 - A4 usw. es geht um ein Diagramm für Zuschauer bei
HEIMSPIELEN.
Wenn zB. 'R3 "Test" i...
11.07.2009 10:40:54
Thread-ID: 1087834
2 Beiträge
3. Februarwoche (15.2.2010)
Heinz

Hallo Leute
Ich bräuchte bitte für einen Ferienkalender immer den Beginn der 3. Februarwoche (15.2.2010)
In A39 steht 1.2.2010
Hätte dazu bitte jemand eine Formel.
Gruß Heinz
04.08.2009 17:18:03
Thread-ID: 1093590
5 Beiträge
=VERWEIS(2;1/(D22:D33<>""); D22:D33)
Claudia

Hallo zusammen,
mittels dieser Formel
=VERWEIS(2;1/(D22:D33""); D22:D33)
suche ich mir die erste belegte Zelle im Bereich D22:D33. Jetzt muss ich aber die zweie belegte
Zelle von unten finden.
zum beispiel statt D25 soll D24 angezeigt werden.
Geht das auch mittels einer...
10.08.2009 15:52:18
Thread-ID: 1094771
6 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
8
6
6
2
3
15
7
1
4
5
5
2
4
11
4
2
10
4
3
2
44
2
1
6
12