Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Excel 2003 Vba Schleife über Matrix

Frage Microsoft Microsoft Office

Mitglied: Dudelidude

Dudelidude (Level 1) - Jetzt verbinden

28.07.2011 um 09:29 Uhr, 4299 Aufrufe, 8 Kommentare

Hallo liebes Forum!Gut das es schon Donnerstag ist!

Ich habe folgendes Problem.Ich will um eine Übersetzung in meinem Tool anzulegen Zellen mit dem TranslationTable sheet verknüpfen! Dazu möchte ich eine Schleife benutzen,
die diesen Bezug für mich in die jeweilige Zelle schreibt. Ich habe schon einen funktionierenden Code gebastelt, der allerdings nur über eine Spalte läuft. Ich würde aber gern, dass die Spallte von B1 bis Z 200 läuft. Vielleicht kann ja jemand den Code so anpassen, dass es geht.

Sub Bezug()

Dim i

For i = 1 To 200

Sheets("ProjectStructure").Select
Range("D" & i).Select

If ActiveCell.Value = "Mr/s" Then
ActiveCell.Value = "='Translation Table'!A159"
End If
If ActiveCell.Value = "First Name" Then
ActiveCell.Value = "='Translation Table'!A160"
End If
If ActiveCell.Value = "Surname" Then
ActiveCell.Value = "='Translation Table'!A161"

End If

Next i


End Sub
Mitglied: TsukiSan
28.07.2011 um 09:42 Uhr
du kannst es folgendermaßen mit 2 Schleifen aufbauen. Hier was zum testen:
01.
 For a = 66 To 90 
02.
    For i = 1 To 200 
03.
        Range(Chr(a) & i).Select 
04.
          ' hier deine IFs rein..... 
05.
    Next i 
06.
 Next a
die Schleife a gibt dir (CHR vorangestellt) die Zeichen aus dem ASCII-Code und die Schleife i drinnen die Breiche (1 bis 200).

Gruss
Tsuki
Bitte warten ..
Mitglied: bastla
28.07.2011 um 10:25 Uhr
@Tsuki
Anstelle von "Range()" würde sich aber eher "Cells()" aufdrängen - dann sind auch keine Kunststücke mit dem Zusammenbauen der Zelladresse (ab "AA" würde es noch lustiger) erforderlich ...

Als Altenative (je nachdem, was ev noch passieren soll) vielleicht auch ein
For Each Zelle In Range("B1:Z200")
@Dudelidude
01.
Sheets("ProjectStructure").Select 
02.
Range("D" & i).Select 
03.
 
04.
If ActiveCell.Value = "Mr/s" Then
lässt sich auch ohne "Select" umsetzen:
01.
With Sheets("ProjectStructure").Range("D" & i) 
02.
    If .Value = "Mr/s" Then 
03.
    .... 
04.
End With
wobei ich aber, wie oben erwähnt, "Cells" verwenden würde:
With Sheets("ProjectStructure").Cells(i, "D")
Anstelle des Buchstabens kannst Du auch die Nummer der Spalte verwenden (für Schleifen vorteilhaft):
With Sheets("ProjectStructure").Cells(i, 4)
Einen hab ich noch:
Wenn ein Wert auf mehrere Bedingungen geprüft werden soll, kannst Du "Select Case" verwenden - also etwa:
01.
Select Case .Value 
02.
Case "Mr/s" 
03.
    .Value = "='Translation Table'!A159" 
04.
Case "First Name" 
05.
    .Value = "='Translation Table'!A160" 
06.
Case "Surname" 
07.
    .Value = "='Translation Table'!A161" 
08.
End Select
Grüße
bastla
Bitte warten ..
Mitglied: TsukiSan
28.07.2011 um 12:20 Uhr
hallo bastla,

schon klar, dass es ab Doppelbuchstaben lustiger wird.
Da der TO aber definitiv schrieb
, dass die Spallte von B1 bis Z 200 läuft.
war mein Gedanke halt obiger auf die Schnelle.
Die Select Case Methode in seinem Fall macht das ganze optisch noch sauberer. Dem stimme ich auch zu.

Danke und Grüße

Tsuki
Bitte warten ..
Mitglied: bastla
28.07.2011 um 13:56 Uhr
@Tsuki
Never mind - Du hast Dich stärker an der Vorgabe des TO (inkl seines Ansatzes mit "Range("D" & i).Select") orientiert, während ich das etwas stärker verallgemeinern wollte ...

Grüße
bastla
Bitte warten ..
Mitglied: TsukiSan
28.07.2011 um 23:19 Uhr
Hallo bastla,

siehst du - und während wir beide etwas am fachsimpeln sind, hat der TO schon ein grünes Häkchen gesetzt
Super Arbeit!

Viele Grüße

Tsuki
Bitte warten ..
Mitglied: bastla
29.07.2011 um 09:58 Uhr
Hallo Tsuki!
hat der TO schon ein grünes Häkchen gesetzt
... was immer noch (knapp) besser ist, als gar kein Feedback ...

Grüße
bastla
Bitte warten ..
Mitglied: Dudelidude
29.07.2011 um 11:17 Uhr
Hey Leute,

sorry aber ich dachte ich hatte mich schon bedankt. Jedenfalls nochmal vielen Dank für eure schnelle und kompetente Hilfe.
Liebe Grüße!

TGI Friday!
Bitte warten ..
Mitglied: bastla
29.07.2011 um 11:27 Uhr
Hallo Dudelidude!

Danke für's Bedanken - es geht aber mehr darum, für ev andere Hilfesuchende deutlich zu machen, dass ein (bzw welcher) Ansatz funktioniert hat ...

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Werte in Matrix einfügen- Schleife
gelöst Frage von IkanerMicrosoft Office6 Kommentare

Hallo Leute, wie kann ich das bestehende Makro ergänzen, sodass es mir für jedes entstandene Arbeitsblatt (trägt den Namen ...

Microsoft Office
Excel 2010 VBA Schleife mit Bedingungen
gelöst Frage von yonko22147Microsoft Office3 Kommentare

Hallo, Sorry ich stehe sowas von auf dem Schlauch das mir die einfachsten Sachen nicht mehr einfallen. Ich habe ...

Basic
Matrix auslesen VBA
gelöst Frage von KavachiBasic6 Kommentare

Hallo liebe Leute, ich habe folgendes Problem. Ich versuche KFZ-Steuern in mehreren Ländern für eine Seminararbeit zu berechnen. Dazu ...

Microsoft
Excel-Datei mit VBA speichern
gelöst Frage von 116408Microsoft6 Kommentare

Guten Tag Ich habe eine Excel-Datei, in der in D4 der Kundenname und in D11 das Projekt benennt wird. ...

Neue Wissensbeiträge
Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 23 StundenWindows 102 Kommentare

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 1 TagSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 1 TagInternet3 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 1 TagDSL, VDSL2 Kommentare

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Heiß diskutierte Inhalte
Windows Server
GPO nur für bestimmte Computer
Frage von Leo-leWindows Server13 Kommentare

Hallo Forum, gern würde ich ein Robocopy script per Bat an eine GPO hängen. Wichtig wäre aber dort der ...

Windows Server
KMS Facts for Client configuration
Frage von winlinWindows Server13 Kommentare

Hey Leute, wir haben in unserem Netz nun einen neuen KMS Server. Haben Bestands-VMs die noch nicht aktiviert sind. ...

Windows Tools
Software-Tool zum Entfernen von bösartigem Windows
Frage von emeriksWindows Tools11 Kommentare

Hi, siehe Betreff hat das jemals irgendjemand schonmal sinnvoll eingesetzt? (MRT) E.

Router & Routing
OpenWRT bzw. L.E.D.E auf Buffalo WZR-HP-AG300H - update
gelöst Frage von EpigeneseRouter & Routing11 Kommentare

Guten Tag, ich habe auf einem Buffalo WZR-HP-AG300H die alternative Firmware vom L.E.D.E Projekt geflasht. Ich bin es von ...